ovs-vsctl: Add set relational operators to "find" command.
[openvswitch] / tests / ovs-vsctl.at
1 dnl OVS_VSCTL_SETUP
2 dnl
3 dnl Creates an empty database in the current directory and then starts
4 dnl an ovsdb-server on it for ovs-vsctl to connect to.
5 m4_define([OVS_VSCTL_SETUP],
6   [OVSDB_INIT([db])
7    AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --remote=punix:socket --unixctl=$PWD/unixctl db >/dev/null 2>&1], [0], [ignore], [ignore])])
8
9 dnl OVS_VSCTL_CLEANUP
10 dnl
11 dnl Kills off the database server.
12 m4_define([OVS_VSCTL_CLEANUP], [OVSDB_SERVER_SHUTDOWN])
13
14 dnl RUN_OVS_VSCTL(COMMAND, ...)
15 dnl
16 dnl Executes each ovs-vsctl COMMAND.
17 m4_define([RUN_OVS_VSCTL],
18   [m4_foreach([command], [$@], [ovs-vsctl --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket -- command
19 ])])
20 m4_define([RUN_OVS_VSCTL_ONELINE],
21   [m4_foreach([command], [$@], [ovs-vsctl --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket --oneline -- command
22 ])])
23
24 dnl RUN_OVS_VSCTL_TOGETHER(COMMAND, ...)
25 dnl
26 dnl Executes each ovs-vsctl COMMAND in a single run of ovs-vsctl.
27 m4_define([RUN_OVS_VSCTL_TOGETHER],
28   [ovs-vsctl --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket --oneline dnl
29 m4_foreach([command], [$@], [ -- command])])
30
31 dnl CHECK_BRIDGES([BRIDGE, PARENT, VLAN], ...)
32 dnl
33 dnl Verifies that "ovs-vsctl list-br" prints the specified list of bridges,
34 dnl which must be in alphabetical order.  Also checks that each BRIDGE has the
35 dnl specified PARENT and is on the given VLAN.
36 m4_define([_CHECK_BRIDGE],
37   [AT_CHECK([RUN_OVS_VSCTL([br-to-parent $1])], [0], [$2
38 ], [], [OVS_VSCTL_CLEANUP])
39
40    # Check br-to-vlan, without --oneline.
41    AT_CHECK([RUN_OVS_VSCTL([br-to-vlan $1])], [0], [$3
42 ], [], [OVS_VSCTL_CLEANUP])
43    # Check br-to-vlan, with --oneline.
44    # (This particular test is interesting with --oneline because it returns
45    # an integer instead of a string and that can cause type mismatches inside
46    # python if not done carefully.)
47    AT_CHECK([RUN_OVS_VSCTL_ONELINE([br-to-vlan $1])], [0], [$3
48 ], [], [OVS_VSCTL_CLEANUP])
49
50    # Check multiple queries in a single run.
51    AT_CHECK([RUN_OVS_VSCTL_TOGETHER([br-to-parent $1], [br-to-vlan $1])], [0],
52 [$2
53 $3
54 ], [], [OVS_VSCTL_CLEANUP])])
55 m4_define([CHECK_BRIDGES],
56   [dnl Check that the bridges appear on list-br, without --oneline.
57    AT_CHECK(
58      [RUN_OVS_VSCTL([list-br])],
59      [0],
60      [m4_foreach([brinfo], [$@], [m4_car(brinfo)
61 ])],
62      [],
63      [OVS_VSCTL_CLEANUP])
64
65    dnl Check that the bridges appear on list-br, with --oneline.
66    AT_CHECK(
67      [RUN_OVS_VSCTL_ONELINE([list-br])],
68      [0],
69      [m4_join([\n], m4_foreach([brinfo], [$@], [m4_car(brinfo),]))
70 ],
71      [],
72      [OVS_VSCTL_CLEANUP])
73
74    dnl Check that each bridge exists according to br-exists and that
75    dnl a bridge that should not exist does not.
76    m4_foreach([brinfo], [$@], 
77               [AT_CHECK([RUN_OVS_VSCTL([br-exists m4_car(brinfo)])], [0], [],
78                         [], [OVS_VSCTL_CLEANUP])])
79    AT_CHECK([RUN_OVS_VSCTL([br-exists nonexistent])], [2], [], [],
80             [OVS_VSCTL_CLEANUP])
81
82    dnl Check that each bridge has the expected parent and VLAN.
83    m4_map([_CHECK_BRIDGE], [$@])])
84
85 dnl CHECK_PORTS(BRIDGE, PORT[, PORT...])
86 dnl
87 dnl Verifies that "ovs-vsctl list-ports BRIDGE" prints the specified
88 dnl list of ports, which must be in alphabetical order.  Also checks
89 dnl that "ovs-vsctl port-to-br" reports that each port is
90 dnl in BRIDGE.
91 m4_define([CHECK_PORTS],
92   [dnl Check ports without --oneline.
93    AT_CHECK(
94      [RUN_OVS_VSCTL([list-ports $1])],
95      [0],
96      [m4_foreach([port], m4_cdr($@), [port
97 ])],
98      [],
99      [OVS_VSCTL_CLEANUP])
100
101    dnl Check ports with --oneline.
102    AT_CHECK(
103      [RUN_OVS_VSCTL_ONELINE([list-ports $1])],
104      [0],
105      [m4_join([\n], m4_shift($@))
106 ],
107      [],
108      [OVS_VSCTL_CLEANUP])
109    AT_CHECK([RUN_OVS_VSCTL([port-to-br $1])], [1], [],
110             [ovs-vsctl: no port named $1
111 ],
112             [OVS_VSCTL_CLEANUP])
113    m4_foreach(
114      [port], m4_cdr($@), 
115      [AT_CHECK([RUN_OVS_VSCTL([[port-to-br] port])], [0], [$1
116 ], [], [OVS_VSCTL_CLEANUP])])])
117
118 dnl CHECK_IFACES(BRIDGE, IFACE[, IFACE...])
119 dnl
120 dnl Verifies that "ovs-vsctl list-ifaces BRIDGE" prints the specified
121 dnl list of ifaces, which must be in alphabetical order.  Also checks
122 dnl that "ovs-vsctl iface-to-br" reports that each interface is
123 dnl in BRIDGE.
124 m4_define([CHECK_IFACES],
125   [AT_CHECK(
126      [RUN_OVS_VSCTL([list-ifaces $1])],
127      [0],
128      [m4_foreach([iface], m4_cdr($@), [iface
129 ])],
130      [],
131      [OVS_VSCTL_CLEANUP])
132    AT_CHECK([RUN_OVS_VSCTL([iface-to-br $1])], [1], [],
133             [ovs-vsctl: no interface named $1
134 ],
135             [OVS_VSCTL_CLEANUP])
136    m4_foreach(
137      [iface], m4_cdr($@), 
138      [AT_CHECK([RUN_OVS_VSCTL([[iface-to-br] iface])], [0], [$1
139 ],
140                [], [OVS_VSCTL_CLEANUP])])])
141
142 dnl ----------------------------------------------------------------------
143 AT_BANNER([ovs-vsctl unit tests -- real bridges])
144
145 AT_SETUP([add-br a])
146 AT_KEYWORDS([ovs-vsctl])
147 OVS_VSCTL_SETUP
148 AT_CHECK([RUN_OVS_VSCTL([add-br a])], [0], [], [], [OVS_VSCTL_CLEANUP])
149 CHECK_BRIDGES([a, a, 0])
150 CHECK_PORTS([a])
151 CHECK_IFACES([a])
152 OVS_VSCTL_CLEANUP
153 AT_CLEANUP
154
155 AT_SETUP([add-br a, add-br a])
156 AT_KEYWORDS([ovs-vsctl])
157 OVS_VSCTL_SETUP
158 AT_CHECK([RUN_OVS_VSCTL([add-br a])], [0], [], [], [OVS_VSCTL_CLEANUP])
159 AT_CHECK([RUN_OVS_VSCTL([add-br a])], [1], [],
160   [ovs-vsctl: cannot create a bridge named a because a bridge named a already exists
161 ], [OVS_VSCTL_CLEANUP])
162 OVS_VSCTL_CLEANUP
163 AT_CLEANUP
164
165 AT_SETUP([add-br a, add-br b])
166 AT_KEYWORDS([ovs-vsctl])
167 OVS_VSCTL_SETUP
168 AT_CHECK([RUN_OVS_VSCTL([add-br a], [add-br b])], [0], [], [],
169          [OVS_VSCTL_CLEANUP])
170 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-br a b 9])], [1], [],
171   [ovs-vsctl: "--may-exist add-br a b 9" but a is not a VLAN bridge
172 ],
173   [OVS_VSCTL_CLEANUP])
174 CHECK_BRIDGES([a, a, 0], [b, b, 0])
175 CHECK_PORTS([a])
176 CHECK_IFACES([a])
177 CHECK_PORTS([b])
178 CHECK_IFACES([b])
179 OVS_VSCTL_CLEANUP
180 AT_CLEANUP
181
182 AT_SETUP([add-br a, add-br b, del-br a])
183 AT_KEYWORDS([ovs-vsctl])
184 OVS_VSCTL_SETUP
185 AT_CHECK([RUN_OVS_VSCTL([add-br a], [add-br b], [del-br a])], [0], [], [],
186          [OVS_VSCTL_CLEANUP])
187 CHECK_BRIDGES([b, b, 0])
188 CHECK_PORTS([b])
189 CHECK_IFACES([b])
190 OVS_VSCTL_CLEANUP
191 AT_CLEANUP
192
193 AT_SETUP([add-br a, del-br a, add-br a])
194 AT_KEYWORDS([ovs-vsctl])
195 OVS_VSCTL_SETUP
196 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
197   [add-br a],
198   [del-br a],
199   [add-br a],
200   [set Interface a other_config:key=value],
201   [get Interface a other_config:key])], [0], [
202
203
204
205 value
206 ], [], [OVS_VSCTL_CLEANUP])
207 CHECK_BRIDGES([a, a, 0])
208 CHECK_PORTS([a])
209 CHECK_IFACES([a])
210 OVS_VSCTL_CLEANUP
211 AT_CLEANUP
212
213 AT_SETUP([add-br a, add-port a a1, add-port a a2])
214 AT_KEYWORDS([ovs-vsctl])
215 OVS_VSCTL_SETUP
216 AT_CHECK([RUN_OVS_VSCTL(
217    [add-br a],
218    [--if-exists del-br b],
219    [add-port a a1],
220    [add-port a a2])], [0], [], [], [OVS_VSCTL_CLEANUP])
221 CHECK_BRIDGES([a, a, 0])
222 CHECK_PORTS([a], [a1], [a2])
223 CHECK_IFACES([a], [a1], [a2])
224 OVS_VSCTL_CLEANUP
225 AT_CLEANUP
226
227 AT_SETUP([add-br a, add-port a a1, add-port a a1])
228 AT_KEYWORDS([ovs-vsctl])
229 OVS_VSCTL_SETUP
230 AT_CHECK([RUN_OVS_VSCTL(
231    [add-br a], 
232    [add-port a a1])], [0], [], [], [OVS_VSCTL_CLEANUP])
233 AT_CHECK([RUN_OVS_VSCTL([add-port a a1])], [1], [],
234   [ovs-vsctl: cannot create a port named a1 because a port named a1 already exists on bridge a
235 ], [OVS_VSCTL_CLEANUP])
236 OVS_VSCTL_CLEANUP
237 AT_CLEANUP
238
239 AT_SETUP([add-br a b, add-port a a1, add-port b b1, del-br a])
240 AT_KEYWORDS([ovs-vsctl])
241 OVS_VSCTL_SETUP
242 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
243    [add-br a], 
244    [add-br b], 
245    [add-port a a1],
246    [add-port b b1],
247    [--if-exists del-port b b2],
248    [del-br a])], [0], [
249
250
251
252
253
254 ], [], [OVS_VSCTL_CLEANUP])
255 CHECK_BRIDGES([b, b, 0])
256 CHECK_PORTS([b], [b1])
257 CHECK_IFACES([b], [b1])
258 OVS_VSCTL_CLEANUP
259 AT_CLEANUP
260
261 AT_SETUP([add-br a, add-bond a bond0 a1 a2 a3])
262 AT_KEYWORDS([ovs-vsctl])
263 OVS_VSCTL_SETUP
264 AT_CHECK([RUN_OVS_VSCTL(
265    [add-br a], 
266    [add-bond a bond0 a1 a2 a3])], [0], [], [], [OVS_VSCTL_CLEANUP])
267 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-bond a bond0 a3 a1 a2])], [0], [], [],
268   [OVS_VSCTL_CLEANUP])
269 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-bond a bond0 a2 a1])], [1], [], 
270   [ovs-vsctl: "--may-exist add-bond a bond0 a2 a1" but bond0 actually has interface(s) a1, a2, a3
271 ],
272   [OVS_VSCTL_CLEANUP])
273 CHECK_BRIDGES([a, a, 0])
274 CHECK_PORTS([a], [bond0])
275 CHECK_IFACES([a], [a1], [a2], [a3])
276 OVS_VSCTL_CLEANUP
277 AT_CLEANUP
278
279 AT_SETUP([add-br a b, add-port a a1, add-port b b1, del-port a a1])
280 AT_KEYWORDS([ovs-vsctl])
281 OVS_VSCTL_SETUP
282 AT_CHECK([RUN_OVS_VSCTL(
283   [add-br a], 
284   [add-br b], 
285   [add-port a a1 tag=9],
286   [get port a1 tag],
287   [--may-exist add-port b b1],
288   [del-port a a1])], [0], [9
289 ], [], [OVS_VSCTL_CLEANUP])
290 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-port b b1])], [0], [], [],
291   [OVS_VSCTL_CLEANUP])
292 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-port a b1])], [1], [], 
293   [ovs-vsctl: "--may-exist add-port a b1" but b1 is actually attached to bridge b
294 ],
295   [OVS_VSCTL_CLEANUP])
296 CHECK_BRIDGES([a, a, 0], [b, b, 0])
297 CHECK_PORTS([a])
298 CHECK_IFACES([a])
299 CHECK_PORTS([b], [b1])
300 CHECK_IFACES([b], [b1])
301 OVS_VSCTL_CLEANUP
302 AT_CLEANUP
303
304 AT_SETUP([add-br a, add-bond a bond0 a1 a2 a3, del-port bond0])
305 AT_KEYWORDS([ovs-vsctl])
306 OVS_VSCTL_SETUP
307 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
308   [add-br a], 
309   [add-bond a bond0 a1 a2 a3 tag=9],
310   [get Port bond0 tag],
311   [del-port bond0])], [0], [
312
313 9
314
315 ], [], [OVS_VSCTL_CLEANUP])
316 CHECK_BRIDGES([a, a, 0])
317 CHECK_PORTS([a])
318 OVS_VSCTL_CLEANUP
319 AT_CLEANUP
320
321 AT_SETUP([external IDs])
322 AT_KEYWORDS([ovs-vsctl])
323 OVS_VSCTL_SETUP
324 AT_CHECK([RUN_OVS_VSCTL_ONELINE(
325   [add-br a], 
326   [add-port a a1],
327   [add-bond a bond0 a2 a3],
328   [br-set-external-id a key0 value0],
329   [set port a1 external-ids:key1=value1],
330   [set interface a2 external-ids:key2=value2],
331   [set interface a2 external-ids:key3=value3],
332   [set interface a3 external-ids:key4=value4],
333   [br-get-external-id a],
334   [br-get-external-id a key0],
335   [br-get-external-id a key1],
336   [br-set-external-id a key0 othervalue],
337   [br-get-external-id a],
338   [br-set-external-id a key0],
339   [br-get-external-id a],
340   [get port a1 external-ids],
341   [get interface a2 external-ids],
342   [get interface a3 external-ids])], [0], [
343
344
345
346
347
348
349
350 key0=value0
351 value0
352
353
354 key0=othervalue
355
356
357 {"key1"="value1"}
358 {"key2"="value2", "key3"="value3"}
359 {"key4"="value4"}
360 ], [], [OVS_VSCTL_CLEANUP])
361 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
362   [br-get-external-id a],
363   [get port a1 external-ids],
364   [get interface a2 external-ids],
365   [get interface a3 external-ids])], [0],
366 [
367 {"key1"="value1"}
368 {"key2"="value2", "key3"="value3"}
369 {"key4"="value4"}
370 ], [], [OVS_VSCTL_CLEANUP])
371 CHECK_BRIDGES([a, a, 0])
372 CHECK_PORTS([a], [a1], [bond0])
373 CHECK_IFACES([a], [a1], [a2], [a3])
374 OVS_VSCTL_CLEANUP
375 AT_CLEANUP
376
377 AT_SETUP([controllers])
378 AT_KEYWORDS([controller ovs-vsctl])
379 OVS_VSCTL_SETUP
380 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
381   [add-br br0], 
382
383   [get-controller br0],
384   [set-controller br0 tcp:4.5.6.7],
385   [get-controller br0],
386
387   [del-controller br0],
388   [get-controller br0],
389
390   [set-controller br0 tcp:8.9.10.11 tcp:5.4.3.2],
391   [get-controller br0])], [0], [
392
393
394 tcp:4.5.6.7
395
396
397
398 tcp:5.4.3.2\ntcp:8.9.10.11
399 ], [], [OVS_VSCTL_CLEANUP])
400 OVS_VSCTL_CLEANUP
401 AT_CLEANUP
402
403 dnl ----------------------------------------------------------------------
404 AT_BANNER([ovs-vsctl unit tests -- fake bridges])
405
406 m4_define([OVS_VSCTL_SETUP_SIMPLE_FAKE_CONF],
407   [AT_CHECK(
408      [RUN_OVS_VSCTL(
409         [add-br xenbr0],
410         [--may-exist add-br xenbr0],
411         [add-port xenbr0 eth0],
412         [--may-exist add-port xenbr0 eth0],
413         [add-br xapi1 xenbr0 9],
414         [--may-exist add-br xapi1 xenbr0 9],
415         [add-port xapi1 eth0.9])],
416      [0], [], [], [OVS_VSCTL_CLEANUP])])
417
418 AT_SETUP([simple fake bridge])
419 AT_KEYWORDS([ovs-vsctl fake-bridge])
420 OVS_VSCTL_SETUP
421 OVS_VSCTL_SETUP_SIMPLE_FAKE_CONF
422 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-br xapi1])], [1], [],
423   [ovs-vsctl: "--may-exist add-br xapi1" but xapi1 is a VLAN bridge for VLAN 9
424 ], [OVS_VSCTL_CLEANUP])
425 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-br xapi1 xxx 9])], [1], [],
426   [ovs-vsctl: "--may-exist add-br xapi1 xxx 9" but xapi1 has the wrong parent xenbr0
427 ], [OVS_VSCTL_CLEANUP])
428 AT_CHECK([RUN_OVS_VSCTL([--may-exist add-br xapi1 xenbr0 10])], [1], [],
429   [ovs-vsctl: "--may-exist add-br xapi1 xenbr0 10" but xapi1 is a VLAN bridge for the wrong VLAN 9
430 ], [OVS_VSCTL_CLEANUP])
431 CHECK_BRIDGES([xapi1, xenbr0, 9], [xenbr0, xenbr0, 0])
432 CHECK_PORTS([xenbr0], [eth0])
433 CHECK_IFACES([xenbr0], [eth0])
434 CHECK_PORTS([xapi1], [eth0.9])
435 CHECK_IFACES([xapi1], [eth0.9])
436 OVS_VSCTL_CLEANUP
437 AT_CLEANUP
438
439 AT_SETUP([simple fake bridge + del-br fake bridge])
440 AT_KEYWORDS([ovs-vsctl fake-bridge])
441 OVS_VSCTL_SETUP
442 OVS_VSCTL_SETUP_SIMPLE_FAKE_CONF
443 AT_CHECK([RUN_OVS_VSCTL([del-br xapi1])], [0], [], [], [OVS_VSCTL_CLEANUP])
444 CHECK_BRIDGES([xenbr0, xenbr0, 0])
445 CHECK_PORTS([xenbr0], [eth0])
446 CHECK_IFACES([xenbr0], [eth0])
447 OVS_VSCTL_CLEANUP
448 AT_CLEANUP
449
450 AT_SETUP([simple fake bridge + del-br real bridge])
451 AT_KEYWORDS([ovs-vsctl fake-bridge])
452 OVS_VSCTL_SETUP
453 OVS_VSCTL_SETUP_SIMPLE_FAKE_CONF
454 AT_CHECK([RUN_OVS_VSCTL([del-br xenbr0])], [0], [], [], [OVS_VSCTL_CLEANUP])
455 CHECK_BRIDGES
456 OVS_VSCTL_CLEANUP
457 AT_CLEANUP
458
459 AT_SETUP([simple fake bridge + external IDs])
460 AT_KEYWORDS([ovs-vsctl fake-bridge])
461 OVS_VSCTL_SETUP
462 OVS_VSCTL_SETUP_SIMPLE_FAKE_CONF
463 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
464   [br-set-external-id xenbr0 key0 value0],
465   [br-set-external-id xapi1 key1 value1],
466   [br-get-external-id xenbr0],
467   [br-get-external-id xenbr0 key0],
468   [br-get-external-id xapi1],
469   [br-get-external-id xapi1 key1])], [0], [
470
471 key0=value0
472 value0
473 key1=value1
474 value1
475 ], [], [OVS_VSCTL_CLEANUP])
476 CHECK_BRIDGES([xapi1, xenbr0, 9], [xenbr0, xenbr0, 0])
477 CHECK_PORTS([xenbr0], [eth0])
478 CHECK_IFACES([xenbr0], [eth0])
479 CHECK_PORTS([xapi1], [eth0.9])
480 CHECK_IFACES([xapi1], [eth0.9])
481 OVS_VSCTL_CLEANUP
482 AT_CLEANUP
483
484 m4_define([OVS_VSCTL_SETUP_BOND_FAKE_CONF],
485   [AT_CHECK(
486      [RUN_OVS_VSCTL(
487         [add-br xapi1],
488         [add-bond xapi1 bond0 eth0 eth1],
489         [add-br xapi2 xapi1 11],
490         [add-port xapi2 bond0.11])],
491      [0], [], [], [OVS_VSCTL_CLEANUP])])
492
493 AT_SETUP([fake bridge on bond])
494 AT_KEYWORDS([ovs-vsctl fake-bridge])
495 OVS_VSCTL_SETUP
496 OVS_VSCTL_SETUP_BOND_FAKE_CONF
497 CHECK_BRIDGES([xapi1, xapi1, 0], [xapi2, xapi1, 11])
498 CHECK_PORTS([xapi1], [bond0])
499 CHECK_IFACES([xapi1], [eth0], [eth1])
500 CHECK_PORTS([xapi2], [bond0.11])
501 CHECK_IFACES([xapi2], [bond0.11])
502 OVS_VSCTL_CLEANUP
503 AT_CLEANUP
504
505 AT_SETUP([fake bridge on bond + del-br fake bridge])
506 AT_KEYWORDS([ovs-vsctl fake-bridge])
507 OVS_VSCTL_SETUP
508 OVS_VSCTL_SETUP_BOND_FAKE_CONF
509 AT_CHECK([RUN_OVS_VSCTL_ONELINE([del-br xapi2])], [0], [
510 ], [], [OVS_VSCTL_CLEANUP])
511 CHECK_BRIDGES([xapi1, xapi1, 0])
512 CHECK_PORTS([xapi1], [bond0])
513 CHECK_IFACES([xapi1], [eth0], [eth1])
514 OVS_VSCTL_CLEANUP
515 AT_CLEANUP
516
517 AT_SETUP([fake bridge on bond + del-br real bridge])
518 AT_KEYWORDS([ovs-vsctl fake-bridge])
519 OVS_VSCTL_SETUP
520 OVS_VSCTL_SETUP_BOND_FAKE_CONF
521 AT_CHECK([RUN_OVS_VSCTL([del-br xapi1])])
522 CHECK_BRIDGES
523 OVS_VSCTL_CLEANUP
524 AT_CLEANUP
525
526 dnl ----------------------------------------------------------------------
527 AT_BANNER([ovs-vsctl unit tests -- manager commands])
528
529 AT_SETUP([managers])
530 AT_KEYWORDS([manager ovs-vsctl])
531 OVS_VSCTL_SETUP
532 AT_CHECK([RUN_OVS_VSCTL_TOGETHER(
533   [del-manager],
534   [get-manager],
535   [set-manager tcp:4.5.6.7],
536   [get-manager],
537   [set-manager tcp:8.9.10.11 tcp:5.4.3.2],
538   [get-manager],
539   [del-manager],
540   [get-manager])], [0], [
541
542
543 tcp:4.5.6.7
544
545 tcp:5.4.3.2\ntcp:8.9.10.11
546
547
548 ], [], [OVS_VSCTL_CLEANUP])
549 OVS_VSCTL_CLEANUP
550 AT_CLEANUP
551
552 dnl ----------------------------------------------------------------------
553 AT_BANNER([ovs-vsctl unit tests -- database commands])
554
555 AT_SETUP([database commands -- positive checks])
556 AT_KEYWORDS([ovs-vsctl])
557 OVS_VSCTL_SETUP
558 AT_CHECK(
559   [RUN_OVS_VSCTL_TOGETHER([--id=@br0 create b name=br0],
560                           [set o . bridges=@br0])],
561   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
562 cp stdout out1
563 AT_CHECK([RUN_OVS_VSCTL([list b], [get b br0 _uuid])], 
564   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
565 cp stdout out2
566 AT_CHECK([perl $srcdir/uuidfilt.pl out1 out2], [0], 
567   [[<0>
568
569 _uuid               : <0>
570 controller          : []
571 datapath_id         : []
572 datapath_type       : ""
573 external_ids        : {}
574 fail_mode           : []
575 flood_vlans         : []
576 mirrors             : []
577 name                : "br0"
578 netflow             : []
579 other_config        : {}
580 ports               : []
581 sflow               : []
582 status              : {}
583 stp_enable          : false
584 <0>
585 ]], [ignore], [test ! -e pid || kill `cat pid`])
586 AT_CHECK(
587   [RUN_OVS_VSCTL([--columns=fail_mode,name,datapath_type list b])],
588   [0],
589   [[fail_mode           : []
590 name                : "br0"
591 datapath_type       : ""
592 ]], [ignore], [test ! -e pid || kill `cat pid`])
593 AT_CHECK(
594   [RUN_OVS_VSCTL([--columns=fail_mode,name,datapath_type find b])],
595   [0],
596   [[fail_mode           : []
597 name                : "br0"
598 datapath_type       : ""
599 ]], [ignore], [test ! -e pid || kill `cat pid`])
600 AT_CHECK([
601   RUN_OVS_VSCTL_TOGETHER([--id=@br1 create b name=br1 datapath_type="foo"],
602                          [--id=@br2 create b name=br2 external-ids:bar=quux],
603                          [add o . bridges @br1 @br2])],
604   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
605 AT_CHECK(
606   [RUN_OVS_VSCTL([--columns=name find b datapath_type!=foo])], [0], [stdout],
607   [ignore], [test ! -e pid || kill `cat pid`])
608 AT_CHECK([sed -n '/./p' stdout | sort], [0],
609   [[name                : "br0"
610 name                : "br2"
611 ]])
612 AT_CHECK(
613   [RUN_OVS_VSCTL(
614     [set bridge br0 \
615       'other_config:datapath_id="0123456789ab"' \
616       'other_config:hwaddr="00:11:22:33:44:55"' \
617       'external-ids={"uuids"="9c45f225-a7cf-439d-976d-83db6271fda1"}' -- \
618      add bridge br0 external_ids '"roles"="local; remote; cloud"'])], 
619   [0], [], [], [OVS_VSCTL_CLEANUP])
620 AT_CHECK([RUN_OVS_VSCTL_ONELINE([get bridge br0 other_config external-ids])], 
621   [0], [{datapath_id="0123456789ab", hwaddr="00:11:22:33:44:55"}\n{roles="local; remote; cloud", uuids="9c45f225-a7cf-439d-976d-83db6271fda1"}
622 ], [], [OVS_VSCTL_CLEANUP])
623 AT_CHECK([RUN_OVS_VSCTL([get bridge br0 other_config:hwaddr -- --if-exists get bridge br0 other-config:nonexistent])], 
624   [0], ["00:11:22:33:44:55"
625
626 ], [], [OVS_VSCTL_CLEANUP])
627 AT_CHECK([RUN_OVS_VSCTL([remove br br0 other_config hwaddr 'datapath_id=""' -- get br br0 other_config])], 
628   [0], [{datapath_id="0123456789ab"}
629 ], [], [OVS_VSCTL_CLEANUP])
630 AT_CHECK([RUN_OVS_VSCTL([remove br br0 other_config 'datapath_id="0123456789ab"' -- get br br0 other_config])], 
631   [0], [{}
632 ], [], [OVS_VSCTL_CLEANUP])
633 AT_CHECK([RUN_OVS_VSCTL([clear br br0 external-ids -- get br br0 external_ids])], 
634   [0], [{}
635 ], [], [OVS_VSCTL_CLEANUP])
636 AT_CHECK([RUN_OVS_VSCTL_TOGETHER([destroy b br0],
637                                  [destroy b br1],
638                                  [destroy b br2],
639                                  [clear o . bridges])],
640   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
641 AT_CHECK([RUN_OVS_VSCTL([list b])], 
642   [0], [], [], [OVS_VSCTL_CLEANUP])
643 OVS_VSCTL_CLEANUP
644 AT_CLEANUP
645
646 AT_SETUP([database commands -- negative checks])
647 AT_KEYWORDS([ovs-vsctl])
648 OVS_VSCTL_SETUP
649 AT_CHECK([RUN_OVS_VSCTL([add-br br0])],
650   [0], [ignore], [], [OVS_VSCTL_CLEANUP])
651 AT_CHECK([RUN_OVS_VSCTL([add-br br1])], 
652   [0], [ignore], [], [OVS_VSCTL_CLEANUP])
653 AT_CHECK([RUN_OVS_VSCTL([set-controller br1 tcp:127.0.0.1])], 
654   [0], [ignore], [], [OVS_VSCTL_CLEANUP])
655 AT_CHECK([
656     RUN_OVS_VSCTL_TOGETHER([--id=@n create n targets='"1.2.3.4:567"'],
657                            [set bridge br0 netflow=@n])],
658   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
659 cp stdout netflow-uuid
660 AT_CHECK([RUN_OVS_VSCTL([list n `cat netflow-uuid`])],
661   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
662 AT_CHECK([perl $srcdir/uuidfilt.pl netflow-uuid stdout], [0], 
663   [[<0>
664
665 _uuid               : <0>
666 active_timeout      : 0
667 add_id_to_interface : false
668 engine_id           : []
669 engine_type         : []
670 external_ids        : {}
671 targets             : ["1.2.3.4:567"]
672 ]], [ignore], [test ! -e pid || kill `cat pid`])
673 AT_CHECK([RUN_OVS_VSCTL([list interx x])], 
674   [1], [], [ovs-vsctl: unknown table "interx"
675 ], [OVS_VSCTL_CLEANUP])
676 AT_CHECK([RUN_OVS_VSCTL([list b x])], 
677   [1], [], [ovs-vsctl: no row "x" in table Bridge
678 ], [OVS_VSCTL_CLEANUP])
679 AT_CHECK([RUN_OVS_VSCTL([get b br0 d])], 
680   [1], [], [ovs-vsctl: Bridge contains more than one column whose name matches "d"
681 ], [OVS_VSCTL_CLEANUP])
682 AT_CHECK([RUN_OVS_VSCTL([get b br0 x])], 
683   [1], [], [ovs-vsctl: Bridge does not contain a column whose name matches "x"
684 ], [OVS_VSCTL_CLEANUP])
685 AT_CHECK([RUN_OVS_VSCTL([get b br0 :y=z])], 
686   [1], [], [ovs-vsctl: :y=z: missing column name
687 ], [OVS_VSCTL_CLEANUP])
688 AT_CHECK([RUN_OVS_VSCTL([get b br0 datapath_id:y=z])], 
689   [1], [], [ovs-vsctl: datapath_id:y=z: trailing garbage "=z" in argument
690 ], [OVS_VSCTL_CLEANUP])
691 AT_CHECK([RUN_OVS_VSCTL([set b br0 'datapath_id:y>=z'])], 
692   [1], [], [ovs-vsctl: datapath_id:y>=z: argument does not end in "=" followed by a value.
693 ], [OVS_VSCTL_CLEANUP])
694 AT_CHECK([RUN_OVS_VSCTL([wait-until b br0 datapath_id:y,z])], 
695   [1], [], [ovs-vsctl: datapath_id:y,z: argument does not end in "=", "!=", "<", ">", "<=", ">=", "{=}", "{!=}", "{<}", "{>}", "{<=}", or "{>=}" followed by a value.
696 ], [OVS_VSCTL_CLEANUP])
697 AT_CHECK([RUN_OVS_VSCTL([get b br0 datapath_id::])], 
698   [1], [], [ovs-vsctl: datapath_id::: trailing garbage ":" in argument
699 ], [OVS_VSCTL_CLEANUP])
700 AT_CHECK([RUN_OVS_VSCTL([get b br0 datapath_id:x])], 
701   [1], [], [ovs-vsctl: cannot specify key to get for non-map column datapath_id
702 ], [OVS_VSCTL_CLEANUP])
703 AT_CHECK([RUN_OVS_VSCTL([get b br0 external_ids:x])], 
704   [1], [], [ovs-vsctl: no key "x" in Bridge record "br0" column external_ids
705 ], [OVS_VSCTL_CLEANUP])
706 AT_CHECK([RUN_OVS_VSCTL([set b br0 flood_vlans=-1])], 
707   [1], [], [ovs-vsctl: constraint violation: -1 is not in the valid range 0 to 4095 (inclusive)
708 ], [OVS_VSCTL_CLEANUP])
709 AT_CHECK([RUN_OVS_VSCTL([set b br0 flood_vlans=4096])], 
710   [1], [], [ovs-vsctl: constraint violation: 4096 is not in the valid range 0 to 4095 (inclusive)
711 ], [OVS_VSCTL_CLEANUP])
712 AT_CHECK([RUN_OVS_VSCTL([set c br1 'connection-mode=xyz'])], 
713   [1], [], [[ovs-vsctl: constraint violation: xyz is not one of the allowed values ([in-band, out-of-band])
714 ]], [OVS_VSCTL_CLEANUP])
715 AT_CHECK([RUN_OVS_VSCTL([set c br1 connection-mode:x=y])], 
716   [1], [], [ovs-vsctl: cannot specify key to set for non-map column connection_mode
717 ], [OVS_VSCTL_CLEANUP])
718 AT_CHECK([RUN_OVS_VSCTL([add b br1 datapath_id x y])], 
719   [1], [], [ovs-vsctl: "add" operation would put 2 values in column datapath_id of table Bridge but the maximum number is 1
720 ], [OVS_VSCTL_CLEANUP])
721 AT_CHECK([RUN_OVS_VSCTL([remove n `cat netflow-uuid` targets '"1.2.3.4:567"'])], 
722   [1], [], [ovs-vsctl: "remove" operation would put 0 values in column targets of table NetFlow but the minimum number is 1
723 ], [OVS_VSCTL_CLEANUP])
724 AT_CHECK([RUN_OVS_VSCTL([clear n `cat netflow-uuid` targets])], 
725   [1], [], [ovs-vsctl: "clear" operation cannot be applied to column targets of table NetFlow, which is not allowed to be empty
726 ], [OVS_VSCTL_CLEANUP])
727 AT_CHECK([RUN_OVS_VSCTL([destroy b br2])], 
728   [1], [], [ovs-vsctl: no row "br2" in table Bridge
729 ], [OVS_VSCTL_CLEANUP])
730 OVS_VSCTL_CLEANUP
731 AT_CLEANUP
732
733 AT_SETUP([database commands -- conditions])
734 AT_KEYWORDS([ovs-vsctl])
735 trap 'kill `cat pid`' 0
736 OVS_VSCTL_SETUP
737 AT_CHECK(
738   [RUN_OVS_VSCTL_TOGETHER(
739      [add-br br0],
740      [add-br br1], [set bridge br1 flood_vlans=0 other-config:x='""'],
741      [add-br br2], [set bridge br2 flood_vlans=1 other-config:x=y],
742      [add-br br3], [set bridge br3 flood_vlans=0,1 other-config:x=z],
743      [add-br br4], [set bridge br4 flood_vlans=2],
744      [add-br br5], [set bridge br5 flood_vlans=0,2],
745      [add-br br6], [set bridge br6 flood_vlans=1,2],
746      [add-br br7], [set bridge br7 flood_vlans=0,1,2])], [0], [
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761 ])
762 m4_define([VSCTL_CHECK_FIND],
763   [AT_CHECK([ovs-vsctl --bare --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket -- --columns=name find bridge '$1' | sort | xargs echo], [0], [$2
764 ])])
765
766 # Arithmetic relational operators without keys.
767 VSCTL_CHECK_FIND([flood_vlans=0], [br1])
768 VSCTL_CHECK_FIND([flood_vlans=1], [br2])
769 VSCTL_CHECK_FIND([flood_vlans=0,2], [br5])
770 VSCTL_CHECK_FIND([flood_vlans=0,1,2], [br7])
771 VSCTL_CHECK_FIND([flood_vlans=3], [])
772
773 VSCTL_CHECK_FIND([flood_vlans!=0], [br0 br2 br3 br4 br5 br6 br7])
774 VSCTL_CHECK_FIND([flood_vlans!=1], [br0 br1 br3 br4 br5 br6 br7])
775 VSCTL_CHECK_FIND([flood_vlans!=0,2], [br0 br1 br2 br3 br4 br6 br7])
776 VSCTL_CHECK_FIND([flood_vlans!=0,1,2], [br0 br1 br2 br3 br4 br5 br6])
777 VSCTL_CHECK_FIND([flood_vlans!=3], [br0 br1 br2 br3 br4 br5 br6 br7])
778
779 VSCTL_CHECK_FIND([flood_vlans<2], [br0 br1 br2])
780 VSCTL_CHECK_FIND([flood_vlans<0,2], [br0 br1 br2 br3 br4])
781 VSCTL_CHECK_FIND([flood_vlans>1], [br3 br4 br5 br6 br7])
782 VSCTL_CHECK_FIND([flood_vlans>0,1], [br5 br6 br7])
783 VSCTL_CHECK_FIND([flood_vlans<=2], [br0 br1 br2 br4])
784 VSCTL_CHECK_FIND([flood_vlans<=0,2], [br0 br1 br2 br3 br4 br5])
785 VSCTL_CHECK_FIND([flood_vlans>=1], [br2 br3 br4 br5 br6 br7])
786 VSCTL_CHECK_FIND([flood_vlans>=0,1], [br3 br5 br6 br7])
787
788 # Set relational operators without keys.
789 VSCTL_CHECK_FIND([flood_vlans{=}0], [br1])
790 VSCTL_CHECK_FIND([flood_vlans{=}1], [br2])
791 VSCTL_CHECK_FIND([flood_vlans{=}0,2], [br5])
792 VSCTL_CHECK_FIND([flood_vlans{=}0,1,2], [br7])
793 VSCTL_CHECK_FIND([flood_vlans{=}3], [])
794
795 VSCTL_CHECK_FIND([flood_vlans{!=}0], [br0 br2 br3 br4 br5 br6 br7])
796 VSCTL_CHECK_FIND([flood_vlans{!=}1], [br0 br1 br3 br4 br5 br6 br7])
797 VSCTL_CHECK_FIND([flood_vlans{!=}0,2], [br0 br1 br2 br3 br4 br6 br7])
798 VSCTL_CHECK_FIND([flood_vlans{!=}0,1,2], [br0 br1 br2 br3 br4 br5 br6])
799 VSCTL_CHECK_FIND([flood_vlans{!=}3], [br0 br1 br2 br3 br4 br5 br6 br7])
800
801 VSCTL_CHECK_FIND([flood_vlans{<}[[]]], [])
802 VSCTL_CHECK_FIND([flood_vlans{<=}[[]]], [br0])
803 VSCTL_CHECK_FIND([flood_vlans{<}0], [br0])
804 VSCTL_CHECK_FIND([flood_vlans{<=}0], [br0 br1])
805 VSCTL_CHECK_FIND([flood_vlans{<}1,2], [br0 br2 br4])
806 VSCTL_CHECK_FIND([flood_vlans{<=}1,2], [br0 br2 br4 br6])
807
808 VSCTL_CHECK_FIND([flood_vlans{>}[[]]], [br1 br2 br3 br4 br5 br6 br7])
809 VSCTL_CHECK_FIND([flood_vlans{>=}[[]]], [br0 br1 br2 br3 br4 br5 br6 br7])
810 VSCTL_CHECK_FIND([flood_vlans{>}0], [br3 br5 br7])
811 VSCTL_CHECK_FIND([flood_vlans{>=}0], [br1 br3 br5 br7])
812 VSCTL_CHECK_FIND([flood_vlans{>}0,2], [br7])
813 VSCTL_CHECK_FIND([flood_vlans{>=}1,2], [br6 br7])
814 VSCTL_CHECK_FIND([flood_vlans{>=}0,2], [br5 br7])
815
816 # Arithmetic relational operators with keys.
817 VSCTL_CHECK_FIND([other-config:x=""], [br1])
818 VSCTL_CHECK_FIND([other-config:x=y], [br2])
819 VSCTL_CHECK_FIND([other-config:x=z], [br3])
820
821 VSCTL_CHECK_FIND([other-config:x!=""], [br2 br3])
822 VSCTL_CHECK_FIND([other-config:x!=y], [br1 br3])
823 VSCTL_CHECK_FIND([other-config:x!=z], [br1 br2])
824
825 VSCTL_CHECK_FIND([other-config:x>y], [br3])
826 VSCTL_CHECK_FIND([other-config:x>=y], [br2 br3])
827 VSCTL_CHECK_FIND([other-config:x<y], [br1])
828 VSCTL_CHECK_FIND([other-config:x<=y], [br1 br2])
829
830 # Set relational operators with keys.
831 VSCTL_CHECK_FIND([other-config:x{=}[[]]], [br0 br4 br5 br6 br7])
832 VSCTL_CHECK_FIND([other-config:x{=}""], [br1])
833 VSCTL_CHECK_FIND([other-config:x{=}y], [br2])
834 VSCTL_CHECK_FIND([other-config:x{=}z], [br3])
835
836 VSCTL_CHECK_FIND([other-config:x{!=}[[]]], [br1 br2 br3])
837 VSCTL_CHECK_FIND([other-config:x{!=}""], [br0 br2 br3 br4 br5 br6 br7])
838 VSCTL_CHECK_FIND([other-config:x{!=}y], [br0 br1 br3 br4 br5 br6 br7])
839 VSCTL_CHECK_FIND([other-config:x{!=}z], [br0 br1 br2 br4 br5 br6 br7])
840
841 VSCTL_CHECK_FIND([other-config:x{<=}[[]]], [br0 br4 br5 br6 br7])
842 VSCTL_CHECK_FIND([other-config:x{<=}x], [br0 br4 br5 br6 br7])
843 VSCTL_CHECK_FIND([other-config:x{<=}""], [br0 br1 br4 br5 br6 br7])
844 VSCTL_CHECK_FIND([other-config:x{<=}y], [br0 br2 br4 br5 br6 br7])
845 VSCTL_CHECK_FIND([other-config:x{<=}z], [br0 br3 br4 br5 br6 br7])
846 VSCTL_CHECK_FIND([other-config:x{<=}x,y,z], [br0 br2 br3 br4 br5 br6 br7])
847
848 VSCTL_CHECK_FIND([other-config:x{<}[[]]], [])
849 VSCTL_CHECK_FIND([other-config:x{<}x], [br0 br4 br5 br6 br7])
850 VSCTL_CHECK_FIND([other-config:x{<}""], [br0 br4 br5 br6 br7])
851 VSCTL_CHECK_FIND([other-config:x{<}y], [br0 br4 br5 br6 br7])
852 VSCTL_CHECK_FIND([other-config:x{<}z], [br0 br4 br5 br6 br7])
853
854 VSCTL_CHECK_FIND([other-config:x{>=}[[]]], [br0 br1 br2 br3 br4 br5 br6 br7])
855 VSCTL_CHECK_FIND([other-config:x{>=}x], [])
856 VSCTL_CHECK_FIND([other-config:x{>=}""], [br1])
857 VSCTL_CHECK_FIND([other-config:x{>=}y], [br2])
858 VSCTL_CHECK_FIND([other-config:x{>=}z], [br3])
859
860 VSCTL_CHECK_FIND([other-config:x{>}[[]]], [br1 br2 br3])
861 VSCTL_CHECK_FIND([other-config:x{>}x], [])
862 VSCTL_CHECK_FIND([other-config:x{>}""], [])
863 VSCTL_CHECK_FIND([other-config:x{>}y], [])
864 VSCTL_CHECK_FIND([other-config:x{>}z], [])
865 AT_CLEANUP
866
867 AT_SETUP([database commands -- wait-until immediately true])
868 AT_KEYWORDS([ovs-vsctl])
869 OVS_VSCTL_SETUP
870 AT_CHECK([RUN_OVS_VSCTL(
871     [add-br br0], 
872     [add-bond br0 bond0 eth0 eth1],
873     [set port bond0 bond_updelay=500 other-config:abc=def])],
874   [0], [], [], [OVS_VSCTL_CLEANUP])
875 AT_CHECK([RUN_OVS_VSCTL([[wait-until Open_vSwitch . manager_options=[]]])],
876   [0], [], [], [OVS_VSCTL_CLEANUP])
877 AT_CHECK([RUN_OVS_VSCTL([[wait-until Open_vSwitch . bridges!=[]]])],
878   [0], [], [], [OVS_VSCTL_CLEANUP])
879 AT_CHECK([RUN_OVS_VSCTL([[wait-until Port bond0 other-config:abc=def]])],
880   [0], [], [], [OVS_VSCTL_CLEANUP])
881 AT_CHECK([RUN_OVS_VSCTL([[wait-until port bond0 'bond_updelay>50' 'other-config:abc>d' 'other-config:abc<e']])],
882   [0], [], [], [OVS_VSCTL_CLEANUP])
883 OVS_VSCTL_CLEANUP
884 AT_CLEANUP
885
886 AT_SETUP([database commands -- wait-until must wait])
887 AT_KEYWORDS([ovs-vsctl])
888
889 # Disable lcov for this test.  All the programs running in parallel
890 # race badly on access to profiling data.
891 DISABLE_LCOV=true
892 export DISABLE_LCOV
893
894 OVS_VSCTL_SETUP
895
896 # Start ovs-vsctls in background.
897 (RUN_OVS_VSCTL([[wait-until o . bridges!=[] -- get bridge br10 other-config:abc]])) > stdout1 &
898 (RUN_OVS_VSCTL([[wait-until bridge br1 -- get bridge br1 other-config:abc]])) > stdout2 &
899 (RUN_OVS_VSCTL([[wait-until b br1 other-config={abc=def} -- get bridge br1 other-config]])) > stdout3 &
900 (RUN_OVS_VSCTL([[wait-until port bond0 'bond_updelay>50' -- get port bond0 bond-updelay]])) > stdout4 &
901
902 # Give the ovs-vsctls a chance to read the database
903 sleep 1
904
905 AT_CHECK([RUN_OVS_VSCTL([add-br br10 -- set bridge br10 other-config:abc=quux])
906 RUN_OVS_VSCTL([add-br br1 -- set bridge br1 other-config:abc=def -- add-bond br1 bond0 eth0 eth1 -- set port bond0 bond_updelay=500])],
907   [0], [], [], [OVS_VSCTL_CLEANUP])
908
909 # Wait for the ovs-vsctls to finish.
910 wait
911
912 # Check output
913 AT_CHECK([cat stdout1], [0], [quux
914 ], [], [OVS_VSCTL_CLEANUP])
915 AT_CHECK([cat stdout2], [0], [def
916 ], [], [OVS_VSCTL_CLEANUP])
917 AT_CHECK([cat stdout3], [0], [{abc=def}
918 ], [], [OVS_VSCTL_CLEANUP])
919 AT_CHECK([cat stdout4], [0], [500
920 ], [], [OVS_VSCTL_CLEANUP])
921
922 OVS_VSCTL_CLEANUP
923 AT_CLEANUP
924
925 AT_SETUP([--id option on create, get commands])
926 AT_KEYWORDS([ovs-vsctl])
927 OVS_VSCTL_SETUP
928 AT_CHECK([RUN_OVS_VSCTL([add-br br0],
929                         [add-port br0 eth0],
930                         [add-port br0 eth1])])
931 AT_CHECK(
932   [RUN_OVS_VSCTL_TOGETHER(
933     [set bridge br0 mirrors=@m],
934     [--id=@eth0 get port eth0],
935     [--id=@eth1 get port eth1],
936     [--id=@m create mirror name=mymirror select-dst-port=@eth0 select-src-port=@eth0 output-port=@eth1])],
937   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
938 AT_CHECK(
939   [perl $srcdir/uuidfilt.pl stdout], [0], [dnl
940
941
942
943 <0>
944 ],
945   [], [OVS_VSCTL_CLEANUP])
946 AT_CHECK(
947   [RUN_OVS_VSCTL(
948     [list port eth0 eth1],
949     [list mirror],
950     [list bridge br0])],
951   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
952 AT_CHECK(
953   [sed -n -e '/uuid/p' -e '/name/p' -e '/mirrors/p' -e '/select/p' -e '/output/p' < stdout | $srcdir/uuidfilt.pl], [0], [dnl
954 [_uuid               : <0>
955 name                : "eth0"
956 _uuid               : <1>
957 name                : "eth1"
958 _uuid               : <2>
959 name                : mymirror
960 output_port         : <1>
961 output_vlan         : []
962 select_all          : false
963 select_dst_port     : [<0>]
964 select_src_port     : [<0>]
965 select_vlan         : []
966 _uuid               : <3>
967 mirrors             : [<2>]
968 name                : "br0"
969 ]],
970   [], [OVS_VSCTL_CLEANUP])
971 OVS_VSCTL_CLEANUP
972 AT_CLEANUP
973
974 AT_SETUP([unreferenced record warnings])
975 AT_KEYWORDS([ovs-vsctl])
976 OVS_VSCTL_SETUP
977 AT_CHECK(
978   [ovs-vsctl -vPATTERN:console:'%c|%p|%m' --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket \
979      -- create Bridge name=br0 | $srcdir/uuidfilt.pl],
980   [0], [<0>
981 ], [vsctl|WARN|applying "create" command to table Bridge without --id option will have no effect
982 ], [OVS_VSCTL_CLEANUP])
983 AT_CHECK(
984   [ovs-vsctl -vPATTERN:console:'%c|%p|%m' --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket \
985      -- --id=@br0 create Bridge name=br0 | $srcdir/uuidfilt.pl],
986   [0], [<0>
987 ], [vsctl|WARN|row id "@br0" was created but no reference to it was inserted, so it will not actually appear in the database
988 ], [OVS_VSCTL_CLEANUP])
989 AT_CHECK(
990   [ovs-vsctl -vPATTERN:console:'%c|%p|%m' --timeout=5 --no-wait -vreconnect:ANY:emer --db=unix:socket \
991      -- --id=@eth0_iface create Interface name=eth0 \
992      -- --id=@eth0 create Port name=eth0 interfaces=@eth0_iface \
993      -- --id=@m0 create Mirror name=m0 output_port=@eth0 \
994      -- --id=@br0 create Bridge name=br0 mirrors=@m0 \
995      -- set Open_vSwitch . bridges=@br0 | $srcdir/uuidfilt.pl],
996   [0], [<0>
997 <1>
998 <2>
999 <3>
1000 ], [vsctl|WARN|row id "@eth0" was created but only a weak reference to it was inserted, so it will not actually appear in the database
1001 ], [OVS_VSCTL_CLEANUP])
1002 OVS_VSCTL_CLEANUP
1003 AT_CLEANUP
1004
1005 dnl This test really shows a bug -- "create" followed by "list" in
1006 dnl the same execution shows the wrong UUID on the "list" command.
1007 dnl The bug is documented in ovs-vsctl.8.
1008 AT_SETUP([created row UUID is wrong in same execution])
1009 AT_KEYWORDS([ovs-vsctl])
1010 OVS_VSCTL_SETUP
1011 AT_CHECK([RUN_OVS_VSCTL([--id=@br0 create Bridge name=br0 -- add Open_vSwitch . bridges @br0 -- list b])],
1012   [0], [stdout], [], [OVS_VSCTL_CLEANUP])
1013 AT_CHECK([perl $srcdir/uuidfilt.pl stdout], [0], 
1014   [[<0>
1015 _uuid               : <1>
1016 controller          : []
1017 datapath_id         : []
1018 datapath_type       : ""
1019 external_ids        : {}
1020 fail_mode           : []
1021 flood_vlans         : []
1022 mirrors             : []
1023 name                : "br0"
1024 netflow             : []
1025 other_config        : {}
1026 ports               : []
1027 sflow               : []
1028 status              : {}
1029 stp_enable          : false
1030 ]], [ignore], [test ! -e pid || kill `cat pid`])
1031 OVS_VSCTL_CLEANUP
1032 AT_CLEANUP