pintos-os.org Git - openvswitch/blob - tests/ovsdb-server.at

   1 AT_BANNER([OVSDB -- ovsdb-server transactions (Unix sockets)])
   2
   3 m4_define([OVSDB_SERVER_SHUTDOWN],
   4   [cp pid savepid
   5    AT_CHECK([ovs-appctl -t $PWD/unixctl -e exit], [0], [ignore], [ignore])
   6    OVS_WAIT_WHILE([kill -0 `cat savepid`], [kill `cat savepid`])])
   7
   8 # OVSDB_CHECK_EXECUTION(TITLE, SCHEMA, TRANSACTIONS, OUTPUT, [KEYWORDS])
   9 #
  10 # Creates a database with the given SCHEMA, starts an ovsdb-server on
  11 # that database, and runs each of the TRANSACTIONS (which should be a
  12 # quoted list of quoted strings) against it with ovsdb-client one at a
  13 # time.
  14 #
  15 # Checks that the overall output is OUTPUT, but UUIDs in the output
  16 # are replaced by markers of the form <N> where N is a number.  The
  17 # first unique UUID is replaced by <0>, the next by <1>, and so on.
  18 # If a given UUID appears more than once it is always replaced by the
  19 # same marker.
  20 #
  21 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
  22 m4_define([OVSDB_CHECK_EXECUTION],
  23   [AT_SETUP([$1])
  24    AT_KEYWORDS([ovsdb server positive unix $5])
  25    AT_DATA([schema], [$2
  26 ])
  27    AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
  28    AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --remote=punix:socket --unixctl=$PWD/unixctl db], [0], [ignore], [ignore])
  29    m4_foreach([txn], [$3],
  30      [AT_CHECK([ovsdb-client transact unix:socket 'txn'], [0], [stdout], [ignore],
  31      [test ! -e pid || kill `cat pid`])
  32 cat stdout >> output
  33 ])
  34    AT_CHECK([perl $srcdir/uuidfilt.pl output], [0], [$4], [ignore],
  35             [test ! -e pid || kill `cat pid`])
  36    OVSDB_SERVER_SHUTDOWN
  37    AT_CLEANUP])
  38
  39 EXECUTION_EXAMPLES
  40 \f
  41 AT_SETUP([truncating corrupted database log])
  42 AT_KEYWORDS([ovsdb server positive unix])
  43 AT_DATA([schema], [ORDINAL_SCHEMA
  44 ])
  45 AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
  46 dnl Do one transaction and save the output.
  47 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
  48 '["ordinals",
  49   {"op": "insert",
  50    "table": "ordinals",
  51    "row": {"number": 0, "name": "zero"}}]'
  52 ]])
  53 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [])
  54 cat stdout >> output
  55 dnl Add some crap to the database log and run another transaction, which should
  56 dnl ignore the crap and truncate it out of the log.
  57 echo 'xxx' >> db
  58 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
  59 '["ordinals",
  60   {"op": "insert",
  61    "table": "ordinals",
  62    "row": {"number": 1, "name": "one"}}]'
  63 ]])
  64 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [stderr])
  65 AT_CHECK([grep 'syntax error: db: parse error.* in header line "xxx"' stderr],
  66   [0], [ignore])
  67 cat stdout >> output
  68 dnl Run a final transaction to verify that both transactions succeeeded.
  69 dnl The crap that we added should have been truncated by the previous run,
  70 dnl so ovsdb-server shouldn't log a warning this time.
  71 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
  72 '["ordinals",
  73   {"op": "select",
  74    "table": "ordinals",
  75    "where": [],
  76    "sort": ["number"]}]'
  77 ]])
  78 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [])
  79 cat stdout >> output
  80 AT_CHECK([perl $srcdir/uuidfilt.pl output], [0],
  81   [[[{"uuid":["uuid","<0>"]}]
  82 [{"uuid":["uuid","<1>"]}]
  83 [{"rows":[{"_uuid":["uuid","<0>"],"_version":["uuid","<2>"],"name":"zero","number":0},{"_uuid":["uuid","<1>"],"_version":["uuid","<3>"],"name":"one","number":1}]}]
  84 ]], [],
  85          [test ! -e pid || kill `cat pid`])
  86 AT_CLEANUP
  87
  88 AT_SETUP([truncating database log with bad transaction])
  89 AT_KEYWORDS([ovsdb server positive unix])
  90 AT_DATA([schema], [ORDINAL_SCHEMA
  91 ])
  92 AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
  93 dnl Do one transaction and save the output.
  94 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
  95 '["ordinals",
  96   {"op": "insert",
  97    "table": "ordinals",
  98    "row": {"number": 0, "name": "zero"}}]'
  99 ]])
 100 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [])
 101 cat stdout >> output
 102 dnl Add some crap to the database log and run another transaction, which should
 103 dnl ignore the crap and truncate it out of the log.
 104 echo 'OVSDB JSON 15 ffbcdae4b0386265f9ea3280dd7c8f0b72a20e56
 105 {"invalid":{}}' >> db
 106 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
 107 '["ordinals",
 108   {"op": "insert",
 109    "table": "ordinals",
 110    "row": {"number": 1, "name": "one"}}]'
 111 ]])
 112 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [stderr])
 113 AT_CHECK([grep 'syntax "{"invalid":{}}": unknown table: No table named invalid.' stderr],
 114   [0], [ignore])
 115 cat stdout >> output
 116 dnl Run a final transaction to verify that both transactions succeeeded.
 117 dnl The crap that we added should have been truncated by the previous run,
 118 dnl so ovsdb-server shouldn't log a warning this time.
 119 AT_DATA([txnfile], [[ovsdb-client transact unix:socket \
 120 '["ordinals",
 121   {"op": "select",
 122    "table": "ordinals",
 123    "where": [],
 124    "sort": ["number"]}]'
 125 ]])
 126 AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [])
 127 cat stdout >> output
 128 AT_CHECK([perl $srcdir/uuidfilt.pl output], [0],
 129   [[[{"uuid":["uuid","<0>"]}]
 130 [{"uuid":["uuid","<1>"]}]
 131 [{"rows":[{"_uuid":["uuid","<0>"],"_version":["uuid","<2>"],"name":"zero","number":0},{"_uuid":["uuid","<1>"],"_version":["uuid","<3>"],"name":"one","number":1}]}]
 132 ]], [],
 133          [test ! -e pid || kill `cat pid`])
 134 AT_CLEANUP
 135
 136 AT_SETUP([ovsdb-client get-schema-version])
 137 AT_KEYWORDS([ovsdb server positive])
 138 AT_DATA([schema], [ORDINAL_SCHEMA
 139 ])
 140 AT_CHECK([ovsdb-tool create db schema], [0], [ignore], [ignore])
 141 AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --unixctl=$PWD/unixctl --remote=punix:socket db], [0], [ignore], [ignore])
 142 AT_CHECK([ovsdb-client get-schema-version unix:socket ordinals], [0], [5.1.3
 143 ])
 144 OVSDB_SERVER_SHUTDOWN
 145 AT_CLEANUP
 146
 147 AT_SETUP([database multiplexing implementation])
 148 AT_KEYWORDS([ovsdb server positive])
 149 AT_DATA([schema], [ORDINAL_SCHEMA
 150 ])
 151 AT_CHECK([ovsdb-tool create db schema], [0], [ignore], [ignore])
 152 AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --unixctl=$PWD/unixctl --remote=punix:socket db], [0], [ignore], [ignore])
 153 AT_CHECK(
 154   [[ovsdb-client list-dbs unix:socket]],
 155   [0], [ordinals
 156 ], [ignore], [test ! -e pid || kill `cat pid`])
 157 AT_CHECK(
 158   [[test-jsonrpc request unix:socket get_schema [\"nonexistent\"]]], [0],
 159   [[{"error":null,"id":0,"result":{"details":"get_schema request specifies unknown database nonexistent","error":"unknown database","syntax":"[\"nonexistent\"]"}}
 160 ]], [], [test ! -e pid || kill `cat pid`])
 161 OVSDB_SERVER_SHUTDOWN
 162 AT_CLEANUP
 163
 164 AT_SETUP([--remote=db: implementation])
 165 AT_KEYWORDS([ovsdb server positive])
 166 AT_DATA([schema],
 167   [[{"name": "mydb",
 168      "tables": {
 169        "Manager": {
 170          "columns": {
 171            "manager": {"type": "string"}}}}}
 172 ]])
 173 AT_CHECK([ovsdb-tool create db schema], [0], [ignore], [ignore])
 174 AT_CHECK(
 175   [[ovsdb-tool transact db \
 176      '["mydb",
 177        {"op": "insert",
 178         "table": "Manager",
 179         "row": {"manager": "punix:socket"}}]']], [0], [ignore], [ignore])
 180 AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --remote=db:Manager,manager --unixctl=$PWD/unixctl db], [0], [ignore], [ignore])
 181 AT_CHECK(
 182   [[ovsdb-client transact unix:socket \
 183      '["mydb",
 184        {"op": "select",
 185         "table": "Manager",
 186         "where": [],
 187         "columns": ["manager"]}]']],
 188   [0], [stdout], [ignore], [test ! -e pid || kill `cat pid`])
 189 AT_CHECK(
 190   [perl $srcdir/uuidfilt.pl stdout],
 191   [0],
 192   [[[{"rows":[{"manager":"punix:socket"}]}]
 193 ]],
 194   [ignore],
 195   [test ! -e pid || kill `cat pid`])
 196 OVSDB_SERVER_SHUTDOWN
 197 AT_CLEANUP
 198
 199 AT_SETUP([SSL db: implementation])
 200 AT_KEYWORDS([ovsdb server positive ssl $5])
 201 AT_SKIP_IF([test "$HAVE_OPENSSL" = no])
 202 PKIDIR=$abs_top_builddir/tests
 203 AT_SKIP_IF([expr "$PKIDIR" : ".*[       '\"
 204 \r\\]"])
 205 AT_DATA([schema],
 206   [[{"name": "mydb",
 207      "tables": {
 208        "SSL": {
 209          "columns": {
 210            "private_key": {"type": "string"},
 211            "certificate": {"type": "string"},
 212            "ca_cert": {"type": "string"}}}}}
 213 ]])
 214 AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
 215 AT_CHECK(
 216   [[ovsdb-tool transact db \
 217      '["mydb",
 218        {"op": "insert",
 219         "table": "SSL",
 220         "row": {"private_key": "'"$PKIDIR/testpki-privkey2.pem"'",
 221                 "certificate": "'"$PKIDIR/testpki-cert2.pem"'",
 222                 "ca_cert": "'"$PKIDIR/testpki-cacert.pem"'"}}]']],
 223   [0], [ignore], [ignore])
 224 AT_CHECK([perl $srcdir/choose-port.pl], [0], [stdout])
 225 SSL_PORT=`cat stdout`
 226 AT_CHECK(
 227   [ovsdb-server --detach --pidfile=$PWD/pid \
 228         --private-key=db:SSL,private_key \
 229         --certificate=db:SSL,certificate \
 230         --ca-cert=db:SSL,ca_cert \
 231          --remote=pssl:$SSL_PORT:127.0.0.1 --unixctl=$PWD/unixctl db],
 232   [0], [ignore], [ignore])
 233 AT_CHECK(
 234   [[ovsdb-client \
 235         --private-key=$PKIDIR/testpki-privkey.pem \
 236         --certificate=$PKIDIR/testpki-cert.pem \
 237         --ca-cert=$PKIDIR/testpki-cacert.pem \
 238         transact ssl:127.0.0.1:$SSL_PORT \
 239         '["mydb",
 240           {"op": "select",
 241            "table": "SSL",
 242            "where": [],
 243            "columns": ["private_key"]}]']],
 244   [0], [stdout], [ignore], [test ! -e pid || kill `cat pid`])
 245 cat stdout >> output
 246 AT_CHECK_UNQUOTED(
 247   [perl $srcdir/uuidfilt.pl output], [0],
 248   [[[{"rows":[{"private_key":"$PKIDIR/testpki-privkey2.pem"}]}]
 249 ]], [ignore], [test ! -e pid || kill `cat pid`])
 250 OVSDB_SERVER_SHUTDOWN
 251 AT_CLEANUP
 252
 253 AT_SETUP([compacting online])
 254 AT_KEYWORDS([ovsdb server compact])
 255 AT_DATA([schema], [ORDINAL_SCHEMA
 256 ])
 257 touch .db.~lock~
 258 AT_CHECK([ovsdb-tool create db schema], [0], [ignore], [ignore])
 259 AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --unixctl=$PWD/unixctl --remote=punix:socket --log-file=$PWD/ovsdb-server.log db], [0], [ignore], [ignore])
 260 AT_CAPTURE_FILE([ovsdb-server.log])
 261 dnl Do a bunch of random transactions that put crap in the database log.
 262 AT_CHECK(
 263   [[for pair in 'zero 0' 'one 1' 'two 2' 'three 3' 'four 4' 'five 5'; do
 264       set -- $pair
 265       ovsdb-client transact unix:socket '
 266         ["ordinals",
 267          {"op": "insert",
 268           "table": "ordinals",
 269           "row": {"name": "'$1'", "number": '$2'}},
 270          {"op": "comment",
 271           "comment": "add row for '"$pair"'"}]'
 272       ovsdb-client transact unix:socket '
 273         ["ordinals",
 274          {"op": "delete",
 275           "table": "ordinals",
 276           "where": [["number", "==", '$2']]},
 277          {"op": "comment",
 278           "comment": "delete row for '"$2"'"}]'
 279       ovsdb-client transact unix:socket '
 280         ["ordinals",
 281          {"op": "insert",
 282           "table": "ordinals",
 283           "row": {"name": "'$1'", "number": '$2'}},
 284          {"op": "comment",
 285           "comment": "add back row for '"$pair"'"}]'
 286     done]],
 287   [0], [stdout], [ignore], [test ! -e pid || kill `cat pid`])
 288 dnl Check that all the crap is in fact in the database log.
 289 AT_CHECK([[perl $srcdir/uuidfilt.pl db | grep -v ^OVSDB | sed 's/"_date":[0-9]*/"_date":0/' | test-json --multiple -]], [0],
 290   [[{"cksum":"12345678 9","name":"ordinals","tables":{"ordinals":{"columns":{"name":{"type":"string"},"number":{"type":"integer"}},"indexes":[["number"]]}},"version":"5.1.3"}
 291 {"_comment":"add row for zero 0","_date":0,"ordinals":{"<0>":{"name":"zero"}}}
 292 {"_comment":"delete row for 0","_date":0,"ordinals":{"<0>":null}}
 293 {"_comment":"add back row for zero 0","_date":0,"ordinals":{"<1>":{"name":"zero"}}}
 294 {"_comment":"add row for one 1","_date":0,"ordinals":{"<2>":{"name":"one","number":1}}}
 295 {"_comment":"delete row for 1","_date":0,"ordinals":{"<2>":null}}
 296 {"_comment":"add back row for one 1","_date":0,"ordinals":{"<3>":{"name":"one","number":1}}}
 297 {"_comment":"add row for two 2","_date":0,"ordinals":{"<4>":{"name":"two","number":2}}}
 298 {"_comment":"delete row for 2","_date":0,"ordinals":{"<4>":null}}
 299 {"_comment":"add back row for two 2","_date":0,"ordinals":{"<5>":{"name":"two","number":2}}}
 300 {"_comment":"add row for three 3","_date":0,"ordinals":{"<6>":{"name":"three","number":3}}}
 301 {"_comment":"delete row for 3","_date":0,"ordinals":{"<6>":null}}
 302 {"_comment":"add back row for three 3","_date":0,"ordinals":{"<7>":{"name":"three","number":3}}}
 303 {"_comment":"add row for four 4","_date":0,"ordinals":{"<8>":{"name":"four","number":4}}}
 304 {"_comment":"delete row for 4","_date":0,"ordinals":{"<8>":null}}
 305 {"_comment":"add back row for four 4","_date":0,"ordinals":{"<9>":{"name":"four","number":4}}}
 306 {"_comment":"add row for five 5","_date":0,"ordinals":{"<10>":{"name":"five","number":5}}}
 307 {"_comment":"delete row for 5","_date":0,"ordinals":{"<10>":null}}
 308 {"_comment":"add back row for five 5","_date":0,"ordinals":{"<11>":{"name":"five","number":5}}}
 309 ]], [], [test ! -e pid || kill `cat pid`])
 310 dnl Dump out and check the actual database contents.
 311 AT_CHECK([[ovsdb-client dump unix:socket ordinals]],
 312   [0], [stdout], [ignore])
 313 AT_CHECK([perl $srcdir/uuidfilt.pl stdout], [0], [dnl
 314 ordinals table
 315 _uuid                                name  number
 316 ------------------------------------ ----- ------
 317 <0> five  5     @&t@
 318 <1> four  4     @&t@
 319 <2> one   1     @&t@
 320 <3> three 3     @&t@
 321 <4> two   2     @&t@
 322 <5> zero  0     @&t@
 323 ], [], [test ! -e pid || kill `cat pid`])
 324 dnl Now compact the database in-place.
 325 AT_CHECK([[ovs-appctl -t $PWD/unixctl ovsdb-server/compact]],
 326   [0], [], [ignore], [test ! -e pid || kill `cat pid`])
 327 dnl We can't fully re-check the contents of the database log, because the
 328 dnl order of the records is not predictable, but there should only be 4 lines
 329 dnl in it now.
 330 AT_CAPTURE_FILE([db])
 331 AT_CHECK([wc -l < db], [0], [4
 332 ], [], [test ! -e pid || kill `cat pid`])
 333 dnl And check that the dumped data is the same too:
 334 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore],
 335   [test ! -e pid || kill `cat pid`])
 336 AT_CHECK([perl $srcdir/uuidfilt.pl stdout], [0], [dnl
 337 ordinals table
 338 _uuid                                name  number
 339 ------------------------------------ ----- ------
 340 <0> five  5     @&t@
 341 <1> four  4     @&t@
 342 <2> one   1     @&t@
 343 <3> three 3     @&t@
 344 <4> two   2     @&t@
 345 <5> zero  0     @&t@
 346 ], [], [test ! -e pid || kill `cat pid`])
 347 dnl Now do some more transactions.
 348 AT_CHECK(
 349   [[ovsdb-client transact unix:socket '
 350      ["ordinals",
 351       {"op": "delete",
 352        "table": "ordinals",
 353        "where": [["number", "<", 3]]}]']],
 354   [0], [[[{"count":3}]
 355 ]], [ignore], [test ! -e pid || kill `cat pid`])
 356 dnl There should be 6 lines in the log now.
 357 AT_CHECK([wc -l < db], [0], [6
 358 ], [], [test ! -e pid || kill `cat pid`])
 359 dnl Then check that the dumped data is correct.
 360 AT_CHECK([ovsdb-client dump unix:socket ordinals], [0], [stdout], [ignore],
 361   [test ! -e pid || kill `cat pid`])
 362 AT_CHECK([perl $srcdir/uuidfilt.pl stdout], [0], [dnl
 363 ordinals table
 364 _uuid                                name  number
 365 ------------------------------------ ----- ------
 366 <0> five  5     @&t@
 367 <1> four  4     @&t@
 368 <2> three 3     @&t@
 369 ], [], [test ! -e pid || kill `cat pid`])
 370 OVSDB_SERVER_SHUTDOWN
 371 AT_CLEANUP
 372 \f
 373 AT_BANNER([OVSDB -- ovsdb-server transactions (SSL sockets)])
 374
 375 # OVSDB_CHECK_EXECUTION(TITLE, SCHEMA, TRANSACTIONS, OUTPUT, [KEYWORDS])
 376 #
 377 # Creates a database with the given SCHEMA, starts an ovsdb-server on
 378 # that database, and runs each of the TRANSACTIONS (which should be a
 379 # quoted list of quoted strings) against it with ovsdb-client one at a
 380 # time.
 381 #
 382 # Checks that the overall output is OUTPUT, but UUIDs in the output
 383 # are replaced by markers of the form <N> where N is a number.  The
 384 # first unique UUID is replaced by <0>, the next by <1>, and so on.
 385 # If a given UUID appears more than once it is always replaced by the
 386 # same marker.
 387 #
 388 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
 389 m4_define([OVSDB_CHECK_EXECUTION],
 390   [AT_SETUP([$1])
 391    AT_KEYWORDS([ovsdb server positive ssl $5])
 392    AT_SKIP_IF([test "$HAVE_OPENSSL" = no])
 393    AT_DATA([schema], [$2
 394 ])
 395    AT_CHECK([perl $srcdir/choose-port.pl], [0], [stdout])
 396    SSL_PORT=`cat stdout`
 397    PKIDIR=$abs_top_builddir/tests
 398    AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
 399    AT_CHECK([ovsdb-server --detach --pidfile=$PWD/pid --private-key=$PKIDIR/testpki-privkey2.pem --certificate=$PKIDIR/testpki-cert2.pem --ca-cert=$PKIDIR/testpki-cacert.pem --remote=pssl:$SSL_PORT:127.0.0.1 --unixctl=$PWD/unixctl db], [0], [ignore], [ignore])
 400    m4_foreach([txn], [$3],
 401      [AT_CHECK([ovsdb-client --private-key=$PKIDIR/testpki-privkey.pem --certificate=$PKIDIR/testpki-cert.pem --ca-cert=$PKIDIR/testpki-cacert.pem transact ssl:127.0.0.1:$SSL_PORT 'txn'], [0], [stdout], [ignore],
 402      [test ! -e pid || kill `cat pid`])
 403 cat stdout >> output
 404 ])
 405    AT_CHECK([perl $srcdir/uuidfilt.pl output], [0], [$4], [ignore],
 406             [test ! -e pid || kill `cat pid`])
 407    OVSDB_SERVER_SHUTDOWN
 408    AT_CLEANUP])
 409
 410 EXECUTION_EXAMPLES
 411 \f
 412 AT_BANNER([OVSDB -- transactions on transient ovsdb-server])
 413
 414 # OVSDB_CHECK_EXECUTION(TITLE, SCHEMA, TRANSACTIONS, OUTPUT, [KEYWORDS])
 415 #
 416 # Creates a database with the given SCHEMA and runs each of the
 417 # TRANSACTIONS (which should be a quoted list of quoted strings)
 418 # against it with ovsdb-client one at a time.  Each ovsdb-client
 419 # is run against a separately started ovsdb-server that executes
 420 # only that single transaction.  (The idea is that this should
 421 # help to ferret out any differences between what ovsdb-server has
 422 # in memory and what actually gets committed to disk.)
 423 #
 424 # Checks that the overall output is OUTPUT, but UUIDs in the output
 425 # are replaced by markers of the form <N> where N is a number.  The
 426 # first unique UUID is replaced by <0>, the next by <1>, and so on.
 427 # If a given UUID appears more than once it is always replaced by the
 428 # same marker.
 429 #
 430 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
 431 m4_define([OVSDB_CHECK_EXECUTION],
 432   [AT_SETUP([$1])
 433    AT_KEYWORDS([ovsdb server positive transient $5])
 434    AT_DATA([schema], [$2
 435 ])
 436    AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
 437    m4_foreach([txn], [$3],
 438      [AT_DATA([txnfile], [ovsdb-client transact unix:socket 'txn'
 439 ])
 440       AT_CHECK([ovsdb-server --remote=punix:socket --unixctl=$PWD/unixctl db --run="sh txnfile"], [0], [stdout], [ignore])
 441       cat stdout >> output
 442 ])
 443    AT_CHECK([perl $srcdir/uuidfilt.pl output], [0], [$4], [ignore])
 444    AT_CLEANUP])
 445
 446 EXECUTION_EXAMPLES