812484ac39d7e78d330d75c74e228cae7b13d2d8
[cascardo/ovs.git] / tests / ovn.at
1 AT_BANNER([OVN components])
2
3 AT_SETUP([ovn -- lexer])
4 dnl For lines without =>, input and expected output are identical.
5 dnl For lines with =>, input precedes => and expected output follows =>.
6 AT_DATA([test-cases.txt], [dnl
7 foo bar baz quuxquuxquux _abcd_ a.b.c.d a123_.456
8 "abc\u0020def" => "abc def"
9 " => error("Input ends inside quoted string.")dnl "
10
11 a/*b*/c => a c
12 a//b c => a
13 a/**/b => a b
14 a/*/b => a error("`/*' without matching `*/'.")
15 a/*/**/b => a b
16 a/b => a error("`/' is only valid as part of `//' or `/*'.") b
17
18 0 1 12345 18446744073709551615
19 18446744073709551616 => error("Decimal constants must be less than 2**64.")
20 9999999999999999999999 => error("Decimal constants must be less than 2**64.")
21 01 => error("Decimal constants must not have leading zeros.")
22
23 0/0
24 0/1
25 1/0 => error("Value contains unmasked 1-bits.")
26 1/1
27 128/384
28 1/3
29 1/ => error("Integer constant expected.")
30
31 1/0x123 => error("Value and mask have incompatible formats.")
32
33 0x1234
34 0x01234 => 0x1234
35 0x0 => 0
36 0x000 => 0
37 0xfedcba9876543210
38 0XFEDCBA9876543210 => 0xfedcba9876543210
39 0xfedcba9876543210fedcba9876543210
40 0x0000fedcba9876543210fedcba9876543210 => 0xfedcba9876543210fedcba9876543210
41 0x => error("Hex digits expected following 0x.")
42 0X => error("Hex digits expected following 0X.")
43 0x0/0x0 => 0/0
44 0x0/0x1 => 0/0x1
45 0x1/0x0 => error("Value contains unmasked 1-bits.")
46 0xffff/0x1ffff
47 0x. => error("Invalid syntax in hexadecimal constant.")
48
49 192.168.128.1 1.2.3.4 255.255.255.255 0.0.0.0
50 256.1.2.3 => error("Invalid numeric constant.")
51 192.168.0.0/16
52 192.168.0.0/255.255.0.0 => 192.168.0.0/16
53 192.168.0.0/255.255.255.0 => 192.168.0.0/24
54 192.168.0.0/255.255.0.255
55 192.168.0.0/255.0.0.0 => error("Value contains unmasked 1-bits.")
56 192.168.0.0/32
57 192.168.0.0/255.255.255.255 => 192.168.0.0/32
58
59 ::
60 ::1
61 ff00::1234 => ff00::1234
62 2001:db8:85a3::8a2e:370:7334
63 2001:db8:85a3:0:0:8a2e:370:7334 => 2001:db8:85a3::8a2e:370:7334
64 2001:0db8:85a3:0000:0000:8a2e:0370:7334 => 2001:db8:85a3::8a2e:370:7334
65 ::ffff:192.0.2.128
66 ::ffff:c000:0280 => ::ffff:192.0.2.128
67 ::1/::1
68 ::1/ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff => ::1/128
69 ::1/128
70 ff00::/8
71 ff00::/ff00:: => ff00::/8
72
73 01:23:45:67:ab:cd
74 01:23:45:67:AB:CD => 01:23:45:67:ab:cd
75 fe:dc:ba:98:76:54
76 FE:DC:ba:98:76:54 => fe:dc:ba:98:76:54
77 01:00:00:00:00:00/01:00:00:00:00:00
78 ff:ff:ff:ff:ff:ff/ff:ff:ff:ff:ff:ff
79 fe:ff:ff:ff:ff:ff/ff:ff:ff:ff:ff:ff
80 ff:ff:ff:ff:ff:ff/fe:ff:ff:ff:ff:ff => error("Value contains unmasked 1-bits.")
81 fe:x => error("Invalid numeric constant.")
82 00:01:02:03:04:x => error("Invalid numeric constant.")
83
84 # Test that operators are tokenized as expected, even without white space.
85 (){}[[]]==!=<<=>>=!&&||..,;=<->-- => ( ) { } [[ ]] == != < <= > >= ! && || .. , ; = <-> --
86 & => error("`&' is only valid as part of `&&'.")
87 | => error("`|' is only valid as part of `||'.")
88 - => error("`-' is only valid as part of `--'.")
89
90 ^ => error("Invalid character `^' in input.")
91 ])
92 AT_CAPTURE_FILE([input.txt])
93 sed 's/ =>.*//' test-cases.txt > input.txt
94 sed 's/.* => //' test-cases.txt > expout
95 AT_CHECK([ovstest test-ovn lex < input.txt], [0], [expout])
96 AT_CLEANUP
97
98 AT_SETUP([ovn -- expression parser])
99 dnl For lines without =>, input and expected output are identical.
100 dnl For lines with =>, input precedes => and expected output follows =>.
101 AT_DATA([test-cases.txt], [[
102 eth.type == 0x800
103 eth.type==0x800 => eth.type == 0x800
104 eth.type[0..15] == 0x800 => eth.type == 0x800
105
106 vlan.present
107 vlan.present == 1 => vlan.present
108 !(vlan.present == 0) => vlan.present
109 !(vlan.present != 1) => vlan.present
110 !vlan.present
111 vlan.present == 0 => !vlan.present
112 vlan.present != 1 => !vlan.present
113 !(vlan.present == 1) => !vlan.present
114 !(vlan.present != 0) => !vlan.present
115
116 eth.dst[0]
117 eth.dst[0] == 1 => eth.dst[0]
118 eth.dst[0] != 0 => eth.dst[0]
119 !(eth.dst[0] == 0) => eth.dst[0]
120 !(eth.dst[0] != 1) => eth.dst[0]
121
122 !eth.dst[0]
123 eth.dst[0] == 0 => !eth.dst[0]
124 eth.dst[0] != 1 => !eth.dst[0]
125 !(eth.dst[0] == 1) => !eth.dst[0]
126 !(eth.dst[0] != 0) => !eth.dst[0]
127
128 vlan.tci[12..15] == 0x3
129 vlan.tci == 0x3000/0xf000 => vlan.tci[12..15] == 0x3
130 vlan.tci[12..15] != 0x3
131 vlan.tci != 0x3000/0xf000 => vlan.tci[12..15] != 0x3
132
133 !vlan.pcp => vlan.pcp == 0
134 !(vlan.pcp) => vlan.pcp == 0
135 vlan.pcp == 0x4
136 vlan.pcp != 0x4
137 vlan.pcp > 0x4
138 vlan.pcp >= 0x4
139 vlan.pcp < 0x4
140 vlan.pcp <= 0x4
141 !(vlan.pcp != 0x4) => vlan.pcp == 0x4
142 !(vlan.pcp == 0x4) => vlan.pcp != 0x4
143 !(vlan.pcp <= 0x4) => vlan.pcp > 0x4
144 !(vlan.pcp < 0x4) => vlan.pcp >= 0x4
145 !(vlan.pcp >= 0x4) => vlan.pcp < 0x4
146 !(vlan.pcp > 0x4) => vlan.pcp <= 0x4
147 0x4 == vlan.pcp => vlan.pcp == 0x4
148 0x4 != vlan.pcp => vlan.pcp != 0x4
149 0x4 < vlan.pcp => vlan.pcp > 0x4
150 0x4 <= vlan.pcp => vlan.pcp >= 0x4
151 0x4 > vlan.pcp => vlan.pcp < 0x4
152 0x4 >= vlan.pcp => vlan.pcp <= 0x4
153 !(0x4 != vlan.pcp) => vlan.pcp == 0x4
154 !(0x4 == vlan.pcp) => vlan.pcp != 0x4
155 !(0x4 >= vlan.pcp) => vlan.pcp > 0x4
156 !(0x4 > vlan.pcp) => vlan.pcp >= 0x4
157 !(0x4 <= vlan.pcp) => vlan.pcp < 0x4
158 !(0x4 < vlan.pcp) => vlan.pcp <= 0x4
159
160 1 < vlan.pcp < 4 => vlan.pcp > 0x1 && vlan.pcp < 0x4
161 1 <= vlan.pcp <= 4 => vlan.pcp >= 0x1 && vlan.pcp <= 0x4
162 1 < vlan.pcp <= 4 => vlan.pcp > 0x1 && vlan.pcp <= 0x4
163 1 <= vlan.pcp < 4 => vlan.pcp >= 0x1 && vlan.pcp < 0x4
164 1 <= vlan.pcp <= 4 => vlan.pcp >= 0x1 && vlan.pcp <= 0x4
165 4 > vlan.pcp > 1 => vlan.pcp < 0x4 && vlan.pcp > 0x1
166 4 >= vlan.pcp > 1 => vlan.pcp <= 0x4 && vlan.pcp > 0x1
167 4 > vlan.pcp >= 1 => vlan.pcp < 0x4 && vlan.pcp >= 0x1
168 4 >= vlan.pcp >= 1 => vlan.pcp <= 0x4 && vlan.pcp >= 0x1
169 !(1 < vlan.pcp < 4) => vlan.pcp <= 0x1 || vlan.pcp >= 0x4
170 !(1 <= vlan.pcp <= 4) => vlan.pcp < 0x1 || vlan.pcp > 0x4
171 !(1 < vlan.pcp <= 4) => vlan.pcp <= 0x1 || vlan.pcp > 0x4
172 !(1 <= vlan.pcp < 4) => vlan.pcp < 0x1 || vlan.pcp >= 0x4
173 !(1 <= vlan.pcp <= 4) => vlan.pcp < 0x1 || vlan.pcp > 0x4
174 !(4 > vlan.pcp > 1) => vlan.pcp >= 0x4 || vlan.pcp <= 0x1
175 !(4 >= vlan.pcp > 1) => vlan.pcp > 0x4 || vlan.pcp <= 0x1
176 !(4 > vlan.pcp >= 1) => vlan.pcp >= 0x4 || vlan.pcp < 0x1
177 !(4 >= vlan.pcp >= 1) => vlan.pcp > 0x4 || vlan.pcp < 0x1
178
179 vlan.pcp == {1, 2, 3, 4} => vlan.pcp == 0x1 || vlan.pcp == 0x2 || vlan.pcp == 0x3 || vlan.pcp == 0x4
180 vlan.pcp == 1 || ((vlan.pcp == 2 || vlan.pcp == 3) || vlan.pcp == 4) => vlan.pcp == 0x1 || vlan.pcp == 0x2 || vlan.pcp == 0x3 || vlan.pcp == 0x4
181
182 vlan.pcp != {1, 2, 3, 4} => vlan.pcp != 0x1 && vlan.pcp != 0x2 && vlan.pcp != 0x3 && vlan.pcp != 0x4
183 vlan.pcp == 1 && ((vlan.pcp == 2 && vlan.pcp == 3) && vlan.pcp == 4) => vlan.pcp == 0x1 && vlan.pcp == 0x2 && vlan.pcp == 0x3 && vlan.pcp == 0x4
184
185 vlan.pcp == 1 && !((vlan.pcp == 2 && vlan.pcp == 3) && vlan.pcp == 4) => vlan.pcp == 0x1 && (vlan.pcp != 0x2 || vlan.pcp != 0x3 || vlan.pcp != 0x4)
186 vlan.pcp == 1 && (!(vlan.pcp == 2 && vlan.pcp == 3) && vlan.pcp == 4) => vlan.pcp == 0x1 && (vlan.pcp != 0x2 || vlan.pcp != 0x3) && vlan.pcp == 0x4
187 vlan.pcp == 1 && !(!(vlan.pcp == 2 && vlan.pcp == 3) && vlan.pcp == 4) => vlan.pcp == 0x1 && ((vlan.pcp == 0x2 && vlan.pcp == 0x3) || vlan.pcp != 0x4)
188
189 ip4.src == {10.0.0.0/8, 192.168.0.0/16, 172.16.20.0/24, 8.8.8.8} => ip4.src[24..31] == 0xa || ip4.src[16..31] == 0xc0a8 || ip4.src[8..31] == 0xac1014 || ip4.src == 0x8080808
190 ip6.src == ::1 => ip6.src == 0x1
191
192 ip4.src == 1.2.3.4 => ip4.src == 0x1020304
193 ip4.src == ::1.2.3.4/::ffff:ffff => ip4.src == 0x1020304
194 ip6.src == ::1 => ip6.src == 0x1
195
196 1
197 0
198 !1 => 0
199 !0 => 1
200
201 inport == "eth0"
202 !(inport != "eth0") => inport == "eth0"
203
204 ip4.src == "eth0" => Integer field ip4.src is not compatible with string constant.
205 inport == 1 => String field inport is not compatible with integer constant.
206
207 ip4.src > {1, 2, 3} => Only == and != operators may be used with value sets.
208 eth.type > 0x800 => Only == and != operators may be used with nominal field eth.type.
209 vlan.present > 0 => Only == and != operators may be used with Boolean field vlan.present.
210
211 inport != "eth0" => Nominal field inport may only be tested for equality (taking enclosing `!' operators into account).
212 !(inport == "eth0") => Nominal field inport may only be tested for equality (taking enclosing `!' operators into account).
213 eth.type != 0x800 => Nominal field eth.type may only be tested for equality (taking enclosing `!' operators into account).
214 !(eth.type == 0x800) => Nominal field eth.type may only be tested for equality (taking enclosing `!' operators into account).
215
216 123 == 123 => Syntax error at `123' expecting field name.
217
218 123 == xyzzy => Syntax error at `xyzzy' expecting field name.
219 xyzzy == 1 => Syntax error at `xyzzy' expecting field name.
220
221 inport[1] == 1 => Cannot select subfield of string field inport.
222
223 eth.type[] == 1 => Syntax error at `@:>@' expecting small integer.
224 eth.type[::1] == 1 => Syntax error at `::1' expecting small integer.
225 eth.type[18446744073709551615] == 1 => Syntax error at `18446744073709551615' expecting small integer.
226
227 eth.type[5!] => Syntax error at `!' expecting `@:>@'.
228
229 eth.type[5..1] => Invalid bit range 5 to 1.
230
231 eth.type[12..16] => Cannot select bits 12 to 16 of 16-bit field eth.type.
232
233 eth.type[10] == 1 => Cannot select subfield of nominal field eth.type.
234
235 eth.type => Explicit `!= 0' is required for inequality test of multibit field against 0.
236
237 !(!(vlan.pcp)) => Explicit `!= 0' is required for inequality test of multibit field against 0.
238
239 123 => Syntax error at end of input expecting relational operator.
240
241 123 x => Syntax error at `x' expecting relational operator.
242
243 {1, "eth0"} => Syntax error at `"eth0"' expecting integer.
244
245 eth.type == xyzzy => Syntax error at `xyzzy' expecting constant.
246
247 (1 x) => Syntax error at `x' expecting `)'.
248
249 !0x800 != eth.type => Missing parentheses around operand of !.
250
251 eth.type == 0x800 || eth.type == 0x86dd && ip.proto == 17 => && and || must be parenthesized when used together.
252
253 eth.dst == {} => Syntax error at `}' expecting constant.
254
255 eth.src > 00:00:00:00:11:11/00:00:00:00:ff:ff => Only == and != operators may be used with masked constants.  Consider using subfields instead (e.g. eth.src[0..15] > 0x1111 in place of eth.src > 00:00:00:00:11:11/00:00:00:00:ff:ff).
256
257 ip4.src == ::1 => 128-bit constant is not compatible with 32-bit field ip4.src.
258
259 1 == eth.type == 2 => Range expressions must have the form `x < field < y' or `x > field > y', with each `<' optionally replaced by `<=' or `>' by `>=').
260
261 eth.dst[40] x => Extra tokens at end of input.
262 ]])
263 sed 's/ =>.*//' test-cases.txt > input.txt
264 sed 's/.* => //' test-cases.txt > expout
265 AT_CHECK([ovstest test-ovn parse-expr < input.txt], [0], [expout])
266 AT_CLEANUP
267
268 AT_SETUP([ovn -- expression annotation])
269 dnl Input precedes =>, expected output follows =>.
270 AT_DATA([test-cases.txt], [[
271 ip4.src == 1.2.3.4 => ip4.src == 0x1020304 && eth.type == 0x800
272 ip4.src != 1.2.3.4 => ip4.src != 0x1020304 && eth.type == 0x800
273 ip.proto == 123 => ip.proto == 0x7b && (eth.type == 0x800 || eth.type == 0x86dd)
274 ip.proto == {123, 234} => (ip.proto == 0x7b && (eth.type == 0x800 || eth.type == 0x86dd)) || (ip.proto == 0xea && (eth.type == 0x800 || eth.type == 0x86dd))
275 ip4.src == 1.2.3.4 && ip4.dst == 5.6.7.8 => ip4.src == 0x1020304 && eth.type == 0x800 && ip4.dst == 0x5060708 && eth.type == 0x800
276
277 ip => eth.type == 0x800 || eth.type == 0x86dd
278 ip == 1 => eth.type == 0x800 || eth.type == 0x86dd
279 ip[0] == 1 => eth.type == 0x800 || eth.type == 0x86dd
280 ip > 0 => Only == and != operators may be used with nominal field ip.
281 !ip => Nominal predicate ip may only be tested positively, e.g. `ip' or `ip == 1' but not `!ip' or `ip == 0'.
282 ip == 0 => Nominal predicate ip may only be tested positively, e.g. `ip' or `ip == 1' but not `!ip' or `ip == 0'.
283
284 vlan.present => vlan.tci[12]
285 !vlan.present => !vlan.tci[12]
286
287 !vlan.pcp => vlan.tci[13..15] == 0 && vlan.tci[12]
288 vlan.pcp == 1 && vlan.vid == 2 => vlan.tci[13..15] == 0x1 && vlan.tci[12] && vlan.tci[0..11] == 0x2 && vlan.tci[12]
289 !reg0 && !reg1 && !reg2 && !reg3 => xreg0[32..63] == 0 && xreg0[0..31] == 0 && xreg1[32..63] == 0 && xreg1[0..31] == 0
290
291 ip.first_frag => ip.frag[0] && (eth.type == 0x800 || eth.type == 0x86dd) && (!ip.frag[1] || (eth.type != 0x800 && eth.type != 0x86dd))
292 !ip.first_frag => !ip.frag[0] || (eth.type != 0x800 && eth.type != 0x86dd) || (ip.frag[1] && (eth.type == 0x800 || eth.type == 0x86dd))
293 ip.later_frag => ip.frag[1] && (eth.type == 0x800 || eth.type == 0x86dd)
294
295 bad_prereq != 0 => Error parsing expression `xyzzy' encountered as prerequisite or predicate of initial expression: Syntax error at `xyzzy' expecting field name.
296 self_recurse != 0 => Error parsing expression `self_recurse != 0' encountered as prerequisite or predicate of initial expression: Recursive expansion of symbol `self_recurse'.
297 mutual_recurse_1 != 0 => Error parsing expression `mutual_recurse_2 != 0' encountered as prerequisite or predicate of initial expression: Error parsing expression `mutual_recurse_1 != 0' encountered as prerequisite or predicate of initial expression: Recursive expansion of symbol `mutual_recurse_1'.
298 mutual_recurse_2 != 0 => Error parsing expression `mutual_recurse_1 != 0' encountered as prerequisite or predicate of initial expression: Error parsing expression `mutual_recurse_2 != 0' encountered as prerequisite or predicate of initial expression: Recursive expansion of symbol `mutual_recurse_2'.
299 ]])
300 sed 's/ =>.*//' test-cases.txt > input.txt
301 sed 's/.* => //' test-cases.txt > expout
302 AT_CHECK([ovstest test-ovn annotate-expr < input.txt], [0], [expout])
303 AT_CLEANUP
304
305 AT_SETUP([ovn -- 1-term expression conversion])
306 AT_CHECK([ovstest test-ovn exhaustive --operation=convert 1], [0],
307   [Tested converting all 1-terminal expressions with 2 numeric vars (each 3 bits) in terms of operators == != < <= > >= and 2 string vars.
308 ])
309 AT_CLEANUP
310
311 AT_SETUP([ovn -- 2-term expression conversion])
312 AT_CHECK([ovstest test-ovn exhaustive --operation=convert 2], [0],
313   [Tested converting 570 expressions of 2 terminals with 2 numeric vars (each 3 bits) in terms of operators == != < <= > >= and 2 string vars.
314 ])
315 AT_CLEANUP
316
317 AT_SETUP([ovn -- 3-term expression conversion])
318 AT_CHECK([ovstest test-ovn exhaustive --operation=convert --bits=2 3], [0],
319   [Tested converting 62418 expressions of 3 terminals with 2 numeric vars (each 2 bits) in terms of operators == != < <= > >= and 2 string vars.
320 ])
321 AT_CLEANUP
322
323 AT_SETUP([ovn -- 3-term numeric expression simplification])
324 AT_CHECK([ovstest test-ovn exhaustive --operation=simplify --nvars=2 --svars=0 3], [0],
325   [Tested simplifying 477138 expressions of 3 terminals with 2 numeric vars (each 3 bits) in terms of operators == != < <= > >=.
326 ])
327 AT_CLEANUP
328
329 AT_SETUP([ovn -- 4-term string expression simplification])
330 AT_CHECK([ovstest test-ovn exhaustive --operation=simplify --nvars=0 --svars=4 4], [0],
331   [Tested simplifying 21978 expressions of 4 terminals with 4 string vars.
332 ])
333 AT_CLEANUP
334
335 AT_SETUP([ovn -- 3-term mixed expression simplification])
336 AT_CHECK([ovstest test-ovn exhaustive --operation=simplify --nvars=1 --svars=1 3], [0],
337   [Tested simplifying 124410 expressions of 3 terminals with 1 numeric vars (each 3 bits) in terms of operators == != < <= > >= and 1 string vars.
338 ])
339 AT_CLEANUP
340
341 AT_SETUP([ovn -- 4-term numeric expression normalization])
342 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=3 --svars=0 --bits=1 4], [0],
343   [Tested normalizing 1207162 expressions of 4 terminals with 3 numeric vars (each 1 bits) in terms of operators == != < <= > >=.
344 ])
345 AT_CLEANUP
346
347 AT_SETUP([ovn -- 4-term string expression normalization])
348 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=0 --svars=3 --bits=1 4], [0],
349   [Tested normalizing 11242 expressions of 4 terminals with 3 string vars.
350 ])
351 AT_CLEANUP
352
353 AT_SETUP([ovn -- 4-term mixed expression normalization])
354 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=1 --bits=1 --svars=2 4], [0],
355   [Tested normalizing 128282 expressions of 4 terminals with 1 numeric vars (each 1 bits) in terms of operators == != < <= > >= and 2 string vars.
356 ])
357 AT_CLEANUP
358
359 AT_SETUP([ovn -- 5-term numeric expression normalization])
360 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=3 --svars=0 --bits=1 --relops='==' 5], [0],
361   [Tested normalizing 368550 expressions of 5 terminals with 3 numeric vars (each 1 bits) in terms of operators ==.
362 ])
363 AT_CLEANUP
364
365 AT_SETUP([ovn -- 5-term string expression normalization])
366 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=0 --svars=3 --bits=1 --relops='==' 5], [0],
367   [Tested normalizing 368550 expressions of 5 terminals with 3 string vars.
368 ])
369 AT_CLEANUP
370
371 AT_SETUP([ovn -- 5-term mixed expression normalization])
372 AT_CHECK([ovstest test-ovn exhaustive --operation=normalize --nvars=1 --svars=1 --bits=1 --relops='==' 5], [0],
373   [Tested normalizing 116550 expressions of 5 terminals with 1 numeric vars (each 1 bits) in terms of operators == and 1 string vars.
374 ])
375 AT_CLEANUP
376
377 AT_SETUP([ovn -- 4-term numeric expressions to flows])
378 AT_CHECK([ovstest test-ovn exhaustive --operation=flow --nvars=2 --svars=0 --bits=2 --relops='==' 4], [0],
379   [Tested converting to flows 128282 expressions of 4 terminals with 2 numeric vars (each 2 bits) in terms of operators ==.
380 ])
381 AT_CLEANUP
382
383 AT_SETUP([ovn -- 4-term string expressions to flows])
384 AT_CHECK([ovstest test-ovn exhaustive --operation=flow --nvars=0 --svars=4 4], [0],
385   [Tested converting to flows 21978 expressions of 4 terminals with 4 string vars.
386 ])
387 AT_CLEANUP
388
389 AT_SETUP([ovn -- 4-term mixed expressions to flows])
390 AT_CHECK([ovstest test-ovn exhaustive --operation=flow --nvars=1 --bits=2 --svars=1 --relops='==' 4], [0],
391   [Tested converting to flows 37994 expressions of 4 terminals with 1 numeric vars (each 2 bits) in terms of operators == and 1 string vars.
392 ])
393 AT_CLEANUP
394
395 AT_SETUP([ovn -- 3-term numeric expressions to flows])
396 AT_CHECK([ovstest test-ovn exhaustive --operation=flow --nvars=3 --svars=0 --bits=3 --relops='==' 3], [0],
397   [Tested converting to flows 38394 expressions of 3 terminals with 3 numeric vars (each 3 bits) in terms of operators ==.
398 ])
399 AT_CLEANUP
400
401 AT_SETUP([ovn -- converting expressions to flows -- string fields])
402 expr_to_flow () {
403     echo "$1" | ovstest test-ovn expr-to-flows | sort
404 }
405 AT_CHECK([expr_to_flow 'inport == "eth0"'], [0], [reg6=0x5
406 ])
407 AT_CHECK([expr_to_flow 'inport == "eth1"'], [0], [reg6=0x6
408 ])
409 AT_CHECK([expr_to_flow 'inport == "eth2"'], [0], [(no flows)
410 ])
411 AT_CHECK([expr_to_flow 'inport == "eth0" && ip'], [0], [dnl
412 ip,reg6=0x5
413 ipv6,reg6=0x5
414 ])
415 AT_CHECK([expr_to_flow 'inport == "eth1" && ip'], [0], [dnl
416 ip,reg6=0x6
417 ipv6,reg6=0x6
418 ])
419 AT_CHECK([expr_to_flow 'inport == "eth2" && ip'], [0], [(no flows)
420 ])
421 AT_CHECK([expr_to_flow 'inport == {"eth0", "eth1", "eth2", "LOCAL"}'], [0],
422 [reg6=0x5
423 reg6=0x6
424 reg6=0xfffe
425 ])
426 AT_CHECK([expr_to_flow 'inport == {"eth0", "eth1", "eth2"} && ip'], [0], [dnl
427 ip,reg6=0x5
428 ip,reg6=0x6
429 ipv6,reg6=0x5
430 ipv6,reg6=0x6
431 ])
432 AT_CHECK([expr_to_flow 'inport == "eth0" && inport == "eth1"'], [0], [dnl
433 (no flows)
434 ])
435 AT_CLEANUP
436
437 AT_SETUP([ovn -- action parsing])
438 dnl Text before => is input, text after => is expected output.
439 AT_DATA([test-cases.txt], [[
440 # drop
441 drop; => actions=drop, prereqs=1
442 drop; next; => Syntax error at `next' expecting end of input.
443 next; drop; => Syntax error at `drop' expecting action.
444
445 # output
446 output; => actions=resubmit(,64), prereqs=1
447
448 # next
449 next; => actions=resubmit(,27), prereqs=1
450 next(0); => actions=resubmit(,16), prereqs=1
451 next(15); => actions=resubmit(,31), prereqs=1
452
453 next(); => Syntax error at `)' expecting small integer.
454 next(10; => Syntax error at `;' expecting `)'.
455 next(16); => "next" argument must be in range 0 to 15.
456
457 # Loading a constant value.
458 tcp.dst=80; => actions=set_field:80->tcp_dst, prereqs=ip.proto == 0x6 && (eth.type == 0x800 || eth.type == 0x86dd)
459 eth.dst[40] = 1; => actions=set_field:01:00:00:00:00:00/01:00:00:00:00:00->eth_dst, prereqs=1
460 vlan.pcp = 2; => actions=set_field:0x4000/0xe000->vlan_tci, prereqs=vlan.tci[12]
461 vlan.tci[13..15] = 2; => actions=set_field:0x4000/0xe000->vlan_tci, prereqs=1
462 inport = ""; => actions=set_field:0->reg6,set_field:0->in_port, prereqs=1
463 ip.ttl = 4; => actions=set_field:4->nw_ttl, prereqs=eth.type == 0x800 || eth.type == 0x86dd
464 outport="eth0"; next; outport="LOCAL"; next; => actions=set_field:0x5->reg7,resubmit(,27),set_field:0xfffe->reg7,resubmit(,27), prereqs=1
465
466 inport[1] = 1; => Cannot select subfield of string field inport.
467 ip.proto[1] = 1; => Cannot select subfield of nominal field ip.proto.
468 eth.dst[40] == 1; => Syntax error at `==' expecting `='.
469 ip = 1; => Predicate symbol ip used where lvalue required.
470 ip.proto = 6; => Field ip.proto is not modifiable.
471 inport = {"a", "b"}; => Assignments require a single value.
472 inport = {}; => Syntax error at `}' expecting constant.
473 bad_prereq = 123; => Error parsing expression `xyzzy' encountered as prerequisite or predicate of initial expression: Syntax error at `xyzzy' expecting field name.
474 self_recurse = 123; => Error parsing expression `self_recurse != 0' encountered as prerequisite or predicate of initial expression: Error parsing expression `self_recurse != 0' encountered as prerequisite or predicate of initial expression: Recursive expansion of symbol `self_recurse'.
475 vlan.present = 0; => Predicate symbol vlan.present used where lvalue required.
476
477 # Moving one field into another.
478 reg0 = reg1; => actions=move:OXM_OF_PKT_REG0[0..31]->OXM_OF_PKT_REG0[32..63], prereqs=1
479 vlan.pcp = reg0[0..2]; => actions=move:OXM_OF_PKT_REG0[32..34]->NXM_OF_VLAN_TCI[13..15], prereqs=vlan.tci[12]
480 reg0[10] = vlan.pcp[1]; => actions=move:NXM_OF_VLAN_TCI[14]->OXM_OF_PKT_REG0[42], prereqs=vlan.tci[12]
481 outport = inport; => actions=move:NXM_NX_REG6[]->NXM_NX_REG7[], prereqs=1
482
483 reg0[0] = vlan.present; => Predicate symbol vlan.present used where lvalue required.
484 reg0 = reg1[0..10]; => Can't assign 11-bit value to 32-bit destination.
485 inport = reg0; => Can't assign integer field (reg0) to string field (inport).
486 inport = big_string; => String fields inport and big_string are incompatible for assignment.
487 ip.proto = reg0[0..7]; => Field ip.proto is not modifiable.
488
489 # Exchanging fields.
490 reg0 <-> reg1; => actions=push:OXM_OF_PKT_REG0[0..31],push:OXM_OF_PKT_REG0[32..63],pop:OXM_OF_PKT_REG0[0..31],pop:OXM_OF_PKT_REG0[32..63], prereqs=1
491 vlan.pcp <-> reg0[0..2]; => actions=push:OXM_OF_PKT_REG0[32..34],push:NXM_OF_VLAN_TCI[13..15],pop:OXM_OF_PKT_REG0[32..34],pop:NXM_OF_VLAN_TCI[13..15], prereqs=vlan.tci[12]
492 reg0[10] <-> vlan.pcp[1]; => actions=push:NXM_OF_VLAN_TCI[14],push:OXM_OF_PKT_REG0[42],pop:NXM_OF_VLAN_TCI[14],pop:OXM_OF_PKT_REG0[42], prereqs=vlan.tci[12]
493 outport <-> inport; => actions=push:NXM_NX_REG6[],push:NXM_NX_REG7[],pop:NXM_NX_REG6[],pop:NXM_NX_REG7[], prereqs=1
494
495 reg0[0] <-> vlan.present; => Predicate symbol vlan.present used where lvalue required.
496 reg0 <-> reg1[0..10]; => Can't exchange 32-bit field with 11-bit field.
497 inport <-> reg0; => Can't exchange string field (inport) with integer field (reg0).
498 inport <-> big_string; => String fields inport and big_string are incompatible for exchange.
499 ip.proto <-> reg0[0..7]; => Field ip.proto is not modifiable.
500 reg0[0..7] <-> ip.proto; => Field ip.proto is not modifiable.
501
502 # TTL decrement.
503 ip.ttl--; => actions=dec_ttl, prereqs=ip
504 ip.ttl => Syntax error at end of input expecting `--'.
505
506 # conntrack
507 ct_next; => actions=ct(table=27,zone=NXM_NX_REG5[0..15]), prereqs=ip
508 ct_commit; => actions=ct(commit,zone=NXM_NX_REG5[0..15]), prereqs=ip
509
510 # arp
511 arp { eth.dst = ff:ff:ff:ff:ff:ff; output; }; => actions=controller(userdata=00.00.00.00.00.00.00.00.00.19.00.10.80.00.06.06.ff.ff.ff.ff.ff.ff.00.00.ff.ff.00.10.00.00.23.20.00.0e.ff.f8.40.00.00.00), prereqs=ip4
512
513 # Contradictionary prerequisites (allowed but not useful):
514 ip4.src = ip6.src[0..31]; => actions=move:NXM_NX_IPV6_SRC[0..31]->NXM_OF_IP_SRC[], prereqs=eth.type == 0x800 && eth.type == 0x86dd
515 ip4.src <-> ip6.src[0..31]; => actions=push:NXM_NX_IPV6_SRC[0..31],push:NXM_OF_IP_SRC[],pop:NXM_NX_IPV6_SRC[0..31],pop:NXM_OF_IP_SRC[], prereqs=eth.type == 0x800 && eth.type == 0x86dd
516
517 ## Miscellaneous negative tests.
518 ; => Syntax error at `;'.
519 xyzzy; => Syntax error at `xyzzy' expecting action.
520 next; 123; => Syntax error at `123'.
521 next; xyzzy; => Syntax error at `xyzzy' expecting action.
522 next => Syntax error at end of input expecting ';'.
523 ]])
524 sed 's/ =>.*//' test-cases.txt > input.txt
525 sed 's/.* => //' test-cases.txt > expout
526 AT_CHECK([ovstest test-ovn parse-actions < input.txt], [0], [expout])
527 AT_CLEANUP
528
529 AT_BANNER([OVN end-to-end tests])
530
531 # 3 hypervisors, one logical switch, 3 logical ports per hypervisor
532 AT_SETUP([ovn -- 3 HVs, 1 LS, 3 lports/HV])
533 AT_KEYWORDS([ovnarp])
534 AT_SKIP_IF([test $HAVE_PYTHON = no])
535 ovn_start
536
537 # Create hypervisors hv[123].
538 # Add vif1[123] to hv1, vif2[123] to hv2, vif3[123] to hv3.
539 # Add all of the vifs to a single logical switch lsw0.
540 # Turn on port security on all the vifs except vif[123]1.
541 # Make vif13, vif2[23], vif3[123] destinations for unknown MACs.
542 # Add some ACLs for Ethertypes 1234, 1235, 1236.
543 ovn-nbctl lswitch-add lsw0
544 net_add n1
545 for i in 1 2 3; do
546     sim_add hv$i
547     as hv$i
548     ovs-vsctl add-br br-phys
549     ovn_attach n1 br-phys 192.168.0.$i
550
551     for j in 1 2 3; do
552         ovs-vsctl add-port br-int vif$i$j -- set Interface vif$i$j external-ids:iface-id=lp$i$j options:tx_pcap=hv$i/vif$i$j-tx.pcap options:rxq_pcap=hv$i/vif$i$j-rx.pcap ofport-request=$i$j
553         ovn-nbctl lport-add lsw0 lp$i$j
554         if test $j = 1; then
555             ovn-nbctl lport-set-addresses lp$i$j "f0:00:00:00:00:$i$j 192.168.0.$i$j" unknown
556         else
557             if test $j = 3; then
558                 ip_addrs="192.168.0.$i$j fe80::ea2a:eaff:fe28:$i$j/64 192.169.0.$i$j"
559             else
560                 ip_addrs="192.168.0.$i$j"
561             fi
562             ovn-nbctl lport-set-addresses lp$i$j "f0:00:00:00:00:$i$j $ip_addrs"
563             ovn-nbctl lport-set-port-security lp$i$j f0:00:00:00:00:$i$j
564         fi
565     done
566 done
567 ovn-nbctl acl-add lsw0 from-lport 1000 'eth.type == 0x1234' drop
568 ovn-nbctl acl-add lsw0 from-lport 1000 'eth.type == 0x1235 && inport == "lp11"' drop
569 ovn-nbctl acl-add lsw0 to-lport 1000 'eth.type == 0x1236 && outport == "lp33"' drop
570
571 # Pre-populate the hypervisors' ARP tables so that we don't lose any
572 # packets for ARP resolution (native tunneling doesn't queue packets
573 # for ARP resolution).
574 ovn_populate_arp
575
576 # Allow some time for ovn-northd and ovn-controller to catch up.
577 # XXX This should be more systematic.
578 sleep 1
579 ovn-sbctl dump-flows -- list multicast_group
580
581 echo "------ hv1 dump ------"
582 as hv1 ovs-vsctl show
583 as hv1 ovs-ofctl -O OpenFlow13 dump-flows br-int
584
585 echo "------ hv2 dump ------"
586 as hv2 ovs-vsctl show
587 as hv2 ovs-ofctl -O OpenFlow13 dump-flows br-int
588
589 echo "------ hv3 dump ------"
590 as hv3 ovs-vsctl show
591 as hv3 ovs-ofctl -O OpenFlow13 dump-flows br-int
592
593 # Given the name of a logical port, prints the name of the hypervisor
594 # on which it is located.
595 vif_to_hv() {
596     echo hv${1%?}
597 }
598
599 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
600 #
601 # This shell function causes a packet to be received on INPORT.  The packet's
602 # content has Ethernet destination DST and source SRC (each exactly 12 hex
603 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
604 # more) list the VIFs on which the packet should be received.  INPORT and the
605 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
606 trim_zeros() {
607     sed 's/\(00\)\{1,\}$//'
608 }
609 for i in 1 2 3; do
610     for j in 1 2 3; do
611         : > $i$j.expected
612     done
613 done
614 test_packet() {
615     local inport=$1 packet=$2$3$4; shift; shift; shift; shift
616     hv=`vif_to_hv $inport`
617     vif=vif$inport
618     as $hv ovs-appctl netdev-dummy/receive $vif $packet
619     for outport; do
620         echo $packet | trim_zeros >> $outport.expected
621     done
622 }
623
624 # test_arp INPORT SHA SPA TPA [REPLY_HA]
625 #
626 # Causes a packet to be received on INPORT.  The packet is an ARP
627 # request with SHA, SPA, and TPA as specified.  If REPLY_HA is provided, then
628 # it should be the hardware address of the target to expect to receive in an
629 # ARP reply; otherwise no reply is expected.
630 #
631 # INPORT is an lport number, e.g. 11 for vif11.
632 # SHA and REPLY_HA are each 12 hex digits.
633 # SPA and TPA are each 8 hex digits.
634 test_arp() {
635     local inport=$1 sha=$2 spa=$3 tpa=$4 reply_ha=$5
636     local request=ffffffffffff${sha}08060001080006040001${sha}${spa}ffffffffffff${tpa}
637     hv=`vif_to_hv $inport`
638     as $hv ovs-appctl netdev-dummy/receive vif$inport $request
639
640     if test X$reply_ha = X; then
641         # Expect to receive the broadcast ARP on the other logical switch ports
642         # if no reply is expected.
643         local i j
644         for i in 1 2 3; do
645             for j in 1 2 3; do
646                 if test $i$j != $inport; then
647                     echo $request >> $i$j.expected
648                 fi
649             done
650         done
651     else
652         # Expect to receive the reply, if any.
653         local reply=${sha}${reply_ha}08060001080006040002${reply_ha}${tpa}${sha}${spa}
654         echo $reply >> $inport.expected
655     fi
656 }
657
658 ip_to_hex() {
659     printf "%02x%02x%02x%02x" "$@"
660 }
661
662 # Send packets between all pairs of source and destination ports:
663 #
664 # 1. Unicast packets are delivered to exactly one lport (except that packets
665 #    destined to their input ports are dropped).
666 #
667 # 2. Broadcast and multicast are delivered to all lports except the input port.
668 #
669 # 3. When port security is turned on, the lswitch drops packets from the wrong
670 #    MAC address.
671 #
672 # 4. The lswitch drops all packets with a VLAN tag.
673 #
674 # 5. The lswitch drops all packets with a multicast source address.  (This only
675 #    affects behavior when port security is turned off, since otherwise port
676 #    security would drop the packet anyway.)
677 #
678 # 6. The lswitch delivers packets with an unknown destination to lports with
679 #    "unknown" among their MAC addresses (and port security disabled).
680 #
681 # 7. The lswitch drops unicast packets that violate an ACL.
682 #
683 # 8. The lswitch drops multicast and broadcast packets that violate an ACL.
684 #
685 # 9. ARP requests to known IPs are responded directly.
686 #
687 # 10. No response to ARP requests for unknown IPs.
688 for is in 1 2 3; do
689     for js in 1 2 3; do
690         s=$is$js
691         bcast=
692         unknown=
693         bacl2=
694         bacl3=
695         for id in 1 2 3; do
696             for jd in 1 2 3; do
697                 d=$id$jd
698
699                 if test $d != $s; then unicast=$d; else unicast=; fi
700                 test_packet $s f000000000$d f000000000$s $s$d $unicast     #1
701
702                 if test $d != $s && test $js = 1; then
703                     impersonate=$d
704                 else
705                     impersonate=
706                 fi
707                 test_packet $s f000000000$d f00000000055 55$d $impersonate #3
708
709                 if test $d != $s && test $s != 11; then acl2=$d; else acl2=; fi
710                 if test $d != $s && test $d != 33; then acl3=$d; else acl3=; fi
711                 test_packet $s f000000000$d f000000000$s 1234        #7, acl1
712                 test_packet $s f000000000$d f000000000$s 1235 $acl2  #7, acl2
713                 test_packet $s f000000000$d f000000000$s 1236 $acl3  #7, acl3
714
715                 test_packet $s f000000000$d f00000000055 810000091234      #4
716                 test_packet $s f000000000$d 0100000000$s $s$d              #5
717
718                 if test $d != $s && test $jd = 1; then
719                     unknown="$unknown $d"
720                 fi
721                 bcast="$bcast $unicast"
722                 bacl2="$bacl2 $acl2"
723                 bacl3="$bacl3 $acl3"
724
725                 sip=`ip_to_hex 192 168 0 $i$j`
726                 tip=`ip_to_hex 192 168 0 $id$jd`
727                 tip_unknown=`ip_to_hex 11 11 11 11`
728                 test_arp $s f000000000$s $sip $tip f000000000$d            #9
729                 test_arp $s f000000000$s $sip $tip_unknown                 #10
730
731                 if test $jd = 3; then
732                     # lport[123]3 has an additional ip 192.169.0.[123]3.
733                     tip=`ip_to_hex 192 169 0 $id$jd`
734                     test_arp $s f000000000$s $sip $tip f000000000$d        #9
735                 fi
736             done
737         done
738
739         # Broadcast and multicast.
740         test_packet $s ffffffffffff f000000000$s ${s}ff $bcast             #2
741         test_packet $s 010000000000 f000000000$s ${s}ff $bcast             #2
742         if test $js = 1; then
743             bcast_impersonate=$bcast
744         else
745             bcast_impersonate=
746         fi
747         test_packet $s 010000000000 f00000000044 44ff $bcast_impersonate   #3
748
749         test_packet $s f0000000ffff f000000000$s ${s}66 $unknown           #6
750
751         test_packet $s ffffffffffff f000000000$s 1234                #8, acl1
752         test_packet $s ffffffffffff f000000000$s 1235 $bacl2         #8, acl2
753         test_packet $s ffffffffffff f000000000$s 1236 $bacl3         #8, acl3
754         test_packet $s 010000000000 f000000000$s 1234                #8, acl1
755         test_packet $s 010000000000 f000000000$s 1235 $bacl2         #8, acl2
756         test_packet $s 010000000000 f000000000$s 1236 $bacl3         #8, acl3
757     done
758 done
759
760 # set address for lp13 with invalid characters.
761 # lp13 should be configured with only 192.168.0.13.
762 ovn-nbctl lport-set-addresses lp13 "f0:00:00:00:00:13 192.168.0.13 invalid 192.169.0.13"
763 sip=`ip_to_hex 192 168 0 11`
764 tip=`ip_to_hex 192 168 0 13`
765 test_arp 11 f00000000011  $sip $tip f00000000013
766
767 tip=`ip_to_hex 192 169 0 13`
768 #arp request for 192.169.0.13 should be flooded
769 test_arp 11 f00000000011  $sip $tip
770
771 # Allow some time for packet forwarding.
772 # XXX This can be improved.
773 sleep 1
774
775 # Now check the packets actually received against the ones expected.
776 for i in 1 2 3; do
777     for j in 1 2 3; do
778         file=hv$i/vif$i$j-tx.pcap
779         echo $file
780         $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j.packets
781         sort $i$j.expected > expout
782         AT_CHECK([sort $i$j.packets], [0], [expout])
783         echo
784     done
785 done
786
787 # Gracefully terminate daemons
788 for daemon in ovn-controller ovn-northd ovsdb-server; do
789     ovs-appctl -t $daemon exit
790 done
791 AT_CLEANUP
792
793 # 2 hypervisors, 4 logical ports per HV
794 # 2 locally attached networks (one flat, one vlan tagged over same device)
795 # 2 ports per HV on each network
796 AT_SETUP([ovn -- 2 HVs, 4 lports/HV, localnet ports])
797 AT_KEYWORDS([ovn-localnet])
798 AT_SKIP_IF([test $HAVE_PYTHON = no])
799 ovn_start
800
801 # We model each logical port connectivity to a locally attached
802 # physical network with its own logical switch.  One port is
803 # for the VIF, and the other port is a special 'localnet' port.
804
805 net_add n1
806 for i in 1 2; do
807     sim_add hv$i
808     as hv$i
809     ovs-vsctl add-br br-phys
810     ovs-vsctl set open . external-ids:ovn-bridge-mappings=phys:br-phys
811     ovn_attach n1 br-phys 192.168.0.$i
812
813     for j in 1 2 3 4; do
814         ovs-vsctl add-port br-int vif$i$j -- \
815             set Interface vif$i$j external-ids:iface-id=lp$i$j \
816                                   options:tx_pcap=hv$i/vif$i$j-tx.pcap \
817                                   options:rxq_pcap=hv$i/vif$i$j-rx.pcap \
818                                   ofport-request=$i$j
819
820         lswitch_name=phys-lp$i$j
821         lport_name=lp$i$j
822         ln_port_name=phys-ln-$i$j
823
824         ovn-nbctl lswitch-add $lswitch_name
825
826         if test $j -le 2; then
827             ovn-nbctl lport-add $lswitch_name $ln_port_name
828         else
829             ovn-nbctl lport-add $lswitch_name $ln_port_name "" 101
830         fi
831         ovn-nbctl lport-set-addresses $ln_port_name unknown
832         ovn-nbctl lport-set-type $ln_port_name localnet
833         ovn-nbctl lport-set-options $ln_port_name network_name=phys
834
835         ovn-nbctl lport-add $lswitch_name $lport_name
836         ovn-nbctl lport-set-addresses $lport_name f0:00:00:00:00:$i$j
837         ovn-nbctl lport-set-port-security $lport_name f0:00:00:00:00:$i$j
838
839         OVS_WAIT_UNTIL([test x`ovn-nbctl lport-get-up $lport_name` = xup])
840     done
841 done
842
843 ovn_populate_arp
844
845 # XXX This is now the 3rd copy of these functions in this file ...
846
847 # Given the name of a logical port, prints the name of the hypervisor
848 # on which it is located.
849 vif_to_hv() {
850     echo hv${1%?}
851 }
852 #
853 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
854 #
855 # This shell function causes a packet to be received on INPORT.  The packet's
856 # content has Ethernet destination DST and source SRC (each exactly 12 hex
857 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
858 # more) list the VIFs on which the packet should be received.  INPORT and the
859 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
860 trim_zeros() {
861     sed 's/\(00\)\{1,\}$//'
862 }
863 for i in 1 2; do
864     for j in 1 2 3 4; do
865         : > $i$j.expected
866     done
867 done
868 test_packet() {
869     local inport=$1 src=$2 dst=$3 eth=$4; shift; shift; shift; shift
870     local packet=${src}${dst}${eth}
871     hv=`vif_to_hv $inport`
872     vif=vif$inport
873     as $hv ovs-appctl netdev-dummy/receive $vif $packet
874     for outport; do
875         echo $packet | trim_zeros >> $outport.expected
876     done
877 }
878
879 # lp11 and lp21 are on the same network (phys, untagged)
880 # and on different hypervisors
881 test_packet 11 f00000000021 f00000000011 1121 21
882 test_packet 21 f00000000011 f00000000021 2111 11
883
884 # lp11 and lp12 are on the same network (phys, untagged)
885 # and on the same hypervisor
886 test_packet 11 f00000000012 f00000000011 1112 12
887 test_packet 12 f00000000011 f00000000012 1211 11
888
889 # lp13 and lp23 are on the same network (phys, VLAN 101)
890 # and on different hypervisors
891 test_packet 13 f00000000023 f00000000013 1323 23
892 test_packet 23 f00000000013 f00000000023 2313 13
893
894 # lp13 and lp14 are on the same network (phys, VLAN 101)
895 # and on the same hypervisor
896 test_packet 13 f00000000014 f00000000013 1314 14
897 test_packet 14 f00000000013 f00000000014 1413 13
898
899 # Ports that should not be able to communicate
900 test_packet 11 f00000000013 f00000000011 1113
901 test_packet 11 f00000000023 f00000000011 1123
902 test_packet 21 f00000000013 f00000000021 2113
903 test_packet 21 f00000000023 f00000000021 2123
904 test_packet 13 f00000000011 f00000000013 1311
905 test_packet 13 f00000000021 f00000000013 1321
906 test_packet 23 f00000000011 f00000000023 2311
907 test_packet 23 f00000000021 f00000000023 2321
908
909 # Allow some time for packet forwarding.
910 # XXX This can be improved.
911 sleep 1
912
913 # Dump a bunch of info helpful for debugging if there's a failure.
914
915 echo "------ OVN dump ------"
916 ovn-nbctl show
917 ovn-sbctl show
918
919 echo "------ hv1 dump ------"
920 as hv1 ovs-vsctl show
921 as hv1 ovs-ofctl -O OpenFlow13 dump-flows br-int
922
923 echo "------ hv2 dump ------"
924 as hv2 ovs-vsctl show
925 as hv2 ovs-ofctl -O OpenFlow13 dump-flows br-int
926
927 # Now check the packets actually received against the ones expected.
928 for i in 1 2; do
929     for j in 1 2 3 4; do
930         file=hv$i/vif$i$j-tx.pcap
931         echo $file
932         $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j.packets
933         sort $i$j.expected > expout
934         AT_CHECK([sort $i$j.packets], [0], [expout])
935         echo
936     done
937 done
938
939 # Gracefully terminate daemons
940 for daemon in ovn-controller ovn-northd ovsdb-server; do
941     ovs-appctl -t $daemon exit
942 done
943 AT_CLEANUP
944
945 AT_SETUP([ovn -- 3 HVs, 1 VIFs/HV, 1 GW, 1 LS])
946 AT_SKIP_IF([test $HAVE_PYTHON = no])
947 ovn_start
948
949 # Configure the Northbound database
950 ovn-nbctl lswitch-add lsw0
951
952 ovn-nbctl lport-add lsw0 lp1
953 ovn-nbctl lport-set-addresses lp1 f0:00:00:00:00:01
954
955 ovn-nbctl lport-add lsw0 lp2
956 ovn-nbctl lport-set-addresses lp2 f0:00:00:00:00:02
957
958 ovn-nbctl lport-add lsw0 lp-vtep
959 ovn-nbctl lport-set-type lp-vtep vtep
960 ovn-nbctl lport-set-options lp-vtep vtep-physical-switch=br-vtep vtep-logical-switch=lsw0
961 ovn-nbctl lport-set-addresses lp-vtep unknown
962
963 net_add n1               # Network to connect hv1, hv2, and vtep
964 net_add n2               # Network to connect vtep and hv3
965
966 # Create hypervisor hv1 connected to n1
967 sim_add hv1
968 as hv1
969 ovs-vsctl add-br br-phys
970 ovn_attach n1 br-phys 192.168.0.1
971 ovs-vsctl add-port br-int vif1 -- set Interface vif1 external-ids:iface-id=lp1 options:tx_pcap=hv1/vif1-tx.pcap options:rxq_pcap=hv1/vif1-rx.pcap ofport-request=1
972
973 # Create hypervisor hv2 connected to n1
974 sim_add hv2
975 as hv2
976 ovs-vsctl add-br br-phys
977 ovn_attach n1 br-phys 192.168.0.2
978 ovs-vsctl add-port br-int vif2 -- set Interface vif2 external-ids:iface-id=lp2 options:tx_pcap=hv2/vif2-tx.pcap options:rxq_pcap=hv2/vif2-rx.pcap ofport-request=1
979
980
981 # Start the vtep emulator with a leg in both networks
982 sim_add vtep
983 as vtep
984
985 ovsdb-tool create "$ovs_base"/vtep/vtep.db "$abs_top_srcdir"/vtep/vtep.ovsschema || return 1
986 ovs-appctl -t ovsdb-server ovsdb-server/add-db "$ovs_base"/vtep/vtep.db
987
988 ovs-vsctl add-br br-phys
989 net_attach n1 br-phys
990
991 mac=`ovs-vsctl get Interface br-phys mac_in_use | sed s/\"//g`
992 arp_table="$arp_table $sandbox,br-phys,192.168.0.3,$mac"
993 ovs-appctl netdev-dummy/ip4addr br-phys 192.168.0.3/24 >/dev/null || return 1
994 ovs-appctl ovs/route/add 192.168.0.3/24 br-phys >/dev/null || return 1
995
996 ovs-vsctl add-br br-vtep
997 net_attach n2 br-vtep
998
999 vtep-ctl add-ps br-vtep
1000 vtep-ctl set Physical_Switch br-vtep tunnel_ips=192.168.0.3
1001 vtep-ctl add-ls lsw0
1002
1003 start_daemon ovs-vtep br-vtep
1004 start_daemon ovn-controller-vtep --vtep-db=unix:"$ovs_base"/vtep/db.sock --ovnsb-db=unix:"$ovs_base"/ovn-sb/ovn-sb.sock
1005
1006 sleep 1
1007
1008 vtep-ctl bind-ls br-vtep br-vtep_n2 0 lsw0
1009
1010 sleep 1
1011
1012 # Add hv3 on the other side of the vtep
1013 sim_add hv3
1014 as hv3
1015 ovs-vsctl add-br br-phys
1016 net_attach n2 br-phys
1017
1018 ovs-vsctl add-port br-phys vif3 -- set Interface vif3 options:tx_pcap=hv3/vif3-tx.pcap options:rxq_pcap=hv3/vif3-rx.pcap ofport-request=1
1019
1020 # Pre-populate the hypervisors' ARP tables so that we don't lose any
1021 # packets for ARP resolution (native tunneling doesn't queue packets
1022 # for ARP resolution).
1023 ovn_populate_arp
1024
1025 # Allow some time for ovn-northd and ovn-controller to catch up.
1026 # XXX This should be more systematic.
1027 sleep 1
1028 ovn-sbctl show
1029
1030 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
1031 #
1032 # This shell function causes a packet to be received on INPORT.  The packet's
1033 # content has Ethernet destination DST and source SRC (each exactly 12 hex
1034 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
1035 # more) list the VIFs on which the packet should be received.  INPORT and the
1036 # OUTPORTs are specified as lport numbers, e.g. 1 for vif1.
1037 trim_zeros() {
1038     sed 's/\(00\)\{1,\}$//'
1039 }
1040 for i in 1 2 3; do
1041     : > $i.expected
1042 done
1043 test_packet() {
1044     local inport=$1 packet=$2$3$4; shift; shift; shift; shift
1045     #hv=hv`echo $inport | sed 's/^\(.\).*/\1/'`
1046     hv=hv$inport
1047     vif=vif$inport
1048     as $hv ovs-appctl netdev-dummy/receive $vif $packet
1049     for outport; do
1050         echo $packet | trim_zeros >> $outport.expected
1051     done
1052 }
1053
1054 # Send packets between all pairs of source and destination ports:
1055 #
1056 # 1. Unicast packets are delivered to exactly one lport (except that packets
1057 #    destined to their input ports are dropped).
1058 #
1059 # 2. Broadcast and multicast are delivered to all lports except the input port.
1060 #
1061 # 3. The lswitch delivers packets with an unknown destination to lports with
1062 #    "unknown" among their MAC addresses (and port security disabled).
1063 for s in 1 2 3; do
1064     bcast=
1065     unknown=
1066     for d in 1 2 3; do
1067         if test $d != $s; then unicast=$d; else unicast=; fi
1068         test_packet $s f0000000000$d f0000000000$s 00$s$d $unicast       #1
1069
1070         # The vtep (vif3) is the only one configured for "unknown"
1071         if test $d != $s && test $d = 3; then
1072             unknown="$unknown $d"
1073         fi
1074         bcast="$bcast $unicast"
1075     done
1076
1077     # Broadcast and multicast.
1078     # xxx ovn-controller-vtep doesn't handle multicast traffic that is
1079     # xxx sourced from the gateway properly.
1080     #test_packet $s ffffffffffff f0000000000$s 0${s}ff $bcast             #2
1081     #test_packet $s 010000000000 f0000000000$s 0${s}ff $bcast             #2
1082
1083     test_packet $s f0000000ffff f0000000000$s 0${s}66 $unknown           #3
1084 done
1085
1086 # Allow some time for packet forwarding.
1087 # XXX This can be improved.
1088 sleep 1
1089
1090 # Now check the packets actually received against the ones expected.
1091 for i in 1 2 3; do
1092     file=hv$i/vif$i-tx.pcap
1093     echo $file
1094     $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i.packets
1095     sort $i.expected > expout
1096     AT_CHECK([sort $i.packets], [0], [expout])
1097     echo
1098 done
1099
1100 # Gracefully terminate daemons
1101 for daemon in ovs-vtep ovn-controller-vtep ovn-controller ovn-northd ovsdb-server; do
1102     ovs-appctl -t $daemon exit
1103 done
1104 AT_CLEANUP
1105
1106 # 3 hypervisors, 3 logical switches with 3 logical ports each, 1 logical router
1107 AT_SETUP([ovn -- 3 HVs, 3 LS, 3 lports/LS, 1 LR])
1108 AT_SKIP_IF([test $HAVE_PYTHON = no])
1109 ovn_start
1110
1111 # Logical network:
1112 #
1113 # Three logical switches ls1, ls2, ls3.
1114 # One logical router lr0 connected to ls[123],
1115 # with nine subnets, three per logical switch:
1116 #
1117 #    lrp11 on ls1 for subnet 192.168.11.0/24
1118 #    lrp12 on ls1 for subnet 192.168.12.0/24
1119 #    lrp13 on ls1 for subnet 192.168.13.0/24
1120 #    ...
1121 #    lrp33 on ls3 for subnet 192.168.33.0/24
1122 #
1123 # 27 VIFs, 9 per LS, 3 per subnet: lp[123][123][123], where the first two
1124 # digits are the subnet and the last digit distinguishes the VIF.
1125 for i in 1 2 3; do
1126     ovn-nbctl lswitch-add ls$i
1127     for j in 1 2 3; do
1128         for k in 1 2 3; do
1129             ovn-nbctl \
1130                 -- lport-add ls$i lp$i$j$k \
1131                 -- lport-set-addresses lp$i$j$k "f0:00:00:00:0$i:$j$k 192.168.$i$j.$k"
1132         done
1133     done
1134 done
1135
1136 ovn-nbctl create Logical_Router name=lr0
1137 for i in 1 2 3; do
1138     for j in 1 2 3; do
1139         lrp_uuid=`ovn-nbctl \
1140             -- --id=@lrp create Logical_Router_Port name=lrp$i$j \
1141                network=192.168.$i$j.254/24 mac='"00:00:00:00:ff:'$i$j'"' \
1142             -- add Logical_Router lr0 ports @lrp \
1143             -- lport-add ls$i lrp$i$j-attachment`
1144         ovn-nbctl \
1145             set Logical_Port lrp$i$j-attachment type=router \
1146                              options:router-port=lrp$i$j \
1147                              addresses='"00:00:00:00:ff:'$i$j'"'
1148     done
1149 done
1150
1151 ovn-nbctl set Logical_Port lrp33-attachment \
1152     addresses='"00:00:00:00:ff:33 192.168.33.254"'
1153
1154 # Physical network:
1155 #
1156 # Three hypervisors hv[123].
1157 # lp?1[123] spread across hv[123]: lp?11 on hv1, lp?12 on hv2, lp?13 on hv3.
1158 # lp?2[123] spread across hv[23]: lp?21 and lp?22 on hv2, lp?23 on hv3.
1159 # lp?3[123] all on hv3.
1160
1161
1162 # Given the name of a logical port, prints the name of the hypervisor
1163 # on which it is located.
1164 vif_to_hv() {
1165     case $1 in dnl (
1166         ?11) echo 1 ;; dnl (
1167         ?12 | ?21 | ?22) echo 2 ;; dnl (
1168         ?13 | ?23 | ?3?) echo 3 ;;
1169     esac
1170 }
1171
1172 # Given the name of a logical port, prints the name of its logical router
1173 # port, e.g. "vif_to_lrp 123" yields 12.
1174 vif_to_lrp() {
1175     echo ${1%?}
1176 }
1177
1178 # Given the name of a logical port, prints the name of its logical
1179 # switch, e.g. "vif_to_ls 123" yields 1.
1180 vif_to_ls() {
1181     echo ${1%??}
1182 }
1183
1184 net_add n1
1185 for i in 1 2 3; do
1186     sim_add hv$i
1187     as hv$i
1188     ovs-vsctl add-br br-phys
1189     ovn_attach n1 br-phys 192.168.0.$i
1190 done
1191 for i in 1 2 3; do
1192     for j in 1 2 3; do
1193         for k in 1 2 3; do
1194             hv=`vif_to_hv $i$j$k`
1195             as hv$hv ovs-vsctl \
1196                 -- add-port br-int vif$i$j$k \
1197                 -- set Interface vif$i$j$k \
1198                        external-ids:iface-id=lp$i$j$k \
1199                        options:tx_pcap=hv$hv/vif$i$j$k-tx.pcap \
1200                        options:rxq_pcap=hv$hv/vif$i$j$k-rx.pcap \
1201                        ofport-request=$i$j$k
1202         done
1203     done
1204 done
1205
1206 # Pre-populate the hypervisors' ARP tables so that we don't lose any
1207 # packets for ARP resolution (native tunneling doesn't queue packets
1208 # for ARP resolution).
1209 ovn_populate_arp
1210
1211 # Allow some time for ovn-northd and ovn-controller to catch up.
1212 # XXX This should be more systematic.
1213 sleep 1
1214
1215 # test_ip INPORT SRC_MAC DST_MAC SRC_IP DST_IP OUTPORT...
1216 #
1217 # This shell function causes a packet to be received on INPORT.  The packet's
1218 # content has Ethernet destination DST and source SRC (each exactly 12 hex
1219 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
1220 # more) list the VIFs on which the packet should be received.  INPORT and the
1221 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
1222 trim_zeros() {
1223     sed 's/\(00\)\{1,\}$//'
1224 }
1225 for i in 1 2 3; do
1226     for j in 1 2 3; do
1227         for k in 1 2 3; do
1228             : > $i$j$k.expected
1229         done
1230     done
1231 done
1232 test_ip() {
1233     # This packet has bad checksums but logical L3 routing doesn't check.
1234     local inport=$1 src_mac=$2 dst_mac=$3 src_ip=$4 dst_ip=$5
1235     local packet=${dst_mac}${src_mac}08004500001c0000000040110000${src_ip}${dst_ip}0035111100080000
1236     shift; shift; shift; shift; shift
1237     hv=hv`vif_to_hv $inport`
1238     as $hv ovs-appctl netdev-dummy/receive vif$inport $packet
1239     #as $hv ovs-appctl ofproto/trace br-int in_port=$inport $packet
1240     in_ls=`vif_to_ls $inport`
1241     in_lrp=`vif_to_lrp $inport`
1242     for outport; do
1243         out_ls=`vif_to_ls $outport`
1244         if test $in_ls = $out_ls; then
1245             # Ports on the same logical switch receive exactly the same packet.
1246             echo $packet
1247         else
1248             # Routing decrements TTL and updates source and dest MAC
1249             # (and checksum).
1250             out_lrp=`vif_to_lrp $outport`
1251             echo f00000000${outport}00000000ff${out_lrp}08004500001c00000000"3f1101"00${src_ip}${dst_ip}0035111100080000
1252         fi | trim_zeros >> $outport.expected
1253     done
1254 }
1255
1256 as hv1 ovs-vsctl --columns=name,ofport list interface
1257 as hv1 ovn-sbctl dump-flows
1258 as hv1 ovs-ofctl dump-flows br-int
1259
1260 # Send IP packets between all pairs of source and destination ports:
1261 #
1262 # 1. Unicast IP packets are delivered to exactly one lport (except
1263 #    that packets destined to their input ports are dropped).
1264 #
1265 # 2. Broadcast IP packets are delivered to all lports except the input port.
1266 ip_to_hex() {
1267     printf "%02x%02x%02x%02x" "$@"
1268 }
1269 for is in 1 2 3; do
1270     for js in 1 2 3; do
1271         for ks in 1 2 3; do
1272             bcast=
1273             s=$is$js$ks
1274             smac=f00000000$s
1275             sip=`ip_to_hex 192 168 $is$js $ks`
1276             for id in 1 2 3; do
1277                 for jd in 1 2 3; do
1278                     for kd in 1 2 3; do
1279                         d=$id$jd$kd
1280                         dip=`ip_to_hex 192 168 $id$jd $kd`
1281                         if test $is = $id; then dmac=f00000000$d; else dmac=00000000ff$is$js; fi
1282                         if test $d != $s; then unicast=$d; else unicast=; fi
1283
1284                         test_ip $s $smac $dmac $sip $dip $unicast #1
1285
1286                         if test $id = $is && test $d != $s; then bcast="$bcast $d"; fi
1287                     done
1288                 done
1289             done
1290             test_ip $s $smac ffffffffffff $sip ffffffff $bcast #2
1291         done
1292     done
1293 done
1294
1295 # test_arp INPORT SHA SPA TPA [REPLY_HA]
1296 #
1297 # Causes a packet to be received on INPORT.  The packet is an ARP
1298 # request with SHA, SPA, and TPA as specified.  If REPLY_HA is provided, then
1299 # it should be the hardware address of the target to expect to receive in an
1300 # ARP reply; otherwise no reply is expected.
1301 #
1302 # INPORT is an lport number, e.g. 11 for vif11.
1303 # SHA and REPLY_HA are each 12 hex digits.
1304 # SPA and TPA are each 8 hex digits.
1305 test_arp() {
1306     local inport=$1 sha=$2 spa=$3 tpa=$4 reply_ha=$5
1307     local request=ffffffffffff${sha}08060001080006040001${sha}${spa}ffffffffffff${tpa}
1308     hv=hv`vif_to_hv $inport`
1309     as $hv ovs-appctl netdev-dummy/receive vif$inport $request
1310     #as $hv ovs-appctl ofproto/trace br-int in_port=$inport $request
1311
1312     # Expect to receive the broadcast ARP on the other logical switch ports if
1313     # IP address is not configured to the lswitch patch port.
1314     local i=`vif_to_ls $inport`
1315     local j k
1316     for j in 1 2 3; do
1317         for k in 1 2 3; do
1318             # 192.168.33.254 is configured to the lswtich patch port for lrp33,
1319             # so no ARP flooding expected for it.
1320             if test $i$j$k != $inport && test $tpa != `ip_to_hex 192 168 33 254`; then
1321                 echo $request >> $i$j$k.expected
1322             fi
1323         done
1324     done
1325
1326     # Expect to receive the reply, if any.
1327     if test X$reply_ha != X; then
1328         lrp=`vif_to_lrp $inport`
1329         local reply=${sha}00000000ff${lrp}08060001080006040002${reply_ha}${tpa}${sha}${spa}
1330         echo $reply >> $inport.expected
1331     fi
1332 }
1333
1334 # Test router replies to ARP requests from all source ports:
1335 #
1336 # 3. Router replies to query for its MAC address from port's own IP address.
1337 #
1338 # 4. Router replies to query for its MAC address from any random IP address
1339 #    in its subnet.
1340 #
1341 # 5. Router replies to query for its MAC address from another subnet.
1342 #
1343 # 6. No reply to query for IP address other than router IP.
1344 for i in 1 2 3; do
1345     for j in 1 2 3; do
1346         for k in 1 2 3; do
1347             smac=f00000000$i$j$k               # Source MAC
1348             sip=`ip_to_hex 192 168 $i$j $k`    # Source IP
1349             rip=`ip_to_hex 192 168 $i$j 254`   # Router IP
1350             rmac=00000000ff$i$j                # Router MAC
1351             otherip=`ip_to_hex 192 168 $i$j 55` # Some other IP in subnet
1352             test_arp $i$j$k $smac $sip        $rip        $rmac #3
1353             test_arp $i$j$k $smac $otherip    $rip        $rmac #4
1354             test_arp $i$j$k $smac 0a123456    $rip        $rmac #5
1355             test_arp $i$j$k $smac $sip        $otherip          #6
1356         done
1357     done
1358 done
1359 # Allow some time for packet forwarding.
1360 # XXX This can be improved.
1361 sleep 1
1362
1363 # Now check the packets actually received against the ones expected.
1364 for i in 1 2 3; do
1365     for j in 1 2 3; do
1366         for k in 1 2 3; do
1367             file=hv`vif_to_hv $i$j$k`/vif$i$j$k-tx.pcap
1368             echo $file
1369             $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j$k.packets
1370             sort $i$j$k.expected > expout
1371             AT_CHECK([sort $i$j$k.packets], [0], [expout])
1372             echo
1373         done
1374     done
1375 done
1376
1377 # Gracefully terminate daemons
1378 for daemon in ovn-controller ovn-northd ovsdb-server; do
1379     ovs-appctl -t $daemon exit
1380 done
1381 AT_CLEANUP