1 AT_BANNER([OVSDB -- interface description language (IDL)])
3 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
4 # OVSDB_CHECK_IDL_C(TITLE, [PRE-IDL-TXN], TRANSACTIONS, OUTPUT, [KEYWORDS],
7 # Creates a database with a schema derived from idltest.ovsidl, runs
8 # each PRE-IDL-TXN (if any), starts an ovsdb-server on that database,
9 # and runs "test-ovsdb idl" passing each of the TRANSACTIONS along.
11 # Checks that the overall output is OUTPUT. Before comparison, the
12 # output is sorted (using "sort") and UUIDs in the output are replaced
13 # by markers of the form <N> where N is a number. The first unique
14 # UUID is replaced by <0>, the next by <1>, and so on. If a given
15 # UUID appears more than once it is always replaced by the same
16 # marker. If FILTER is supplied then the output is also filtered
17 # through the specified program.
19 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
20 m4_define([OVSDB_CHECK_IDL_C],
22 AT_KEYWORDS([ovsdb server idl positive $5])
23 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
24 AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
25 [0], [stdout], [ignore])
26 AT_CHECK([ovsdb-server '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=punix:socket --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
28 [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore], [kill `cat pid`])])
29 AT_CHECK([test-ovsdb '-vPATTERN:console:test-ovsdb|%c|%m' -vjsonrpc -t10 idl unix:socket $3],
30 [0], [stdout], [ignore], [kill `cat pid`])
31 AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
32 [0], [$4], [], [kill `cat pid`])
36 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation.
37 m4_define([OVSDB_CHECK_IDL_PY],
38 [AT_SETUP([$1 - Python])
39 AT_SKIP_IF([test $HAVE_PYTHON = no])
40 AT_KEYWORDS([ovsdb server idl positive Python $5])
41 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
42 AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
43 [0], [stdout], [ignore])
44 AT_CHECK([ovsdb-server '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=punix:socket --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
46 [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore], [kill `cat pid`])])
47 AT_CHECK([$PYTHON $srcdir/test-ovsdb.py -t10 idl $srcdir/idltest.ovsschema unix:socket $3],
48 [0], [stdout], [ignore], [kill `cat pid`])
49 AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
50 [0], [$4], [], [kill `cat pid`])
54 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation with tcp
55 m4_define([OVSDB_CHECK_IDL_TCP_PY],
56 [AT_SETUP([$1 - Python tcp])
57 AT_SKIP_IF([test $HAVE_PYTHON = no])
58 AT_KEYWORDS([ovsdb server idl positive Python with tcp socket $5])
59 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
60 OVS_LOGDIR=`pwd`; export OVS_LOGDIR
61 AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
62 [0], [stdout], [ignore])
63 AT_CHECK([ovsdb-server --log-file '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=punix:socket --remote=ptcp:0:127.0.0.1 --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
64 TCP_PORT=`parse_listening_port < ovsdb-server.log`
67 [AT_CHECK([ovsdb-client transact tcp:127.0.0.1:$TCP_PORT $2], [0], [ignore], [ignore], [kill `cat pid`])])
68 AT_CHECK([$PYTHON $srcdir/test-ovsdb.py -t10 idl $srcdir/idltest.ovsschema tcp:127.0.0.1:$TCP_PORT $3],
69 [0], [stdout], [ignore], [kill `cat pid`])
70 AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
71 [0], [$4], [], [kill `cat pid`])
75 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation with tcp6
76 m4_define([OVSDB_CHECK_IDL_TCP6_PY],
77 [AT_SETUP([$1 - Python tcp6])
78 AT_SKIP_IF([test $HAVE_PYTHON = no])
79 AT_KEYWORDS([ovsdb server idl positive Python with tcp6 socket $5])
80 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
81 OVS_LOGDIR=`pwd`; export OVS_LOGDIR
82 AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
83 [0], [stdout], [ignore])
84 AT_CHECK([ovsdb-server --log-file '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=ptcp:0:[[::1]] --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
85 TCP_PORT=`parse_listening_port < ovsdb-server.log`
86 echo "TCP_PORT=$TCP_PORT"
89 [AT_CHECK([ovsdb-client transact "tcp:[[::1]]:$TCP_PORT" $2], [0], [ignore], [ignore], [kill `cat pid`])])
90 AT_CHECK([$PYTHON $srcdir/test-ovsdb.py -t10 idl $srcdir/idltest.ovsschema tcp:[[::1]]:$TCP_PORT $3],
91 [0], [stdout], [ignore], [kill `cat pid`])
92 AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
93 [0], [$4], [], [kill `cat pid`])
97 m4_define([OVSDB_CHECK_IDL],
98 [OVSDB_CHECK_IDL_C($@)
99 OVSDB_CHECK_IDL_PY($@)
100 OVSDB_CHECK_IDL_TCP_PY($@)
101 OVSDB_CHECK_IDL_TCP6_PY($@)])
103 OVSDB_CHECK_IDL([simple idl, initially empty, no ops],
110 OVSDB_CHECK_IDL([simple idl, initially empty, various ops],
119 "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
120 "ia": ["set", [1, 2, 3]],
121 "ra": ["set", [-0.5]],
122 "ba": ["set", [true]],
123 "sa": ["set", ["abc", "def"]],
124 "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
125 ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
133 "row": {"b": true}}]' \
138 "row": {"r": 123.5}}]' \
147 "ra": ["set", [1.5]],
148 "ba": ["set", [false]],
150 "ua": ["set", []]}}]' \
154 "where": [["i", "<", 1]],
155 "row": {"s": "newstring"}}]' \
159 "where": [["i", "==", 0]]}]' \
162 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
163 002: i=0 r=0 b=false s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
164 002: i=1 r=2 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
165 003: {"error":null,"result":[{"count":2}]}
166 004: i=0 r=0 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
167 004: i=1 r=2 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
168 005: {"error":null,"result":[{"count":2}]}
169 006: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
170 006: i=1 r=123.5 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
171 007: {"error":null,"result":[{"uuid":["uuid","<6>"]}]}
172 008: i=-1 r=125 b=false s= u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
173 008: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
174 008: i=1 r=123.5 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
175 009: {"error":null,"result":[{"count":2}]}
176 010: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
177 010: i=0 r=123.5 b=true s=newstring u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
178 010: i=1 r=123.5 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
179 011: {"error":null,"result":[{"count":1}]}
180 012: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
181 012: i=1 r=123.5 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
183 014: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
184 014: i=1 r=123.5 b=true s=mystring u=<3> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<4> <5>] uuid=<0>
188 OVSDB_CHECK_IDL([simple idl, initially populated],
196 "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
197 "ia": ["set", [1, 2, 3]],
198 "ra": ["set", [-0.5]],
199 "ba": ["set", [true]],
200 "sa": ["set", ["abc", "def"]],
201 "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
202 ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
210 "row": {"b": true}}]']],
211 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
212 000: i=1 r=2 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<5>
213 001: {"error":null,"result":[{"count":2}]}
214 002: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
215 002: i=1 r=2 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<5>
219 OVSDB_CHECK_IDL([simple idl, writing via IDL],
227 "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
228 "ia": ["set", [1, 2, 3]],
229 "ra": ["set", [-0.5]],
230 "ba": ["set", [true]],
231 "sa": ["set", ["abc", "def"]],
232 "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
233 ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
237 [['verify 0 b, verify 1 r, set 0 b 1, set 1 r 3.5' \
238 'insert 2, verify 2 i, verify 1 b, delete 1']],
239 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
240 000: i=1 r=2 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<5>
241 001: commit, status=success
242 002: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
243 002: i=1 r=3.5 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<5>
244 003: commit, status=success
245 004: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
246 004: i=2 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<6>
250 OVSDB_CHECK_IDL([simple idl, handling verification failure],
263 "where": [["i", "==", 1]],
264 "row": {"r": 5.0}}]' \
265 '+verify 1 r, set 1 r 3' \
266 'verify 1 r, set 1 r 3' \
268 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
269 000: i=1 r=2 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
270 001: commit, status=success
271 002: {"error":null,"result":[{"count":1}]}
272 003: commit, status=try again
273 004: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
274 004: i=1 r=5 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
275 005: commit, status=success
276 006: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
277 006: i=1 r=3 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
281 OVSDB_CHECK_IDL([simple idl, increment operation],
286 [['set 0 r 2.0, increment 0']],
287 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
288 001: commit, status=success, increment=1
289 002: i=1 r=2 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
293 OVSDB_CHECK_IDL([simple idl, aborting],
298 [['set 0 r 2.0, abort' \
300 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
301 001: commit, status=aborted
302 002: commit, status=success
303 003: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
307 OVSDB_CHECK_IDL([simple idl, destroy without commit or abort],
312 [['set 0 r 2.0, destroy' \
314 [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
316 002: commit, status=success
317 003: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
321 OVSDB_CHECK_IDL([self-linking idl, consistent ops],
326 "row": {"i": 0, "k": ["named-uuid", "self"]},
327 "uuid-name": "self"}]' \
331 "row": {"i": 1, "k": ["named-uuid", "row2"]},
332 "uuid-name": "row1"},
335 "row": {"i": 2, "k": ["named-uuid", "row1"]},
336 "uuid-name": "row2"}]' \
340 "where": [["i", "==", 1]],
341 "row": {"k": ["uuid", "#1#"]}}]' \
346 "row": {"k": ["uuid", "#0#"]}}]']],
348 001: {"error":null,"result":[{"uuid":["uuid","<0>"]}]}
349 002: i=0 k=0 ka=[] l2= uuid=<0>
350 003: {"error":null,"result":[{"uuid":["uuid","<1>"]},{"uuid":["uuid","<2>"]}]}
351 004: i=0 k=0 ka=[] l2= uuid=<0>
352 004: i=1 k=2 ka=[] l2= uuid=<1>
353 004: i=2 k=1 ka=[] l2= uuid=<2>
354 005: {"error":null,"result":[{"count":1}]}
355 006: i=0 k=0 ka=[] l2= uuid=<0>
356 006: i=1 k=1 ka=[] l2= uuid=<1>
357 006: i=2 k=1 ka=[] l2= uuid=<2>
358 007: {"error":null,"result":[{"count":3}]}
359 008: i=0 k=0 ka=[] l2= uuid=<0>
360 008: i=1 k=0 ka=[] l2= uuid=<1>
361 008: i=2 k=0 ka=[] l2= uuid=<2>
365 OVSDB_CHECK_IDL([self-linking idl, inconsistent ops],
370 "row": {"i": 0, "k": ["uuid", "cf197cc5-c8c9-42f5-82d5-c71a9f2cb96b"]}}]' \
375 "row": {"i": 1, "k": ["named-uuid", "one"]}},
378 "row": {"i": 2, "k": ["named-uuid", "one"]}}]' \
383 "row": {"k": ["uuid", "c2fca39a-e69a-42a4-9c56-5eca85839ce9"]}}]' \
387 "where": [["_uuid", "==", ["uuid", "#1#"]]]}]' \
391 "where": [["_uuid", "==", ["uuid", "#2#"]]]}]' \
398 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"details":"Table link1 column k row <0> references nonexistent row <1> in table link1.","error":"referential integrity violation"}]}
399 002: {"error":null,"result":[{"uuid":["uuid","<2>"]},{"uuid":["uuid","<3>"]}]}
400 003: i=1 k=1 ka=[] l2= uuid=<2>
401 003: i=2 k=1 ka=[] l2= uuid=<3>
402 004: {"error":null,"result":[{"count":2},{"details":"Table link1 column k row <x> references nonexistent row <4> in table link1.","error":"referential integrity violation"}]}
403 005: {"error":null,"result":[{"count":1},{"details":"cannot delete link1 row <2> because of 1 remaining reference(s)","error":"referential integrity violation"}]}
404 006: {"error":null,"result":[{"count":1}]}
405 007: i=1 k=1 ka=[] l2= uuid=<2>
406 008: {"error":null,"result":[{"count":1}]}
411 [[sed -e '/004:/s/row <[23]> references/row <x> references/']])
413 OVSDB_CHECK_IDL([self-linking idl, sets],
418 "row": {"i": 0, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i0"]]]},
422 "row": {"i": 1, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i1"]]]},
426 "row": {"i": 2, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i2"]]]},
430 "row": {"i": 3, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i3"]]]},
431 "uuid-name": "i3"}]' \
436 "row": {"ka": ["set", [["uuid", "#0#"], ["uuid", "#1#"], ["uuid", "#2#"], ["uuid", "#3#"]]]}}]' \
440 "where": [["i", "==", 2]],
441 "row": {"ka": ["set", [["uuid", "#0#"], ["uuid", "88702e78-845b-4a6e-ad08-cf68922ae84a"], ["uuid", "#2#"]]]}}]' \
447 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]},{"uuid":["uuid","<2>"]},{"uuid":["uuid","<3>"]}]}
448 002: i=0 k=0 ka=[0] l2= uuid=<0>
449 002: i=1 k=0 ka=[1] l2= uuid=<1>
450 002: i=2 k=0 ka=[2] l2= uuid=<2>
451 002: i=3 k=0 ka=[3] l2= uuid=<3>
452 003: {"error":null,"result":[{"count":4}]}
453 004: i=0 k=0 ka=[0 1 2 3] l2= uuid=<0>
454 004: i=1 k=0 ka=[0 1 2 3] l2= uuid=<1>
455 004: i=2 k=0 ka=[0 1 2 3] l2= uuid=<2>
456 004: i=3 k=0 ka=[0 1 2 3] l2= uuid=<3>
457 005: {"error":null,"result":[{"count":1},{"details":"Table link1 column ka row <2> references nonexistent row <4> in table link1.","error":"referential integrity violation"}]}
458 006: {"error":null,"result":[{"count":4}]}
463 OVSDB_CHECK_IDL([external-linking idl, consistent ops],
469 "uuid-name": "row0"},
472 "row": {"i": 1, "k": ["named-uuid", "row1"], "l2": ["set", [["named-uuid", "row0"]]]},
473 "uuid-name": "row1"}]']],
475 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
476 002: i=0 l1= uuid=<0>
477 002: i=1 k=1 ka=[] l2=0 uuid=<1>
481 OVSDB_CHECK_IDL_PY([external-linking idl, insert ops],
485 001: commit, status=success
486 002: i=1 k=1 ka=[1] l2= uuid=<0>
487 002: i=2 k=1 ka=[1 2] l2= uuid=<1>
491 OVSDB_CHECK_IDL_PY([getattr idl, insert ops],
495 001: commit, status=success
496 002: i=2 k=2 ka=[] l2= uuid=<0>