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 # Contradictionary prerequisites (allowed but not useful):
 511 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
 512 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
 513
 514 ## Miscellaneous negative tests.
 515 ; => Syntax error at `;'.
 516 xyzzy; => Syntax error at `xyzzy' expecting action.
 517 next; 123; => Syntax error at `123'.
 518 next; xyzzy; => Syntax error at `xyzzy' expecting action.
 519 next => Syntax error at end of input expecting ';'.
 520 ]])
 521 sed 's/ =>.*//' test-cases.txt > input.txt
 522 sed 's/.* => //' test-cases.txt > expout
 523 AT_CHECK([ovstest test-ovn parse-actions < input.txt], [0], [expout])
 524 AT_CLEANUP
 525
 526 AT_BANNER([OVN end-to-end tests])
 527
 528 # 3 hypervisors, one logical switch, 3 logical ports per hypervisor
 529 AT_SETUP([ovn -- 3 HVs, 1 LS, 3 lports/HV])
 530 AT_KEYWORDS([ovnarp])
 531 AT_SKIP_IF([test $HAVE_PYTHON = no])
 532 ovn_start
 533
 534 # Create hypervisors hv[123].
 535 # Add vif1[123] to hv1, vif2[123] to hv2, vif3[123] to hv3.
 536 # Add all of the vifs to a single logical switch lsw0.
 537 # Turn on port security on all the vifs except vif[123]1.
 538 # Make vif13, vif2[23], vif3[123] destinations for unknown MACs.
 539 # Add some ACLs for Ethertypes 1234, 1235, 1236.
 540 ovn-nbctl lswitch-add lsw0
 541 net_add n1
 542 for i in 1 2 3; do
 543     sim_add hv$i
 544     as hv$i
 545     ovs-vsctl add-br br-phys
 546     ovn_attach n1 br-phys 192.168.0.$i
 547
 548     for j in 1 2 3; do
 549         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
 550         ovn-nbctl lport-add lsw0 lp$i$j
 551         if test $j = 1; then
 552             ovn-nbctl lport-set-addresses lp$i$j "f0:00:00:00:00:$i$j 192.168.0.$i$j" unknown
 553         else
 554             ovn-nbctl lport-set-addresses lp$i$j "f0:00:00:00:00:$i$j 192.168.0.$i$j"
 555             ovn-nbctl lport-set-port-security lp$i$j f0:00:00:00:00:$i$j
 556         fi
 557     done
 558 done
 559 ovn-nbctl acl-add lsw0 from-lport 1000 'eth.type == 0x1234' drop
 560 ovn-nbctl acl-add lsw0 from-lport 1000 'eth.type == 0x1235 && inport == "lp11"' drop
 561 ovn-nbctl acl-add lsw0 to-lport 1000 'eth.type == 0x1236 && outport == "lp33"' drop
 562
 563 # Pre-populate the hypervisors' ARP tables so that we don't lose any
 564 # packets for ARP resolution (native tunneling doesn't queue packets
 565 # for ARP resolution).
 566 ovn_populate_arp
 567
 568 # Allow some time for ovn-northd and ovn-controller to catch up.
 569 # XXX This should be more systematic.
 570 sleep 1
 571 ovn-sbctl dump-flows -- list multicast_group
 572
 573 # Given the name of a logical port, prints the name of the hypervisor
 574 # on which it is located.
 575 vif_to_hv() {
 576     echo hv${1%?}
 577 }
 578
 579 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
 580 #
 581 # This shell function causes a packet to be received on INPORT.  The packet's
 582 # content has Ethernet destination DST and source SRC (each exactly 12 hex
 583 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
 584 # more) list the VIFs on which the packet should be received.  INPORT and the
 585 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
 586 trim_zeros() {
 587     sed 's/\(00\)\{1,\}$//'
 588 }
 589 for i in 1 2 3; do
 590     for j in 1 2 3; do
 591         : > $i$j.expected
 592     done
 593 done
 594 test_packet() {
 595     local inport=$1 packet=$2$3$4; shift; shift; shift; shift
 596     hv=`vif_to_hv $inport`
 597     vif=vif$inport
 598     as $hv ovs-appctl netdev-dummy/receive $vif $packet
 599     for outport; do
 600         echo $packet | trim_zeros >> $outport.expected
 601     done
 602 }
 603
 604 # test_arp INPORT SHA SPA TPA [REPLY_HA]
 605 #
 606 # Causes a packet to be received on INPORT.  The packet is an ARP
 607 # request with SHA, SPA, and TPA as specified.  If REPLY_HA is provided, then
 608 # it should be the hardware address of the target to expect to receive in an
 609 # ARP reply; otherwise no reply is expected.
 610 #
 611 # INPORT is an lport number, e.g. 11 for vif11.
 612 # SHA and REPLY_HA are each 12 hex digits.
 613 # SPA and TPA are each 8 hex digits.
 614 test_arp() {
 615     local inport=$1 sha=$2 spa=$3 tpa=$4 reply_ha=$5
 616     local request=ffffffffffff${sha}08060001080006040001${sha}${spa}ffffffffffff${tpa}
 617     hv=`vif_to_hv $inport`
 618     as $hv ovs-appctl netdev-dummy/receive vif$inport $request
 619
 620     if test X$reply_ha == X; then
 621         # Expect to receive the broadcast ARP on the other logical switch ports
 622         # if no reply is expected.
 623         local i j
 624         for i in 1 2 3; do
 625             for j in 1 2 3; do
 626                 if test $i$j != $inport; then
 627                     echo $request >> $i$j.expected
 628                 fi
 629             done
 630         done
 631     else
 632         # Expect to receive the reply, if any.
 633         local reply=${sha}${reply_ha}08060001080006040002${reply_ha}${tpa}${sha}${spa}
 634         echo $reply >> $inport.expected
 635     fi
 636 }
 637
 638 ip_to_hex() {
 639     printf "%02x%02x%02x%02x" "$@"
 640 }
 641
 642 # Send packets between all pairs of source and destination ports:
 643 #
 644 # 1. Unicast packets are delivered to exactly one lport (except that packets
 645 #    destined to their input ports are dropped).
 646 #
 647 # 2. Broadcast and multicast are delivered to all lports except the input port.
 648 #
 649 # 3. When port security is turned on, the lswitch drops packets from the wrong
 650 #    MAC address.
 651 #
 652 # 4. The lswitch drops all packets with a VLAN tag.
 653 #
 654 # 5. The lswitch drops all packets with a multicast source address.  (This only
 655 #    affects behavior when port security is turned off, since otherwise port
 656 #    security would drop the packet anyway.)
 657 #
 658 # 6. The lswitch delivers packets with an unknown destination to lports with
 659 #    "unknown" among their MAC addresses (and port security disabled).
 660 #
 661 # 7. The lswitch drops unicast packets that violate an ACL.
 662 #
 663 # 8. The lswitch drops multicast and broadcast packets that violate an ACL.
 664 #
 665 # 9. ARP requests to known IPs are responded directly.
 666 #
 667 # 10. No response to ARP requests for unknown IPs.
 668 for is in 1 2 3; do
 669     for js in 1 2 3; do
 670         s=$is$js
 671         bcast=
 672         unknown=
 673         bacl2=
 674         bacl3=
 675         for id in 1 2 3; do
 676             for jd in 1 2 3; do
 677                 d=$id$jd
 678
 679                 if test $d != $s; then unicast=$d; else unicast=; fi
 680                 test_packet $s f000000000$d f000000000$s $s$d $unicast     #1
 681
 682                 if test $d != $s && test $js = 1; then
 683                     impersonate=$d
 684                 else
 685                     impersonate=
 686                 fi
 687                 test_packet $s f000000000$d f00000000055 55$d $impersonate #3
 688
 689                 if test $d != $s && test $s != 11; then acl2=$d; else acl2=; fi
 690                 if test $d != $s && test $d != 33; then acl3=$d; else acl3=; fi
 691                 test_packet $s f000000000$d f000000000$s 1234        #7, acl1
 692                 test_packet $s f000000000$d f000000000$s 1235 $acl2  #7, acl2
 693                 test_packet $s f000000000$d f000000000$s 1236 $acl3  #7, acl3
 694
 695                 test_packet $s f000000000$d f00000000055 810000091234      #4
 696                 test_packet $s f000000000$d 0100000000$s $s$d              #5
 697
 698                 if test $d != $s && test $jd = 1; then
 699                     unknown="$unknown $d"
 700                 fi
 701                 bcast="$bcast $unicast"
 702                 bacl2="$bacl2 $acl2"
 703                 bacl3="$bacl3 $acl3"
 704
 705                 sip=`ip_to_hex 192 168 0 $i$j`
 706                 tip=`ip_to_hex 192 168 0 $id$jd`
 707                 tip_unknown=`ip_to_hex 11 11 11 11`
 708                 test_arp $s f000000000$s $sip $tip f000000000$d            #9
 709                 test_arp $s f000000000$s $sip $tip_unknown                 #10
 710             done
 711         done
 712
 713         # Broadcast and multicast.
 714         test_packet $s ffffffffffff f000000000$s ${s}ff $bcast             #2
 715         test_packet $s 010000000000 f000000000$s ${s}ff $bcast             #2
 716         if test $js = 1; then
 717             bcast_impersonate=$bcast
 718         else
 719             bcast_impersonate=
 720         fi
 721         test_packet $s 010000000000 f00000000044 44ff $bcast_impersonate   #3
 722
 723         test_packet $s f0000000ffff f000000000$s ${s}66 $unknown           #6
 724
 725         test_packet $s ffffffffffff f000000000$s 1234                #8, acl1
 726         test_packet $s ffffffffffff f000000000$s 1235 $bacl2         #8, acl2
 727         test_packet $s ffffffffffff f000000000$s 1236 $bacl3         #8, acl3
 728         test_packet $s 010000000000 f000000000$s 1234                #8, acl1
 729         test_packet $s 010000000000 f000000000$s 1235 $bacl2         #8, acl2
 730         test_packet $s 010000000000 f000000000$s 1236 $bacl3         #8, acl3
 731     done
 732 done
 733
 734 # Allow some time for packet forwarding.
 735 # XXX This can be improved.
 736 sleep 1
 737
 738 # Now check the packets actually received against the ones expected.
 739 for i in 1 2 3; do
 740     for j in 1 2 3; do
 741         file=hv$i/vif$i$j-tx.pcap
 742         echo $file
 743         $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j.packets
 744         sort $i$j.expected > expout
 745         AT_CHECK([sort $i$j.packets], [0], [expout])
 746         echo
 747     done
 748 done
 749
 750 # Gracefully terminate daemons
 751 for daemon in ovn-controller ovn-northd ovsdb-server; do
 752     ovs-appctl -t $daemon exit
 753 done
 754 AT_CLEANUP
 755
 756 # 2 hypervisors, 4 logical ports per HV
 757 # 2 locally attached networks (one flat, one vlan tagged over same device)
 758 # 2 ports per HV on each network
 759 AT_SETUP([ovn -- 2 HVs, 4 lports/HV, localnet ports])
 760 AT_KEYWORDS([ovn-localnet])
 761 AT_SKIP_IF([test $HAVE_PYTHON = no])
 762 ovn_start
 763
 764 # We model each logical port connectivity to a locally attached
 765 # physical network with its own logical switch.  One port is
 766 # for the VIF, and the other port is a special 'localnet' port.
 767
 768 net_add n1
 769 for i in 1 2; do
 770     sim_add hv$i
 771     as hv$i
 772     ovs-vsctl add-br br-phys
 773     ovs-vsctl set open . external-ids:ovn-bridge-mappings=phys:br-phys
 774     ovn_attach n1 br-phys 192.168.0.$i
 775
 776     for j in 1 2 3 4; do
 777         ovs-vsctl add-port br-int vif$i$j -- \
 778             set Interface vif$i$j external-ids:iface-id=lp$i$j \
 779                                   options:tx_pcap=hv$i/vif$i$j-tx.pcap \
 780                                   options:rxq_pcap=hv$i/vif$i$j-rx.pcap \
 781                                   ofport-request=$i$j
 782
 783         lswitch_name=phys-lp$i$j
 784         lport_name=lp$i$j
 785         ln_port_name=phys-ln-$i$j
 786
 787         ovn-nbctl lswitch-add $lswitch_name
 788
 789         if test $j -le 2; then
 790             ovn-nbctl lport-add $lswitch_name $ln_port_name
 791         else
 792             ovn-nbctl lport-add $lswitch_name $ln_port_name "" 101
 793         fi
 794         ovn-nbctl lport-set-addresses $ln_port_name unknown
 795         ovn-nbctl lport-set-type $ln_port_name localnet
 796         ovn-nbctl lport-set-options $ln_port_name network_name=phys
 797
 798         ovn-nbctl lport-add $lswitch_name $lport_name
 799         ovn-nbctl lport-set-addresses $lport_name f0:00:00:00:00:$i$j
 800         ovn-nbctl lport-set-port-security $lport_name f0:00:00:00:00:$i$j
 801
 802         OVS_WAIT_UNTIL([test x`ovn-nbctl lport-get-up $lport_name` = xup])
 803     done
 804 done
 805
 806 ovn_populate_arp
 807
 808 # XXX This is now the 3rd copy of these functions in this file ...
 809
 810 # Given the name of a logical port, prints the name of the hypervisor
 811 # on which it is located.
 812 vif_to_hv() {
 813     echo hv${1%?}
 814 }
 815 #
 816 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
 817 #
 818 # This shell function causes a packet to be received on INPORT.  The packet's
 819 # content has Ethernet destination DST and source SRC (each exactly 12 hex
 820 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
 821 # more) list the VIFs on which the packet should be received.  INPORT and the
 822 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
 823 trim_zeros() {
 824     sed 's/\(00\)\{1,\}$//'
 825 }
 826 for i in 1 2; do
 827     for j in 1 2 3 4; do
 828         : > $i$j.expected
 829     done
 830 done
 831 test_packet() {
 832     local inport=$1 src=$2 dst=$3 eth=$4; shift; shift; shift; shift
 833     local packet=${src}${dst}${eth}
 834     hv=`vif_to_hv $inport`
 835     vif=vif$inport
 836     as $hv ovs-appctl netdev-dummy/receive $vif $packet
 837     for outport; do
 838         echo $packet | trim_zeros >> $outport.expected
 839     done
 840 }
 841
 842 # lp11 and lp21 are on the same network (phys, untagged)
 843 # and on different hypervisors
 844 test_packet 11 f00000000021 f00000000011 1121 21
 845 test_packet 21 f00000000011 f00000000021 2111 11
 846
 847 # lp11 and lp12 are on the same network (phys, untagged)
 848 # and on the same hypervisor
 849 test_packet 11 f00000000012 f00000000011 1112 12
 850 test_packet 12 f00000000011 f00000000012 1211 11
 851
 852 # lp13 and lp23 are on the same network (phys, VLAN 101)
 853 # and on different hypervisors
 854 test_packet 13 f00000000023 f00000000013 1323 23
 855 test_packet 23 f00000000013 f00000000023 2313 13
 856
 857 # lp13 and lp14 are on the same network (phys, VLAN 101)
 858 # and on the same hypervisor
 859 test_packet 13 f00000000014 f00000000013 1314 14
 860 test_packet 14 f00000000013 f00000000014 1413 13
 861
 862 # Ports that should not be able to communicate
 863 test_packet 11 f00000000013 f00000000011 1113
 864 test_packet 11 f00000000023 f00000000011 1123
 865 test_packet 21 f00000000013 f00000000021 2113
 866 test_packet 21 f00000000023 f00000000021 2123
 867 test_packet 13 f00000000011 f00000000013 1311
 868 test_packet 13 f00000000021 f00000000013 1321
 869 test_packet 23 f00000000011 f00000000023 2311
 870 test_packet 23 f00000000021 f00000000023 2321
 871
 872 # Allow some time for packet forwarding.
 873 # XXX This can be improved.
 874 sleep 1
 875
 876 # Dump a bunch of info helpful for debugging if there's a failure.
 877
 878 echo "------ OVN dump ------"
 879 ovn-nbctl show
 880 ovn-sbctl show
 881
 882 echo "------ hv1 dump ------"
 883 as hv1 ovs-vsctl show
 884 as hv1 ovs-ofctl -O OpenFlow13 dump-flows br-int
 885
 886 echo "------ hv2 dump ------"
 887 as hv2 ovs-vsctl show
 888 as hv2 ovs-ofctl -O OpenFlow13 dump-flows br-int
 889
 890 # Now check the packets actually received against the ones expected.
 891 for i in 1 2; do
 892     for j in 1 2 3 4; do
 893         file=hv$i/vif$i$j-tx.pcap
 894         echo $file
 895         $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j.packets
 896         sort $i$j.expected > expout
 897         AT_CHECK([sort $i$j.packets], [0], [expout])
 898         echo
 899     done
 900 done
 901
 902 # Gracefully terminate daemons
 903 for daemon in ovn-controller ovn-northd ovsdb-server; do
 904     ovs-appctl -t $daemon exit
 905 done
 906 AT_CLEANUP
 907
 908 AT_SETUP([ovn -- 3 HVs, 1 VIFs/HV, 1 GW, 1 LS])
 909 AT_SKIP_IF([test $HAVE_PYTHON = no])
 910 ovn_start
 911
 912 # Configure the Northbound database
 913 ovn-nbctl lswitch-add lsw0
 914
 915 ovn-nbctl lport-add lsw0 lp1
 916 ovn-nbctl lport-set-addresses lp1 f0:00:00:00:00:01
 917
 918 ovn-nbctl lport-add lsw0 lp2
 919 ovn-nbctl lport-set-addresses lp2 f0:00:00:00:00:02
 920
 921 ovn-nbctl lport-add lsw0 lp-vtep
 922 ovn-nbctl lport-set-type lp-vtep vtep
 923 ovn-nbctl lport-set-options lp-vtep vtep-physical-switch=br-vtep vtep-logical-switch=lsw0
 924 ovn-nbctl lport-set-addresses lp-vtep unknown
 925
 926 net_add n1               # Network to connect hv1, hv2, and vtep
 927 net_add n2               # Network to connect vtep and hv3
 928
 929 # Create hypervisor hv1 connected to n1
 930 sim_add hv1
 931 as hv1
 932 ovs-vsctl add-br br-phys
 933 ovn_attach n1 br-phys 192.168.0.1
 934 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
 935
 936 # Create hypervisor hv2 connected to n1
 937 sim_add hv2
 938 as hv2
 939 ovs-vsctl add-br br-phys
 940 ovn_attach n1 br-phys 192.168.0.2
 941 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
 942
 943
 944 # Start the vtep emulator with a leg in both networks
 945 sim_add vtep
 946 as vtep
 947
 948 ovsdb-tool create "$ovs_base"/vtep/vtep.db "$abs_top_srcdir"/vtep/vtep.ovsschema || return 1
 949 ovs-appctl -t ovsdb-server ovsdb-server/add-db "$ovs_base"/vtep/vtep.db
 950
 951 ovs-vsctl add-br br-phys
 952 net_attach n1 br-phys
 953
 954 mac=`ovs-vsctl get Interface br-phys mac_in_use | sed s/\"//g`
 955 arp_table="$arp_table $sandbox,br-phys,192.168.0.3,$mac"
 956 ovs-appctl netdev-dummy/ip4addr br-phys 192.168.0.3/24 >/dev/null || return 1
 957 ovs-appctl ovs/route/add 192.168.0.3/24 br-phys >/dev/null || return 1
 958
 959 ovs-vsctl add-br br-vtep
 960 net_attach n2 br-vtep
 961
 962 vtep-ctl add-ps br-vtep
 963 vtep-ctl set Physical_Switch br-vtep tunnel_ips=192.168.0.3
 964 vtep-ctl add-ls lsw0
 965
 966 start_daemon ovs-vtep br-vtep
 967 start_daemon ovn-controller-vtep --vtep-db=unix:"$ovs_base"/vtep/db.sock --ovnsb-db=unix:"$ovs_base"/ovn-sb/ovn-sb.sock
 968
 969 sleep 1
 970
 971 vtep-ctl bind-ls br-vtep br-vtep_n2 0 lsw0
 972
 973 sleep 1
 974
 975 # Add hv3 on the other side of the vtep
 976 sim_add hv3
 977 as hv3
 978 ovs-vsctl add-br br-phys
 979 net_attach n2 br-phys
 980
 981 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
 982
 983 # Pre-populate the hypervisors' ARP tables so that we don't lose any
 984 # packets for ARP resolution (native tunneling doesn't queue packets
 985 # for ARP resolution).
 986 ovn_populate_arp
 987
 988 # Allow some time for ovn-northd and ovn-controller to catch up.
 989 # XXX This should be more systematic.
 990 sleep 1
 991 ovn-sbctl show
 992
 993 # test_packet INPORT DST SRC ETHTYPE OUTPORT...
 994 #
 995 # This shell function causes a packet to be received on INPORT.  The packet's
 996 # content has Ethernet destination DST and source SRC (each exactly 12 hex
 997 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
 998 # more) list the VIFs on which the packet should be received.  INPORT and the
 999 # OUTPORTs are specified as lport numbers, e.g. 1 for vif1.
