1 AT_BANNER([OVSDB -- ovsdb-tool])
3 # OVSDB_CHECK_EXECUTION(TITLE, SCHEMA, TRANSACTIONS, OUTPUT, [KEYWORDS])
5 # Creates a database with the given SCHEMA and runs each of the
6 # TRANSACTIONS (which should be a quoted list of quoted strings)
7 # against it with ovsdb-tool one at a time.
9 # Checks that the overall output is OUTPUT, but UUIDs in the output
10 # are replaced by markers of the form <N> where N is a number. The
11 # first unique UUID is replaced by <0>, the next by <1>, and so on.
12 # If a given UUID appears more than once it is always replaced by the
15 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
16 m4_define([OVSDB_CHECK_EXECUTION],
18 AT_KEYWORDS([ovsdb file positive $5])
21 AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
22 m4_foreach([txn], [$3],
23 [AT_CHECK([ovsdb-tool transact db 'txn'], [0], [stdout], [ignore])
26 AT_CHECK([${PERL} $srcdir/uuidfilt.pl output], [0], [$4])
31 AT_SETUP([transaction comments])
32 AT_KEYWORDS([ovsdb file positive])
33 ordinal_schema > schema
35 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
36 AT_CHECK([[ovsdb-tool transact db '
40 "row": {"name": "five", "number": 5}},
42 "comment": "add row for 5"}]']], [0], [stdout], [ignore])
43 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0],
44 [[[{"uuid":["uuid","<0>"]},{}]
46 AT_CHECK([grep "add row for 5" db], [0], [ignore])
49 AT_SETUP([ovsdb-tool compact])
50 AT_KEYWORDS([ovsdb file positive])
51 ordinal_schema > schema
52 dnl Make sure that "ovsdb-tool create" works with a dangling symlink,
53 dnl creating the target of the symlink rather than replacing the symlink
54 dnl with a regular file, and that the lockfile gets created relative to
55 dnl the symlink's target.
59 AT_SKIP_IF([test ! -h db])
60 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
61 AT_CHECK([test ! -e .db.~lock])
62 AT_CHECK([test -h db])
63 AT_CHECK([test -f dir/db])
64 dnl Do a bunch of random transactions that put crap in the database log.
66 [[for pair in 'zero 0' 'one 1' 'two 2' 'three 3' 'four 4' 'five 5'; do
68 ovsdb-tool transact db '
72 "row": {"name": "'$1'", "number": '$2'}},
74 "comment": "add row for '"$pair"'"}]'
75 ovsdb-tool transact db '
79 "where": [["number", "==", '$2']]},
81 "comment": "delete row for '"$2"'"}]'
82 ovsdb-tool transact db '
86 "row": {"name": "'$1'", "number": '$2'}},
88 "comment": "add back row for '"$pair"'"}]'
90 [0], [stdout], [ignore])
91 dnl Check that all the crap is in fact in the database log.
92 AT_CHECK([[${PERL} $srcdir/uuidfilt.pl db | grep -v ^OVSDB | sed 's/"_date":[0-9]*/"_date":0/' | ovstest test-json --multiple -]], [0],
93 [[{"cksum":"12345678 9","name":"ordinals","tables":{"ordinals":{"columns":{"name":{"type":"string"},"number":{"type":"integer"}},"indexes":[["number"]]}},"version":"5.1.3"}
94 {"_comment":"add row for zero 0","_date":0,"ordinals":{"<0>":{"name":"zero"}}}
95 {"_comment":"delete row for 0","_date":0,"ordinals":{"<0>":null}}
96 {"_comment":"add back row for zero 0","_date":0,"ordinals":{"<1>":{"name":"zero"}}}
97 {"_comment":"add row for one 1","_date":0,"ordinals":{"<2>":{"name":"one","number":1}}}
98 {"_comment":"delete row for 1","_date":0,"ordinals":{"<2>":null}}
99 {"_comment":"add back row for one 1","_date":0,"ordinals":{"<3>":{"name":"one","number":1}}}
100 {"_comment":"add row for two 2","_date":0,"ordinals":{"<4>":{"name":"two","number":2}}}
101 {"_comment":"delete row for 2","_date":0,"ordinals":{"<4>":null}}
102 {"_comment":"add back row for two 2","_date":0,"ordinals":{"<5>":{"name":"two","number":2}}}
103 {"_comment":"add row for three 3","_date":0,"ordinals":{"<6>":{"name":"three","number":3}}}
104 {"_comment":"delete row for 3","_date":0,"ordinals":{"<6>":null}}
105 {"_comment":"add back row for three 3","_date":0,"ordinals":{"<7>":{"name":"three","number":3}}}
106 {"_comment":"add row for four 4","_date":0,"ordinals":{"<8>":{"name":"four","number":4}}}
107 {"_comment":"delete row for 4","_date":0,"ordinals":{"<8>":null}}
108 {"_comment":"add back row for four 4","_date":0,"ordinals":{"<9>":{"name":"four","number":4}}}
109 {"_comment":"add row for five 5","_date":0,"ordinals":{"<10>":{"name":"five","number":5}}}
110 {"_comment":"delete row for 5","_date":0,"ordinals":{"<10>":null}}
111 {"_comment":"add back row for five 5","_date":0,"ordinals":{"<11>":{"name":"five","number":5}}}
113 dnl Dump out and check the actual database contents.
114 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
115 [0], [stdout], [ignore])
116 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
119 ------------------------------------ ----- ------
127 dnl Now compact the database in-place.
129 AT_CHECK([[ovsdb-tool compact db]], [0], [], [ignore])
130 dnl Make sure that "db" is still a symlink to dir/db instead of getting
131 dnl replaced by a regular file.
132 AT_CHECK([test ! -e .db.~lock])
133 AT_CHECK([test -h db])
134 AT_CHECK([test -f dir/db])
135 dnl We can't fully re-check the contents of the database log, because the
136 dnl order of the records is not predictable, but there should only be 4 lines
138 AT_CAPTURE_FILE([db])
139 AT_CHECK([test `wc -l < db` -eq 4])
140 dnl And check that the dumped data is the same too:
141 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
142 [0], [stdout], [ignore])
143 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
146 ------------------------------------ ----- ------
156 AT_SETUP([ovsdb-tool convert -- removing a column])
157 AT_KEYWORDS([ovsdb file positive])
158 ordinal_schema > schema
159 AT_DATA([new-schema],
160 [[{"name": "ordinals",
164 "number": {"type": "integer"}}}}}
167 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
168 dnl Put some data in the database.
170 [[for pair in 'zero 0' 'one 1' 'two 2' 'three 3' 'four 4' 'five 5'; do
172 ovsdb-tool transact db '
176 "row": {"name": "'$1'", "number": '$2'}},
178 "comment": "add row for '"$pair"'"}]'
180 [0], [stdout], [ignore])
181 dnl Dump out and check the actual database contents.
182 AT_CHECK([[ovsdb-server --detach --no-chdir --pidfile --remote=punix:socket db]],
184 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore])
185 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
188 ------------------------------------ ----- ------
196 OVS_APP_EXIT_AND_WAIT([ovsdb-server])
197 dnl Now convert the database in-place.
199 AT_CHECK([[ovsdb-tool convert db new-schema]], [0], [], [ignore])
200 dnl We can't fully re-check the contents of the database log, because the
201 dnl order of the records is not predictable, but there should only be 4 lines
203 AT_CAPTURE_FILE([db])
204 AT_CHECK([test `wc -l < db` -eq 4])
205 dnl And check that the dumped data is the same except for the removed column:
206 AT_CHECK([[ovsdb-server --detach --no-chdir --pidfile --remote=punix:socket db]],
208 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore])
209 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
212 ------------------------------------ ------
220 OVS_APP_EXIT_AND_WAIT([ovsdb-server])
223 AT_SETUP([ovsdb-tool convert -- adding a column])
224 AT_KEYWORDS([ovsdb file positive])
226 [[{"name": "ordinals",
230 "number": {"type": "integer"}}}}}
232 ordinal_schema > new-schema
234 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
235 dnl Put some data in the database.
237 [[for number in 0 1 2 3 4 5; do
238 ovsdb-tool transact db '
242 "row": {"number": '$number'}},
244 "comment": "add row for '"$number"'"}]'
246 [0], [stdout], [ignore])
247 dnl Dump out and check the actual database contents.
248 AT_CHECK([[ovsdb-server --detach --no-chdir --pidfile --remote=punix:socket db]],
250 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore])
251 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
254 ------------------------------------ ------
262 OVS_APP_EXIT_AND_WAIT([ovsdb-server])
263 dnl Now convert the database in-place.
265 AT_CHECK([[ovsdb-tool convert db new-schema]], [0], [], [ignore])
266 dnl We can't fully re-check the contents of the database log, because the
267 dnl order of the records is not predictable, but there should only be 4 lines
269 AT_CAPTURE_FILE([db])
270 AT_CHECK([test `wc -l < db` -eq 4])
271 dnl And check that the dumped data is the same except for the added column:
272 AT_CHECK([[ovsdb-server --detach --no-chdir --pidfile --remote=punix:socket db]],
274 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore])
275 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
278 ------------------------------------ ---- ------
286 OVS_APP_EXIT_AND_WAIT([ovsdb-server])
289 AT_SETUP([ovsdb-tool schema-version])
290 AT_KEYWORDS([ovsdb file positive])
291 ordinal_schema > schema
292 AT_CHECK([ovsdb-tool schema-version schema], [0], [5.1.3
296 AT_SETUP([ovsdb-tool db-version])
297 AT_KEYWORDS([ovsdb file positive])
298 ordinal_schema > schema
300 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
301 AT_CHECK([ovsdb-tool db-version db], [0], [5.1.3
305 AT_SETUP([ovsdb-tool schema-cksum])
306 AT_KEYWORDS([ovsdb file positive])
307 ordinal_schema > schema
308 AT_CHECK([ovsdb-tool schema-cksum schema], [0], [12345678 9
312 AT_SETUP([ovsdb-tool db-cksum])
313 AT_KEYWORDS([ovsdb file positive])
314 ordinal_schema > schema
316 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
317 AT_CHECK([ovsdb-tool db-cksum db], [0], [12345678 9
321 AT_SETUP([ovsdb-tool needs-conversion (no conversion needed)])
322 AT_KEYWORDS([ovsdb file positive])
323 ordinal_schema > schema
325 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
326 AT_CHECK([ovsdb-tool needs-conversion db schema], [0], [no
330 AT_SETUP([ovsdb-tool needs-conversion (conversion needed)])
331 AT_KEYWORDS([ovsdb file positive])
332 ordinal_schema > schema
334 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
335 sed 's/5\.1\.3/5.1.4/' < schema > schema2
336 AT_CHECK([diff schema schema2], [1], [ignore])
337 AT_CHECK([ovsdb-tool needs-conversion db schema2], [0], [yes