1000 trim_zeros() {
1001     sed 's/\(00\)\{1,\}$//'
1002 }
1003 for i in 1 2 3; do
1004     : > $i.expected
1005 done
1006 test_packet() {
1007     local inport=$1 packet=$2$3$4; shift; shift; shift; shift
1008     #hv=hv`echo $inport | sed 's/^\(.\).*/\1/'`
1009     hv=hv$inport
1010     vif=vif$inport
1011     as $hv ovs-appctl netdev-dummy/receive $vif $packet
1012     for outport; do
1013         echo $packet | trim_zeros >> $outport.expected
1014     done
1015 }
1016
1017 # Send packets between all pairs of source and destination ports:
1018 #
1019 # 1. Unicast packets are delivered to exactly one lport (except that packets
1020 #    destined to their input ports are dropped).
1021 #
1022 # 2. Broadcast and multicast are delivered to all lports except the input port.
1023 #
1024 # 3. The lswitch delivers packets with an unknown destination to lports with
1025 #    "unknown" among their MAC addresses (and port security disabled).
1026 for s in 1 2 3; do
1027     bcast=
1028     unknown=
1029     for d in 1 2 3; do
1030         if test $d != $s; then unicast=$d; else unicast=; fi
1031         test_packet $s f0000000000$d f0000000000$s 00$s$d $unicast       #1
1032
1033         # The vtep (vif3) is the only one configured for "unknown"
1034         if test $d != $s && test $d = 3; then
1035             unknown="$unknown $d"
1036         fi
1037         bcast="$bcast $unicast"
1038     done
1039
1040     # Broadcast and multicast.
1041     # xxx ovn-controller-vtep doesn't handle multicast traffic that is
1042     # xxx sourced from the gateway properly.
1043     #test_packet $s ffffffffffff f0000000000$s 0${s}ff $bcast             #2
1044     #test_packet $s 010000000000 f0000000000$s 0${s}ff $bcast             #2
1045
1046     test_packet $s f0000000ffff f0000000000$s 0${s}66 $unknown           #3
1047 done
1048
1049 # Allow some time for packet forwarding.
1050 # XXX This can be improved.
1051 sleep 1
1052
1053 # Now check the packets actually received against the ones expected.
1054 for i in 1 2 3; do
1055     file=hv$i/vif$i-tx.pcap
1056     echo $file
1057     $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i.packets
1058     sort $i.expected > expout
1059     AT_CHECK([sort $i.packets], [0], [expout])
1060     echo
1061 done
1062
1063 # Gracefully terminate daemons
1064 for daemon in ovs-vtep ovn-controller-vtep ovn-controller ovn-northd ovsdb-server; do
1065     ovs-appctl -t $daemon exit
1066 done
1067 AT_CLEANUP
1068
1069 # 3 hypervisors, 3 logical switches with 3 logical ports each, 1 logical router
1070 AT_SETUP([ovn -- 3 HVs, 3 LS, 3 lports/LS, 1 LR])
1071 AT_SKIP_IF([test $HAVE_PYTHON = no])
1072 ovn_start
1073
1074 # Logical network:
1075 #
1076 # Three logical switches ls1, ls2, ls3.
1077 # One logical router lr0 connected to ls[123],
1078 # with nine subnets, three per logical switch:
1079 #
1080 #    lrp11 on ls1 for subnet 192.168.11.0/24
1081 #    lrp12 on ls1 for subnet 192.168.12.0/24
1082 #    lrp13 on ls1 for subnet 192.168.13.0/24
1083 #    ...
1084 #    lrp33 on ls3 for subnet 192.168.33.0/24
1085 #
1086 # 27 VIFs, 9 per LS, 3 per subnet: lp[123][123][123], where the first two
1087 # digits are the subnet and the last digit distinguishes the VIF.
1088 for i in 1 2 3; do
1089     ovn-nbctl lswitch-add ls$i
1090     for j in 1 2 3; do
1091         for k in 1 2 3; do
1092             ovn-nbctl \
1093                 -- lport-add ls$i lp$i$j$k \
1094                 -- lport-set-addresses lp$i$j$k "f0:00:00:00:0$i:$j$k 192.168.$i$j.$k"
1095         done
1096     done
1097 done
1098
1099 ovn-nbctl create Logical_Router name=lr0
1100 for i in 1 2 3; do
1101     for j in 1 2 3; do
1102         lrp_uuid=`ovn-nbctl \
1103             -- --id=@lrp create Logical_Router_Port name=lrp$i$j \
1104                network=192.168.$i$j.254/24 mac='"00:00:00:00:ff:'$i$j'"' \
1105             -- add Logical_Router lr0 ports @lrp \
1106             -- lport-add ls$i lrp$i$j-attachment`
1107         ovn-nbctl \
1108             set Logical_Port lrp$i$j-attachment type=router \
1109                              options:router-port=lrp$i$j \
1110                              addresses='"00:00:00:00:ff:'$i$j'"'
1111     done
1112 done
1113
1114 ovn-nbctl set Logical_Port lrp33-attachment \
1115     addresses='"00:00:00:00:ff:33 192.168.33.254"'
1116
1117 # Physical network:
1118 #
1119 # Three hypervisors hv[123].
1120 # lp?1[123] spread across hv[123]: lp?11 on hv1, lp?12 on hv2, lp?13 on hv3.
1121 # lp?2[123] spread across hv[23]: lp?21 and lp?22 on hv2, lp?23 on hv3.
1122 # lp?3[123] all on hv3.
1123
1124
1125 # Given the name of a logical port, prints the name of the hypervisor
1126 # on which it is located.
1127 vif_to_hv() {
1128     case $1 in dnl (
1129         ?11) echo 1 ;; dnl (
1130         ?12 | ?21 | ?22) echo 2 ;; dnl (
1131         ?13 | ?23 | ?3?) echo 3 ;;
1132     esac
1133 }
1134
1135 # Given the name of a logical port, prints the name of its logical router
1136 # port, e.g. "vif_to_lrp 123" yields 12.
1137 vif_to_lrp() {
1138     echo ${1%?}
1139 }
1140
1141 # Given the name of a logical port, prints the name of its logical
1142 # switch, e.g. "vif_to_ls 123" yields 1.
1143 vif_to_ls() {
1144     echo ${1%??}
1145 }
1146
1147 net_add n1
1148 for i in 1 2 3; do
1149     sim_add hv$i
1150     as hv$i
1151     ovs-vsctl add-br br-phys
1152     ovn_attach n1 br-phys 192.168.0.$i
1153 done
1154 for i in 1 2 3; do
1155     for j in 1 2 3; do
1156         for k in 1 2 3; do
1157             hv=`vif_to_hv $i$j$k`
1158             as hv$hv ovs-vsctl \
1159                 -- add-port br-int vif$i$j$k \
1160                 -- set Interface vif$i$j$k \
1161                        external-ids:iface-id=lp$i$j$k \
1162                        options:tx_pcap=hv$hv/vif$i$j$k-tx.pcap \
1163                        options:rxq_pcap=hv$hv/vif$i$j$k-rx.pcap \
1164                        ofport-request=$i$j$k
1165         done
1166     done
1167 done
1168
1169 # Pre-populate the hypervisors' ARP tables so that we don't lose any
1170 # packets for ARP resolution (native tunneling doesn't queue packets
1171 # for ARP resolution).
1172 ovn_populate_arp
1173
1174 # Allow some time for ovn-northd and ovn-controller to catch up.
1175 # XXX This should be more systematic.
1176 sleep 1
1177
1178 # test_ip INPORT SRC_MAC DST_MAC SRC_IP DST_IP OUTPORT...
1179 #
1180 # This shell function causes a packet to be received on INPORT.  The packet's
1181 # content has Ethernet destination DST and source SRC (each exactly 12 hex
1182 # digits) and Ethernet type ETHTYPE (4 hex digits).  The OUTPORTs (zero or
1183 # more) list the VIFs on which the packet should be received.  INPORT and the
1184 # OUTPORTs are specified as lport numbers, e.g. 11 for vif11.
1185 trim_zeros() {
1186     sed 's/\(00\)\{1,\}$//'
1187 }
1188 for i in 1 2 3; do
1189     for j in 1 2 3; do
1190         for k in 1 2 3; do
1191             : > $i$j$k.expected
1192         done
1193     done
1194 done
1195 test_ip() {
1196     # This packet has bad checksums but logical L3 routing doesn't check.
1197     local inport=$1 src_mac=$2 dst_mac=$3 src_ip=$4 dst_ip=$5
1198     local packet=${dst_mac}${src_mac}08004500001c0000000040110000${src_ip}${dst_ip}0035111100080000
1199     shift; shift; shift; shift; shift
1200     hv=hv`vif_to_hv $inport`
1201     as $hv ovs-appctl netdev-dummy/receive vif$inport $packet
1202     #as $hv ovs-appctl ofproto/trace br-int in_port=$inport $packet
1203     in_ls=`vif_to_ls $inport`
1204     in_lrp=`vif_to_lrp $inport`
1205     for outport; do
1206         out_ls=`vif_to_ls $outport`
1207         if test $in_ls = $out_ls; then
1208             # Ports on the same logical switch receive exactly the same packet.
1209             echo $packet
1210         else
1211             # Routing decrements TTL and updates source and dest MAC
1212             # (and checksum).
1213             out_lrp=`vif_to_lrp $outport`
1214             echo f00000000${outport}00000000ff${out_lrp}08004500001c00000000"3f1101"00${src_ip}${dst_ip}0035111100080000
1215         fi | trim_zeros >> $outport.expected
1216     done
1217 }
1218
1219 as hv1 ovs-vsctl --columns=name,ofport list interface
1220 as hv1 ovn-sbctl dump-flows
1221 as hv1 ovs-ofctl dump-flows br-int
1222
1223 # Send IP packets between all pairs of source and destination ports:
1224 #
1225 # 1. Unicast IP packets are delivered to exactly one lport (except
1226 #    that packets destined to their input ports are dropped).
1227 #
1228 # 2. Broadcast IP packets are delivered to all lports except the input port.
1229 ip_to_hex() {
1230     printf "%02x%02x%02x%02x" "$@"
1231 }
1232 for is in 1 2 3; do
1233     for js in 1 2 3; do
1234         for ks in 1 2 3; do
1235             bcast=
1236             s=$is$js$ks
1237             smac=f00000000$s
1238             sip=`ip_to_hex 192 168 $is$js $ks`
1239             for id in 1 2 3; do
1240                 for jd in 1 2 3; do
1241                     for kd in 1 2 3; do
1242                         d=$id$jd$kd
1243                         dip=`ip_to_hex 192 168 $id$jd $kd`
1244                         if test $is = $id; then dmac=f00000000$d; else dmac=00000000ff$is$js; fi
1245                         if test $d != $s; then unicast=$d; else unicast=; fi
1246
1247                         test_ip $s $smac $dmac $sip $dip $unicast #1
1248
1249                         if test $id = $is && test $d != $s; then bcast="$bcast $d"; fi
1250                     done
1251                 done
1252             done
1253             test_ip $s $smac ffffffffffff $sip ffffffff $bcast #2
1254         done
1255     done
1256 done
1257
1258 # test_arp INPORT SHA SPA TPA [REPLY_HA]
1259 #
1260 # Causes a packet to be received on INPORT.  The packet is an ARP
1261 # request with SHA, SPA, and TPA as specified.  If REPLY_HA is provided, then
1262 # it should be the hardware address of the target to expect to receive in an
1263 # ARP reply; otherwise no reply is expected.
1264 #
1265 # INPORT is an lport number, e.g. 11 for vif11.
1266 # SHA and REPLY_HA are each 12 hex digits.
1267 # SPA and TPA are each 8 hex digits.
1268 test_arp() {
1269     local inport=$1 sha=$2 spa=$3 tpa=$4 reply_ha=$5
1270     local request=ffffffffffff${sha}08060001080006040001${sha}${spa}ffffffffffff${tpa}
1271     hv=hv`vif_to_hv $inport`
1272     as $hv ovs-appctl netdev-dummy/receive vif$inport $request
1273     #as $hv ovs-appctl ofproto/trace br-int in_port=$inport $request
1274
1275     # Expect to receive the broadcast ARP on the other logical switch ports if
1276     # IP address is not configured to the lswitch patch port.
1277     local i=`vif_to_ls $inport`
1278     local j k
1279     for j in 1 2 3; do
1280         for k in 1 2 3; do
1281             # 192.168.33.254 is configured to the lswtich patch port for lrp33,
1282             # so no ARP flooding expected for it.
1283             if test $i$j$k != $inport && test $tpa != `ip_to_hex 192 168 33 254`; then
1284                 echo $request >> $i$j$k.expected
1285             fi
1286         done
1287     done
1288
1289     # Expect to receive the reply, if any.
1290     if test X$reply_ha != X; then
1291         lrp=`vif_to_lrp $inport`
1292         local reply=${sha}00000000ff${lrp}08060001080006040002${reply_ha}${tpa}${sha}${spa}
1293         echo $reply >> $inport.expected
1294     fi
1295 }
1296
1297 # Test router replies to ARP requests from all source ports:
1298 #
1299 # 3. Router replies to query for its MAC address from port's own IP address.
1300 #
1301 # 4. Router replies to query for its MAC address from any random IP address
1302 #    in its subnet.
1303 #
1304 # 5. Router replies to query for its MAC address from another subnet.
1305 #
1306 # 6. No reply to query for IP address other than router IP.
1307 for i in 1 2 3; do
1308     for j in 1 2 3; do
1309         for k in 1 2 3; do
1310             smac=f00000000$i$j$k               # Source MAC
1311             sip=`ip_to_hex 192 168 $i$j $k`    # Source IP
1312             rip=`ip_to_hex 192 168 $i$j 254`   # Router IP
1313             rmac=00000000ff$i$j                # Router MAC
1314             otherip=`ip_to_hex 192 168 $i$j 55` # Some other IP in subnet
1315             test_arp $i$j$k $smac $sip        $rip        $rmac #3
1316             test_arp $i$j$k $smac $otherip    $rip        $rmac #4
1317             test_arp $i$j$k $smac 0a123456    $rip        $rmac #5
1318             test_arp $i$j$k $smac $sip        $otherip          #6
1319         done
1320     done
1321 done
1322 # Allow some time for packet forwarding.
1323 # XXX This can be improved.
1324 sleep 1
1325
1326 # Now check the packets actually received against the ones expected.
1327 for i in 1 2 3; do
1328     for j in 1 2 3; do
1329         for k in 1 2 3; do
1330             file=hv`vif_to_hv $i$j$k`/vif$i$j$k-tx.pcap
1331             echo $file
1332             $PYTHON "$top_srcdir/utilities/ovs-pcap.in" $file | trim_zeros > $i$j$k.packets
1333             sort $i$j$k.expected > expout
1334             AT_CHECK([sort $i$j$k.packets], [0], [expout])
1335             echo
1336         done
1337     done
1338 done
1339
1340 # Gracefully terminate daemons
1341 for daemon in ovn-controller ovn-northd ovsdb-server; do
1342     ovs-appctl -t $daemon exit
1343 done
1344 AT_CLEANUP