tests/ovsdb-idl.at

   1 AT_BANNER([OVSDB -- interface description language (IDL)])
   2
   3 # OVSDB_CHECK_IDL_C(TITLE, [PRE-IDL-TXN], TRANSACTIONS, OUTPUT, [KEYWORDS],
   4 #                   [FILTER])
   5 #
   6 # Creates a database with a schema derived from idltest.ovsidl, runs
   7 # each PRE-IDL-TXN (if any), starts an ovsdb-server on that database,
   8 # and runs "test-ovsdb idl" passing each of the TRANSACTIONS along.
   9 #
  10 # Checks that the overall output is OUTPUT.  Before comparison, the
  11 # output is sorted (using "sort") and UUIDs in the output are replaced
  12 # by markers of the form <N> where N is a number.  The first unique
  13 # UUID is replaced by <0>, the next by <1>, and so on.  If a given
  14 # UUID appears more than once it is always replaced by the same
  15 # marker.  If FILTER is supplied then the output is also filtered
  16 # through the specified program.
  17 #
  18 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
  19 m4_define([OVSDB_CHECK_IDL_C],
  20   [AT_SETUP([$1 - C])
  21    AT_KEYWORDS([ovsdb server idl positive $5])
  22    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
  23                   [0], [stdout], [ignore])
  24    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])
  25    on_exit 'kill `cat pid`'
  26    m4_if([$2], [], [],
  27      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
  28    AT_CHECK([test-ovsdb '-vPATTERN:console:test-ovsdb|%c|%m' -vjsonrpc -t10 idl unix:socket $3],
  29             [0], [stdout], [ignore])
  30    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
  31             [0], [$4])
  32    OVSDB_SERVER_SHUTDOWN
  33    AT_CLEANUP])
  34
  35 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation.
  36 m4_define([OVSDB_CHECK_IDL_PYN],
  37   [AT_SETUP([$1])
  38    AT_SKIP_IF([test $7 = no])
  39    AT_KEYWORDS([ovsdb server idl positive Python $5])
  40    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
  41                   [0], [stdout], [ignore])
  42    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])
  43    on_exit 'kill `cat pid`'
  44    m4_if([$2], [], [],
  45      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
  46    AT_CHECK([$8 $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema unix:socket $3],
  47             [0], [stdout], [ignore])
  48    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
  49             [0], [$4])
  50    OVSDB_SERVER_SHUTDOWN
  51    AT_CLEANUP])
  52
  53 m4_define([OVSDB_CHECK_IDL_PY],
  54    [OVSDB_CHECK_IDL_PYN([$1 - Python2], [$2], [$3], [$4], [$5], [$6],
  55                         [$HAVE_PYTHON], [$PYTHON])
  56     OVSDB_CHECK_IDL_PYN([$1 - Python3], [$2], [$3], [$4], [$5], [$6],
  57                         [$HAVE_PYTHON3], [$PYTHON3])])
  58
  59 m4_define([OVSDB_CHECK_IDL_REGISTER_COLUMNS_PYN],
  60   [AT_SETUP([$1 - register_columns])
  61    AT_SKIP_IF([test $7 = no])
  62    AT_KEYWORDS([ovsdb server idl positive Python register_columns $5])
  63    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
  64                   [0], [stdout], [ignore])
  65    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])
  66    on_exit 'kill `cat pid`'
  67    m4_if([$2], [], [],
  68      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
  69    AT_CHECK([$8 $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema unix:socket ?simple:b,ba,i,ia,r,ra,s,sa,u,ua?link1:i,k,ka,l2?link2:i,l1 $3],
  70             [0], [stdout], [ignore])
  71    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
  72             [0], [$4])
  73    OVSDB_SERVER_SHUTDOWN
  74    AT_CLEANUP])
  75
  76 m4_define([OVSDB_CHECK_IDL_REGISTER_COLUMNS_PY],
  77    [OVSDB_CHECK_IDL_REGISTER_COLUMNS_PYN([$1 - Python2], [$2], [$3], [$4], [$5], [$6],
  78                         [$HAVE_PYTHON], [$PYTHON])
  79     OVSDB_CHECK_IDL_REGISTER_COLUMNS_PYN([$1 - Python3], [$2], [$3], [$4], [$5], [$6],
  80                         [$HAVE_PYTHON3], [$PYTHON3])])
  81
  82 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation with tcp
  83 m4_define([OVSDB_CHECK_IDL_TCP_PYN],
  84   [AT_SETUP([$1 - tcp])
  85    AT_SKIP_IF([test $7 = no])
  86    AT_KEYWORDS([ovsdb server idl positive Python with tcp socket $5])
  87    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
  88                   [0], [stdout], [ignore])
  89    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])
  90    on_exit 'kill `cat pid`'
  91    PARSE_LISTENING_PORT([ovsdb-server.log], [TCP_PORT])
  92
  93    m4_if([$2], [], [],
  94      [AT_CHECK([ovsdb-client transact tcp:127.0.0.1:$TCP_PORT $2], [0], [ignore], [ignore])])
  95    AT_CHECK([$8 $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema tcp:127.0.0.1:$TCP_PORT $3],
  96             [0], [stdout], [ignore])
  97    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
  98             [0], [$4])
  99    OVSDB_SERVER_SHUTDOWN
 100    AT_CLEANUP])
 101
 102 m4_define([OVSDB_CHECK_IDL_TCP_PY],
 103    [OVSDB_CHECK_IDL_TCP_PYN([$1 - Python2], [$2], [$3], [$4], [$5], [$6],
 104                         [$HAVE_PYTHON], [$PYTHON])
 105     OVSDB_CHECK_IDL_TCP_PYN([$1 - Python3], [$2], [$3], [$4], [$5], [$6],
 106                         [$HAVE_PYTHON3], [$PYTHON3])])
 107
 108 # same as OVSDB_CHECK_IDL but uses the Python IDL implementation with tcp6
 109 m4_define([OVSDB_CHECK_IDL_TCP6_PYN],
 110   [AT_SETUP([$1 - tcp6])
 111    AT_SKIP_IF([test $7 = no])
 112    AT_SKIP_IF([test $HAVE_IPV6 = no])
 113    AT_KEYWORDS([ovsdb server idl positive Python with tcp6 socket $5])
 114    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
 115                   [0], [stdout], [ignore])
 116    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])
 117    on_exit 'kill `cat pid`'
 118    PARSE_LISTENING_PORT([ovsdb-server.log], [TCP_PORT])
 119    echo "TCP_PORT=$TCP_PORT"
 120
 121    m4_if([$2], [], [],
 122      [AT_CHECK([ovsdb-client transact "tcp:[[::1]]:$TCP_PORT" $2], [0], [ignore], [ignore])])
 123    AT_CHECK([$8 $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema tcp:[[::1]]:$TCP_PORT $3],
 124             [0], [stdout], [ignore])
 125    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
 126             [0], [$4])
 127    OVSDB_SERVER_SHUTDOWN
 128    AT_CLEANUP])
 129
 130 m4_define([OVSDB_CHECK_IDL_TCP6_PY],
 131    [OVSDB_CHECK_IDL_TCP6_PYN([$1 - Python2], [$2], [$3], [$4], [$5], [$6],
 132                         [$HAVE_PYTHON], [$PYTHON])
 133     OVSDB_CHECK_IDL_TCP6_PYN([$1 - Python3], [$2], [$3], [$4], [$5], [$6],
 134                         [$HAVE_PYTHON3], [$PYTHON3])])
 135
 136 m4_define([OVSDB_CHECK_IDL],
 137   [OVSDB_CHECK_IDL_C($@)
 138    OVSDB_CHECK_IDL_PY($@)
 139    OVSDB_CHECK_IDL_REGISTER_COLUMNS_PY($@)
 140    OVSDB_CHECK_IDL_TCP_PY($@)
 141    OVSDB_CHECK_IDL_TCP6_PY($@)])
 142
 143 # This test uses the Python IDL implementation with passive tcp
 144 m4_define([OVSDB_CHECK_IDL_PASSIVE_TCP_PY],
 145   [AT_SETUP([$1 - Python ptcp])
 146    AT_SKIP_IF([test $HAVE_PYTHON = no])
 147    AT_KEYWORDS([ovsdb server idl positive Python with tcp socket $5])
 148    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
 149                   [0], [stdout], [ignore])
 150    # find free TCP port
 151    AT_CHECK([ovsdb-server --log-file '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=ptcp:0:127.0.0.1 --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
 152    on_exit 'kill `cat pid`'
 153    PARSE_LISTENING_PORT([ovsdb-server.log], [TCP_PORT])
 154    OVSDB_SERVER_SHUTDOWN
 155
 156    # start OVSDB server in passive mode
 157    AT_CHECK([ovsdb-server --log-file '-vPATTERN:console:ovsdb-server|%c|%m' --detach --no-chdir --pidfile="`pwd`"/pid --remote=punix:socket --remote=tcp:127.0.0.1:$TCP_PORT --unixctl="`pwd`"/unixctl db], [0], [ignore], [ignore])
 158    AT_CHECK([$PYTHON $srcdir/test-ovsdb.py -t10 idl_passive $srcdir/idltest.ovsschema ptcp:127.0.0.1:$TCP_PORT $3],
 159       [0], [stdout], [ignore])
 160    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
 161             [0], [$4])
 162    OVSDB_SERVER_SHUTDOWN
 163    AT_CLEANUP
 164    ])
 165
 166 OVSDB_CHECK_IDL_PASSIVE_TCP_PY([simple passive idl, initially empty, select empty],
 167   [],
 168   [['["idltest",{"op":"select","table":"link1","where":[]}]']],
 169   [[000: empty
 170 001: {"error":null,"result":[{"rows":[]}]}
 171 002: done
 172 ]])
 173
 174 OVSDB_CHECK_IDL([simple idl, initially empty, no ops],
 175   [],
 176   [],
 177   [000: empty
 178 001: done
 179 ])
 180
 181 OVSDB_CHECK_IDL([simple idl, initially empty, various ops],
 182   [],
 183   [['["idltest",
 184       {"op": "insert",
 185        "table": "simple",
 186        "row": {"i": 1,
 187                "r": 2.0,
 188                "b": true,
 189                "s": "mystring",
 190                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 191                "ia": ["set", [1, 2, 3]],
 192                "ra": ["set", [-0.5]],
 193                "ba": ["set", [true]],
 194                "sa": ["set", ["abc", "def"]],
 195                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 196                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 197       {"op": "insert",
 198        "table": "simple",
 199        "row": {}}]' \
 200     '["idltest",
 201       {"op": "update",
 202        "table": "simple",
 203        "where": [],
 204        "row": {"b": true}}]' \
 205     '["idltest",
 206       {"op": "update",
 207        "table": "simple",
 208        "where": [],
 209        "row": {"r": 123.5}}]' \
 210     '["idltest",
 211       {"op": "insert",
 212        "table": "simple",
 213        "row": {"i": -1,
 214                "r": 125,
 215                "b": false,
 216                "s": "",
 217                "ia": ["set", [1]],
 218                "ra": ["set", [1.5]],
 219                "ba": ["set", [false]],
 220                "sa": ["set", []],
 221                "ua": ["set", []]}}]' \
 222     '["idltest",
 223       {"op": "update",
 224        "table": "simple",
 225        "where": [["i", "<", 1]],
 226        "row": {"s": "newstring"}}]' \
 227     '["idltest",
 228       {"op": "delete",
 229        "table": "simple",
 230        "where": [["i", "==", 0]]}]' \
 231     'reconnect']],
 232   [[000: empty
 233 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
 234 002: i=0 r=0 b=false s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 235 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>
 236 003: {"error":null,"result":[{"count":2}]}
 237 004: i=0 r=0 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 238 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>
 239 005: {"error":null,"result":[{"count":2}]}
 240 006: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 241 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>
 242 007: {"error":null,"result":[{"uuid":["uuid","<6>"]}]}
 243 008: i=-1 r=125 b=false s= u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 244 008: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 245 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>
 246 009: {"error":null,"result":[{"count":2}]}
 247 010: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 248 010: i=0 r=123.5 b=true s=newstring u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 249 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>
 250 011: {"error":null,"result":[{"count":1}]}
 251 012: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 252 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>
 253 013: reconnect
 254 014: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 255 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>
 256 015: done
 257 ]])
 258
 259 OVSDB_CHECK_IDL([simple idl, initially populated],
 260   [['["idltest",
 261       {"op": "insert",
 262        "table": "simple",
 263        "row": {"i": 1,
 264                "r": 2.0,
 265                "b": true,
 266                "s": "mystring",
 267                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 268                "ia": ["set", [1, 2, 3]],
 269                "ra": ["set", [-0.5]],
 270                "ba": ["set", [true]],
 271                "sa": ["set", ["abc", "def"]],
 272                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 273                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 274       {"op": "insert",
 275        "table": "simple",
 276        "row": {}}]']],
 277   [['["idltest",
 278       {"op": "update",
 279        "table": "simple",
 280        "where": [],
 281        "row": {"b": true}}]']],
 282   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 283 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>
 284 001: {"error":null,"result":[{"count":2}]}
 285 002: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 286 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>
 287 003: done
 288 ]])
 289
 290 OVSDB_CHECK_IDL([simple idl, writing via IDL],
 291   [['["idltest",
 292       {"op": "insert",
 293        "table": "simple",
 294        "row": {"i": 1,
 295                "r": 2.0,
 296                "b": true,
 297                "s": "mystring",
 298                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 299                "ia": ["set", [1, 2, 3]],
 300                "ra": ["set", [-0.5]],
 301                "ba": ["set", [true]],
 302                "sa": ["set", ["abc", "def"]],
 303                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 304                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 305       {"op": "insert",
 306        "table": "simple",
 307        "row": {}}]']],
 308   [['verify 0 b, verify 1 r, set 0 b 1, set 1 r 3.5' \
 309     'insert 2, verify 2 i, verify 1 b, delete 1']],
 310   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 311 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>
 312 001: commit, status=success
 313 002: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 314 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>
 315 003: commit, status=success
 316 004: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 317 004: i=2 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<6>
 318 005: done
 319 ]])
 320
 321 OVSDB_CHECK_IDL([simple idl, handling verification failure],
 322   [['["idltest",
 323       {"op": "insert",
 324        "table": "simple",
 325        "row": {"i": 1,
 326                "r": 2.0}},
 327       {"op": "insert",
 328        "table": "simple",
 329        "row": {}}]']],
 330   [['set 0 b 1' \
 331     '+["idltest",
 332        {"op": "update",
 333         "table": "simple",
 334         "where": [["i", "==", 1]],
 335         "row": {"r": 5.0}}]' \
 336     '+verify 1 r, set 1 r 3' \
 337     'verify 1 r, set 1 r 3' \
 338     ]],
 339   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 340 000: i=1 r=2 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 341 001: commit, status=success
 342 002: {"error":null,"result":[{"count":1}]}
 343 003: commit, status=try again
 344 004: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 345 004: i=1 r=5 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 346 005: commit, status=success
 347 006: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 348 006: i=1 r=3 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 349 007: done
 350 ]])
 351
 352 OVSDB_CHECK_IDL([simple idl, increment operation],
 353   [['["idltest",
 354       {"op": "insert",
 355        "table": "simple",
 356        "row": {}}]']],
 357   [['set 0 r 2.0, increment 0']],
 358   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 359 001: commit, status=success, increment=1
 360 002: i=1 r=2 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 361 003: done
 362 ]])
 363
 364 OVSDB_CHECK_IDL([simple idl, aborting],
 365   [['["idltest",
 366       {"op": "insert",
 367        "table": "simple",
 368        "row": {}}]']],
 369   [['set 0 r 2.0, abort' \
 370 '+set 0 b 1']],
 371   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 372 001: commit, status=aborted
 373 002: commit, status=success
 374 003: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 375 004: done
 376 ]])
 377
 378 OVSDB_CHECK_IDL([simple idl, destroy without commit or abort],
 379   [['["idltest",
 380       {"op": "insert",
 381        "table": "simple",
 382        "row": {}}]']],
 383   [['set 0 r 2.0, destroy' \
 384 '+set 0 b 1']],
 385   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 386 001: destroy
 387 002: commit, status=success
 388 003: i=0 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 389 004: done
 390 ]])
 391
 392 OVSDB_CHECK_IDL([simple idl, conditional, false condition],
 393   [['["idltest",
 394        {"op": "insert",
 395        "table": "simple",
 396        "row": {"i": 1,
 397                "r": 2.0,
 398                "b": true}}]']],
 399   [['condition add simple [false]' \
 400     'condition remove simple [false]']],
 401   [[000: change conditions
 402 001: empty
 403 002: change conditions
 404 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 405 004: done
 406 ]])
 407
 408 OVSDB_CHECK_IDL([simple idl, conditional, true condition],
 409   [['["idltest",
 410        {"op": "insert",
 411        "table": "simple",
 412        "row": {"i": 1,
 413                "r": 2.0,
 414                "b": true}}]']],
 415   [['condition add simple [false]' \
 416     'condition add simple [true]']],
 417   [[000: change conditions
 418 001: empty
 419 002: change conditions
 420 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 421 004: done
 422 ]])
 423
 424 OVSDB_CHECK_IDL([simple idl, conditional, multiple clauses in condition],
 425   [['["idltest",
 426        {"op": "insert",
 427        "table": "simple",
 428        "row": {"i": 1,
 429                "r": 2.0,
 430                "b": true}},
 431        {"op": "insert",
 432        "table": "simple",
 433        "row": {"i": 2,
 434                "r": 3.0,
 435                "b": true}}]']],
 436   [['condition add simple [false]' \
 437     'condition add simple [["i","==",1],["i","==",2]]']],
 438   [[000: change conditions
 439 001: empty
 440 002: change conditions
 441 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 442 003: i=2 r=3 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 443 004: done
 444 ]])
 445
 446 OVSDB_CHECK_IDL([simple idl, conditional, modify as insert due to condition],
 447   [['["idltest",
 448        {"op": "insert",
 449        "table": "simple",
 450        "row": {"i": 1,
 451                "r": 2.0,
 452                "b": true}}]']],
 453   [['condition add simple [false]' \
 454     'condition add simple [["i","==",1]]']],
 455   [[000: change conditions
 456 001: empty
 457 002: change conditions
 458 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 459 004: done
 460 ]])
 461
 462 OVSDB_CHECK_IDL([simple idl, conditional, modify as delete due to condition],
 463   [['["idltest",
 464        {"op": "insert",
 465        "table": "simple",
 466        "row": {"i": 1,
 467                "r": 2.0,
 468                "b": true}}]']],
 469   [['condition add simple [false]' \
 470     'condition add simple [["i","==",1],["i","==",2]]' \
 471     'condition remove simple [["i","==",1]]' \
 472     '["idltest",
 473        {"op": "insert",
 474        "table": "simple",
 475        "row": {"i": 2,
 476                "r": 3.0,
 477                "b": true}}]']],
 478   [[000: change conditions
 479 001: empty
 480 002: change conditions
 481 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 482 004: change conditions
 483 005: empty
 484 006: {"error":null,"result":[{"uuid":["uuid","<2>"]}]}
 485 007: i=2 r=3 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 486 008: done
 487 ]])
 488
 489 OVSDB_CHECK_IDL([simple idl, conditional, multiple tables],
 490   [['["idltest",
 491        {"op": "insert",
 492        "table": "simple",
 493        "row": {"i": 1,
 494                "r": 2.0,
 495                "b": true}},
 496        {"op": "insert",
 497        "table": "link1",
 498        "row": {"i": 0, "k": ["named-uuid", "self"]},
 499        "uuid-name": "self"},
 500         {"op": "insert",
 501        "table": "link2",
 502        "row": {"i": 2},
 503        "uuid-name": "row0"}]']],
 504   [['condition add simple [false];condition add link1 [false];condition add link2 [false]' \
 505     'condition add simple [["i","==",1]]' \
 506     'condition add link1 [["i","==",0]]' \
 507     'condition add link2 [["i","==",3]]' \
 508     '+["idltest",
 509        {"op": "insert",
 510        "table": "link2",
 511        "row": {"i": 3},
 512         "uuid-name": "row0"}]']],
 513   [[000: change conditions
 514 001: empty
 515 002: change conditions
 516 003: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 517 004: change conditions
 518 005: i=0 k=0 ka=[] l2= uuid=<2>
 519 005: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 520 006: change conditions
 521 007: {"error":null,"result":[{"uuid":["uuid","<3>"]}]}
 522 008: i=0 k=0 ka=[] l2= uuid=<2>
 523 008: i=1 r=2 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 524 008: i=3 l1= uuid=<3>
 525 009: done
 526 ]])
 527
 528 OVSDB_CHECK_IDL([self-linking idl, consistent ops],
 529   [],
 530   [['["idltest",
 531       {"op": "insert",
 532        "table": "link1",
 533        "row": {"i": 0, "k": ["named-uuid", "self"]},
 534        "uuid-name": "self"}]' \
 535     '["idltest",
 536       {"op": "insert",
 537        "table": "link1",
 538        "row": {"i": 1, "k": ["named-uuid", "row2"]},
 539        "uuid-name": "row1"},
 540       {"op": "insert",
 541        "table": "link1",
 542        "row": {"i": 2, "k": ["named-uuid", "row1"]},
 543        "uuid-name": "row2"}]' \
 544     '["idltest",
 545       {"op": "update",
 546        "table": "link1",
 547        "where": [["i", "==", 1]],
 548        "row": {"k": ["uuid", "#1#"]}}]' \
 549     '["idltest",
 550       {"op": "update",
 551        "table": "link1",
 552        "where": [],
 553        "row": {"k": ["uuid", "#0#"]}}]']],
 554   [[000: empty
 555 001: {"error":null,"result":[{"uuid":["uuid","<0>"]}]}
 556 002: i=0 k=0 ka=[] l2= uuid=<0>
 557 003: {"error":null,"result":[{"uuid":["uuid","<1>"]},{"uuid":["uuid","<2>"]}]}
 558 004: i=0 k=0 ka=[] l2= uuid=<0>
 559 004: i=1 k=2 ka=[] l2= uuid=<1>
 560 004: i=2 k=1 ka=[] l2= uuid=<2>
 561 005: {"error":null,"result":[{"count":1}]}
 562 006: i=0 k=0 ka=[] l2= uuid=<0>
 563 006: i=1 k=1 ka=[] l2= uuid=<1>
 564 006: i=2 k=1 ka=[] l2= uuid=<2>
 565 007: {"error":null,"result":[{"count":3}]}
 566 008: i=0 k=0 ka=[] l2= uuid=<0>
 567 008: i=1 k=0 ka=[] l2= uuid=<1>
 568 008: i=2 k=0 ka=[] l2= uuid=<2>
 569 009: done
 570 ]])
 571
 572 OVSDB_CHECK_IDL([self-linking idl, inconsistent ops],
 573   [],
 574   [['["idltest",
 575       {"op": "insert",
 576        "table": "link1",
 577        "row": {"i": 0, "k": ["uuid", "cf197cc5-c8c9-42f5-82d5-c71a9f2cb96b"]}}]' \
 578     '+["idltest",
 579       {"op": "insert",
 580        "table": "link1",
 581        "uuid-name": "one",
 582        "row": {"i": 1, "k": ["named-uuid", "one"]}},
 583       {"op": "insert",
 584        "table": "link1",
 585        "row": {"i": 2, "k": ["named-uuid", "one"]}}]' \
 586      '["idltest",
 587       {"op": "update",
 588        "table": "link1",
 589        "where": [],
 590        "row": {"k": ["uuid", "c2fca39a-e69a-42a4-9c56-5eca85839ce9"]}}]' \
 591      '+["idltest",
 592       {"op": "delete",
 593        "table": "link1",
 594        "where": [["_uuid", "==", ["uuid", "#1#"]]]}]' \
 595      '+["idltest",
 596       {"op": "delete",
 597        "table": "link1",
 598        "where": [["_uuid", "==", ["uuid", "#2#"]]]}]' \
 599      '["idltest",
 600       {"op": "delete",
 601        "table": "link1",
 602        "where": []}]' \
 603 ]],
 604   [[000: empty
 605 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"}]}
 606 002: {"error":null,"result":[{"uuid":["uuid","<2>"]},{"uuid":["uuid","<3>"]}]}
 607 003: i=1 k=1 ka=[] l2= uuid=<2>
 608 003: i=2 k=1 ka=[] l2= uuid=<3>
 609 004: {"error":null,"result":[{"count":2},{"details":"Table link1 column k row <x> references nonexistent row <4> in table link1.","error":"referential integrity violation"}]}
 610 005: {"error":null,"result":[{"count":1},{"details":"cannot delete link1 row <2> because of 1 remaining reference(s)","error":"referential integrity violation"}]}
 611 006: {"error":null,"result":[{"count":1}]}
 612 007: i=1 k=1 ka=[] l2= uuid=<2>
 613 008: {"error":null,"result":[{"count":1}]}
 614 009: empty
 615 010: done
 616 ]],
 617   [],
 618   [[sed -e '/004:/s/row <[23]> references/row <x> references/']])
 619
 620 OVSDB_CHECK_IDL([self-linking idl, sets],
 621   [],
 622   [['["idltest",
 623       {"op": "insert",
 624        "table": "link1",
 625        "row": {"i": 0, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i0"]]]},
 626        "uuid-name": "i0"},
 627       {"op": "insert",
 628        "table": "link1",
 629        "row": {"i": 1, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i1"]]]},
 630        "uuid-name": "i1"},
 631       {"op": "insert",
 632        "table": "link1",
 633        "row": {"i": 2, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i2"]]]},
 634        "uuid-name": "i2"},
 635       {"op": "insert",
 636        "table": "link1",
 637        "row": {"i": 3, "k": ["named-uuid", "i0"], "ka": ["set", [["named-uuid", "i3"]]]},
 638        "uuid-name": "i3"}]' \
 639     '["idltest",
 640       {"op": "update",
 641        "table": "link1",
 642        "where": [],
 643        "row": {"ka": ["set", [["uuid", "#0#"], ["uuid", "#1#"], ["uuid", "#2#"], ["uuid", "#3#"]]]}}]' \
 644     '["idltest",
 645       {"op": "update",
 646        "table": "link1",
 647        "where": [["i", "==", 2]],
 648        "row": {"ka": ["set", [["uuid", "#0#"], ["uuid", "88702e78-845b-4a6e-ad08-cf68922ae84a"], ["uuid", "#2#"]]]}}]' \
 649     '+["idltest",
 650       {"op": "delete",
 651        "table": "link1",
 652        "where": []}]']],
 653   [[000: empty
 654 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]},{"uuid":["uuid","<2>"]},{"uuid":["uuid","<3>"]}]}
 655 002: i=0 k=0 ka=[0] l2= uuid=<0>
 656 002: i=1 k=0 ka=[1] l2= uuid=<1>
 657 002: i=2 k=0 ka=[2] l2= uuid=<2>
 658 002: i=3 k=0 ka=[3] l2= uuid=<3>
 659 003: {"error":null,"result":[{"count":4}]}
 660 004: i=0 k=0 ka=[0 1 2 3] l2= uuid=<0>
 661 004: i=1 k=0 ka=[0 1 2 3] l2= uuid=<1>
 662 004: i=2 k=0 ka=[0 1 2 3] l2= uuid=<2>
 663 004: i=3 k=0 ka=[0 1 2 3] l2= uuid=<3>
 664 005: {"error":null,"result":[{"count":1},{"details":"Table link1 column ka row <2> references nonexistent row <4> in table link1.","error":"referential integrity violation"}]}
 665 006: {"error":null,"result":[{"count":4}]}
 666 007: empty
 667 008: done
 668 ]])
 669
 670 OVSDB_CHECK_IDL([external-linking idl, consistent ops],
 671   [],
 672   [['["idltest",
 673       {"op": "insert",
 674        "table": "link2",
 675        "row": {"i": 0},
 676        "uuid-name": "row0"},
 677       {"op": "insert",
 678        "table": "link1",
 679        "row": {"i": 1, "k": ["named-uuid", "row1"], "l2": ["set", [["named-uuid", "row0"]]]},
 680        "uuid-name": "row1"}]']],
 681   [[000: empty
 682 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
 683 002: i=0 l1= uuid=<0>
 684 002: i=1 k=1 ka=[] l2=0 uuid=<1>
 685 003: done
 686 ]])
 687
 688 OVSDB_CHECK_IDL_PY([external-linking idl, insert ops],
 689   [],
 690   [['linktest']],
 691   [[000: empty
 692 001: commit, status=success
 693 002: i=1 k=1 ka=[1] l2= uuid=<0>
 694 002: i=2 k=1 ka=[1 2] l2= uuid=<1>
 695 003: done
 696 ]])
 697
 698 OVSDB_CHECK_IDL_PY([getattr idl, insert ops],
 699   [],
 700   [['getattrtest']],
 701   [[000: empty
 702 001: commit, status=success
 703 002: i=2 k=2 ka=[] l2= uuid=<0>
 704 003: done
 705 ]])
 706
 707 OVSDB_CHECK_IDL_PY([row-from-json idl, whats this],
 708   [['["idltest",
 709       {"op": "insert",
 710        "table": "simple",
 711        "row": {"i": 1}},
 712       {"op": "insert",
 713        "table": "simple",
 714        "row": {}}]']],
 715   [['notifytest insert 2, notifytest set 1 b 1, notifytest delete 0']],
 716   [[000: i=0 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 717 000: i=1 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 718 001: commit, status=success, events=create|2|None, delete|0|None, update|1|b
 719 002: i=1 r=0 b=true s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<2>
 720 002: i=2 r=0 b=false s= u=<0> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<3>
 721 003: done
 722 ]])
 723
 724 AT_SETUP([idl handling of missing tables and columns - C])
 725 AT_KEYWORDS([ovsdb server idl positive])
 726
 727 # idltest2.ovsschema is the same as idltest.ovsschema, except that
 728 # table link2 and column l2 have been deleted.  But the IDL still
 729 # expects them to be there, so this test checks that it properly
 730 # tolerates them being missing.
 731 AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest2.ovsschema],
 732     [0], [stdout], [ignore])
 733 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])
 734 on_exit 'kill `cat pid`'
 735 AT_CHECK([test-ovsdb '-vPATTERN:console:test-ovsdb|%c|%m' -vjsonrpc -t10 idl unix:socket ['["idltest",
 736       {"op": "insert",
 737        "table": "link1",
 738        "row": {"i": 0, "k": ["named-uuid", "self"]},
 739        "uuid-name": "self"}]' \
 740     '["idltest",
 741       {"op": "insert",
 742        "table": "link1",
 743        "row": {"i": 1, "k": ["named-uuid", "row2"]},
 744        "uuid-name": "row1"},
 745       {"op": "insert",
 746        "table": "link1",
 747        "row": {"i": 2, "k": ["named-uuid", "row1"]},
 748        "uuid-name": "row2"}]' \
 749     '["idltest",
 750       {"op": "update",
 751        "table": "link1",
 752        "where": [["i", "==", 1]],
 753        "row": {"k": ["uuid", "#1#"]}}]' \
 754     '["idltest",
 755       {"op": "update",
 756        "table": "link1",
 757        "where": [],
 758        "row": {"k": ["uuid", "#0#"]}}]']],
 759          [0], [stdout], [stderr])
 760 AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl], [0],
 761     [[000: empty
 762 001: {"error":null,"result":[{"uuid":["uuid","<0>"]}]}
 763 002: i=0 k=0 ka=[] l2= uuid=<0>
 764 003: {"error":null,"result":[{"uuid":["uuid","<1>"]},{"uuid":["uuid","<2>"]}]}
 765 004: i=0 k=0 ka=[] l2= uuid=<0>
 766 004: i=1 k=2 ka=[] l2= uuid=<1>
 767 004: i=2 k=1 ka=[] l2= uuid=<2>
 768 005: {"error":null,"result":[{"count":1}]}
 769 006: i=0 k=0 ka=[] l2= uuid=<0>
 770 006: i=1 k=1 ka=[] l2= uuid=<1>
 771 006: i=2 k=1 ka=[] l2= uuid=<2>
 772 007: {"error":null,"result":[{"count":3}]}
 773 008: i=0 k=0 ka=[] l2= uuid=<0>
 774 008: i=1 k=0 ka=[] l2= uuid=<1>
 775 008: i=2 k=0 ka=[] l2= uuid=<2>
 776 009: done
 777 ]])
 778
 779 # Check that ovsdb-idl figured out that table link2 and column l2 are missing.
 780 AT_CHECK([grep ovsdb_idl stderr | sort], [0], [dnl
 781 test-ovsdb|ovsdb_idl|idltest database lacks link2 table (database needs upgrade?)
 782 test-ovsdb|ovsdb_idl|link1 table in idltest database lacks l2 column (database needs upgrade?)
 783 ])
 784
 785 # Check that ovsdb-idl sent on "monitor" request and that it didn't
 786 # mention that table or column, and (for paranoia) that it did mention another
 787 # table and column.
 788 AT_CHECK([grep -c '"monitor\|monitor_cond"' stderr], [0], [1
 789 ])
 790 AT_CHECK([grep '"monitor\|monitor_cond"' stderr | grep link2], [1])
 791 AT_CHECK([grep '"monitor\|monitor_cond"' stderr | grep l2], [1])
 792 AT_CHECK([grep '"monitor\|monitor_cond"' stderr | grep -c '"link1"'], [0], [1
 793 ])
 794 AT_CHECK([grep '"monitor\|monitor_cond"' stderr | grep -c '"ua"'], [0], [1
 795 ])
 796 OVSDB_SERVER_SHUTDOWN
 797 AT_CLEANUP
 798
 799 m4_define([OVSDB_CHECK_IDL_FETCH_COLUMNS_PY],
 800   [AT_SETUP([$1 - Python fetch])
 801    AT_SKIP_IF([test $HAVE_PYTHON = no])
 802    AT_KEYWORDS([ovsdb server idl positive Python increment fetch $6])
 803    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
 804                   [0], [stdout], [ignore])
 805    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])
 806    on_exit 'kill `cat pid`'
 807    m4_if([$2], [], [],
 808      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
 809    AT_CHECK([$PYTHON $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema unix:socket [$3] $4],
 810             [0], [stdout], [ignore])
 811    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$7],,, [[| $7]]),
 812             [0], [$5])
 813    OVSDB_SERVER_SHUTDOWN
 814    AT_CLEANUP])
 815
 816 m4_define([OVSDB_CHECK_IDL_FETCH_COLUMNS],
 817    [OVSDB_CHECK_IDL_FETCH_COLUMNS_PY($@)])
 818
 819 OVSDB_CHECK_IDL_FETCH_COLUMNS([simple idl, initially populated],
 820   [['["idltest",
 821       {"op": "insert",
 822        "table": "simple",
 823        "row": {"i": 1,
 824                "r": 2.0,
 825                "b": true,
 826                "s": "mystring",
 827                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 828                "ia": ["set", [1, 2, 3]],
 829                "ra": ["set", [-0.5]],
 830                "ba": ["set", [true]],
 831                "sa": ["set", ["abc", "def"]],
 832                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 833                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 834       {"op": "insert",
 835        "table": "simple",
 836        "row": {}}]']],
 837   [?simple:i,r!],
 838   ['fetch 0 r'],
 839   [[000: i=0 uuid=<0>
 840 000: i=1 uuid=<1>
 841 001: commit, status=success
 842 002: i=0 r=0 uuid=<0>
 843 002: i=1 uuid=<1>
 844 003: done
 845 ]])
 846
 847 m4_define([OVSDB_CHECK_IDL_WO_MONITOR_COND_PY],
 848   [AT_SETUP([$1 - Python])
 849    AT_SKIP_IF([test $HAVE_PYTHON = no])
 850    AT_KEYWORDS([ovsdb server idl Python monitor $4])
 851    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
 852                   [0], [stdout], [ignore])
 853    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])
 854    AT_CHECK([ovs-appctl -t "`pwd`"/unixctl ovsdb-server/disable-monitor-cond])
 855    AT_CHECK([$PYTHON $srcdir/test-ovsdb.py  -t10 idl $srcdir/idltest.ovsschema unix:socket $2],
 856             [0], [stdout], [ignore], [kill `cat pid`])
 857    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$5],,, [[| $5]]),
 858             [0], [$3], [], [kill `cat pid`])
 859    OVSDB_SERVER_SHUTDOWN
 860    AT_CLEANUP])
 861
 862
 863 m4_define([OVSDB_CHECK_IDL_WO_MONITOR_COND],
 864    [OVSDB_CHECK_IDL_WO_MONITOR_COND_PY($@)])
 865
 866
 867 OVSDB_CHECK_IDL_WO_MONITOR_COND([simple idl disable monitor-cond],
 868   [['["idltest",
 869       {"op": "insert",
 870        "table": "simple",
 871        "row": {"i": 1,
 872                "r": 2.0,
 873                "b": true,
 874                "s": "mystring",
 875                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 876                "ia": ["set", [1, 2, 3]],
 877                "ra": ["set", [-0.5]],
 878                "ba": ["set", [true]],
 879                "sa": ["set", ["abc", "def"]],
 880                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 881                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 882       {"op": "insert",
 883        "table": "simple",
 884        "row": {}}]' \
 885     '["idltest",
 886       {"op": "update",
 887        "table": "simple",
 888        "where": [],
 889        "row": {"b": true}}]' \
 890     '["idltest",
 891       {"op": "update",
 892        "table": "simple",
 893        "where": [],
 894        "row": {"r": 123.5}}]' \
 895     '["idltest",
 896       {"op": "insert",
 897        "table": "simple",
 898        "row": {"i": -1,
 899                "r": 125,
 900                "b": false,
 901                "s": "",
 902                "ia": ["set", [1]],
 903                "ra": ["set", [1.5]],
 904                "ba": ["set", [false]],
 905                "sa": ["set", []],
 906                "ua": ["set", []]}}]' \
 907     '["idltest",
 908       {"op": "update",
 909        "table": "simple",
 910        "where": [["i", "<", 1]],
 911        "row": {"s": "newstring"}}]' \
 912     '["idltest",
 913       {"op": "delete",
 914        "table": "simple",
 915        "where": [["i", "==", 0]]}]' \
 916     'reconnect']],
 917   [[000: empty
 918 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
 919 002: i=0 r=0 b=false s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 920 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>
 921 003: {"error":null,"result":[{"count":2}]}
 922 004: i=0 r=0 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 923 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>
 924 005: {"error":null,"result":[{"count":2}]}
 925 006: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 926 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>
 927 007: {"error":null,"result":[{"uuid":["uuid","<6>"]}]}
 928 008: i=-1 r=125 b=false s= u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 929 008: i=0 r=123.5 b=true s= u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 930 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>
 931 009: {"error":null,"result":[{"count":2}]}
 932 010: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 933 010: i=0 r=123.5 b=true s=newstring u=<2> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
 934 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>
 935 011: {"error":null,"result":[{"count":1}]}
 936 012: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 937 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>
 938 013: reconnect
 939 014: i=-1 r=125 b=false s=newstring u=<2> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
 940 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>
 941 015: done
 942 ]])
 943
 944 m4_define([OVSDB_CHECK_IDL_TRACK_C],
 945   [AT_SETUP([$1 - C])
 946    AT_KEYWORDS([ovsdb server idl tracking positive $5])
 947    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
 948                   [0], [stdout], [ignore])
 949    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])
 950    on_exit 'kill `cat pid`'
 951    m4_if([$2], [], [],
 952      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
 953    AT_CHECK([test-ovsdb '-vPATTERN:console:test-ovsdb|%c|%m' -vjsonrpc -t10 -c idl unix:socket $3],
 954             [0], [stdout], [ignore])
 955    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
 956             [0], [$4])
 957    OVSDB_SERVER_SHUTDOWN
 958    AT_CLEANUP])
 959
 960 m4_define([OVSDB_CHECK_IDL_TRACK],
 961   [OVSDB_CHECK_IDL_TRACK_C($@)])
 962
 963 OVSDB_CHECK_IDL_TRACK([track, simple idl, initially populated],
 964   [['["idltest",
 965       {"op": "insert",
 966        "table": "simple",
 967        "row": {"i": 1,
 968                "r": 2.0,
 969                "b": true,
 970                "s": "mystring",
 971                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
 972                "ia": ["set", [1, 2, 3]],
 973                "ra": ["set", [-0.5]],
 974                "ba": ["set", [true]],
 975                "sa": ["set", ["abc", "def"]],
 976                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
 977                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
 978       {"op": "insert",
 979        "table": "simple",
 980        "row": {}}]']],
 981   [['["idltest",
 982       {"op": "update",
 983        "table": "simple",
 984        "where": [],
 985        "row": {"b": true}}]']],
 986   [[000: i=1 r=2 b=true s=mystring u=<0> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<1> <2>] uuid=<3>
 987 000: updated columns: b ba i ia r ra s sa u ua
 988 001: {"error":null,"result":[{"count":2}]}
 989 002: i=0 r=0 b=true s= u=<4> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<5>
 990 002: i=1 r=2 b=true s=mystring u=<0> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<1> <2>] uuid=<3>
 991 002: updated columns: b
 992 003: done
 993 ]])
 994
 995 OVSDB_CHECK_IDL_TRACK([track, simple idl, initially empty, various ops],
 996   [],
 997   [['["idltest",
 998       {"op": "insert",
 999        "table": "simple",
1000        "row": {"i": 1,
1001                "r": 2.0,
1002                "b": true,
1003                "s": "mystring",
1004                "u": ["uuid", "84f5c8f5-ac76-4dbc-a24f-8860eb407fc1"],
1005                "ia": ["set", [1, 2, 3]],
1006                "ra": ["set", [-0.5]],
1007                "ba": ["set", [true]],
1008                "sa": ["set", ["abc", "def"]],
1009                "ua": ["set", [["uuid", "69443985-7806-45e2-b35f-574a04e720f9"],
1010                               ["uuid", "aad11ef0-816a-4b01-93e6-03b8b4256b98"]]]}},
1011       {"op": "insert",
1012        "table": "simple",
1013        "row": {}}]' \
1014     '["idltest",
1015       {"op": "update",
1016        "table": "simple",
1017        "where": [],
1018        "row": {"b": true}}]' \
1019     '["idltest",
1020       {"op": "update",
1021        "table": "simple",
1022        "where": [],
1023        "row": {"r": 123.5}}]' \
1024     '["idltest",
1025       {"op": "insert",
1026        "table": "simple",
1027        "row": {"i": -1,
1028                "r": 125,
1029                "b": false,
1030                "s": "",
1031                "ia": ["set", [1]],
1032                "ra": ["set", [1.5]],
1033                "ba": ["set", [false]],
1034                "sa": ["set", []],
1035                "ua": ["set", []]}}]' \
1036     '["idltest",
1037       {"op": "update",
1038        "table": "simple",
1039        "where": [["i", "<", 1]],
1040        "row": {"s": "newstring"}}]' \
1041     '["idltest",
1042       {"op": "delete",
1043        "table": "simple",
1044        "where": [["i", "==", 0]]}]' \
1045     'reconnect']],
1046   [[000: empty
1047 001: {"error":null,"result":[{"uuid":["uuid","<0>"]},{"uuid":["uuid","<1>"]}]}
1048 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=<0>
1049 002: updated columns: b ba i ia r ra s sa u ua
1050 003: {"error":null,"result":[{"count":2}]}
1051 004: i=0 r=0 b=true s= u=<5> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
1052 004: updated columns: b
1053 005: {"error":null,"result":[{"count":2}]}
1054 006: i=0 r=123.5 b=true s= u=<5> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
1055 006: i=1 r=123.5 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<0>
1056 006: updated columns: r
1057 006: updated columns: r
1058 007: {"error":null,"result":[{"uuid":["uuid","<6>"]}]}
1059 008: i=-1 r=125 b=false s= u=<5> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
1060 008: updated columns: ba i ia r ra
1061 009: {"error":null,"result":[{"count":2}]}
1062 010: i=-1 r=125 b=false s=newstring u=<5> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
1063 010: i=0 r=123.5 b=true s=newstring u=<5> ia=[] ra=[] ba=[] sa=[] ua=[] uuid=<1>
1064 010: updated columns: s
1065 010: updated columns: s
1066 011: {"error":null,"result":[{"count":1}]}
1067 012: ##deleted## uuid=<1>
1068 013: reconnect
1069 014: i=-1 r=125 b=false s=newstring u=<5> ia=[1] ra=[1.5] ba=[false] sa=[] ua=[] uuid=<6>
1070 014: i=1 r=123.5 b=true s=mystring u=<2> ia=[1 2 3] ra=[-0.5] ba=[true] sa=[abc def] ua=[<3> <4>] uuid=<0>
1071 014: updated columns: b ba i ia r ra s sa u ua
1072 014: updated columns: ba i ia r ra s
1073 015: done
1074 ]])
1075
1076 m4_define([OVSDB_CHECK_IDL_PARTIAL_UPDATE_MAP_COLUMN],
1077   [AT_SETUP([$1 - C])
1078    AT_KEYWORDS([ovsdb server idl partial update map column positive $5])
1079    AT_CHECK([ovsdb-tool create db $abs_srcdir/idltest.ovsschema],
1080                   [0], [stdout], [ignore])
1081    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])
1082    on_exit 'kill `cat pid`'
1083    m4_if([$2], [], [],
1084      [AT_CHECK([ovsdb-client transact unix:socket $2], [0], [ignore], [ignore])])
1085    AT_CHECK([test-ovsdb '-vPATTERN:console:test-ovsdb|%c|%m' -vjsonrpc -t10 -c idl-partial-update-map-column unix:socket $3],
1086             [0], [stdout], [ignore])
1087    AT_CHECK([sort stdout | ${PERL} $srcdir/uuidfilt.pl]m4_if([$6],,, [[| $6]]),
1088             [0], [$4])
1089    OVSDB_SERVER_SHUTDOWN
1090    AT_CLEANUP])
1091
1092 OVSDB_CHECK_IDL_PARTIAL_UPDATE_MAP_COLUMN([map, simple2 idl-partial-update-map-column, initially populated],
1093 [['["idltest", {"op":"insert", "table":"simple2",
1094                 "row":{"name":"myString1","smap":["map",[["key1","value1"],["key2","value2"]]]} }]']
1095 ],
1096 [],
1097 [[000: Getting records
1098 001: name=myString1 smap=[[key1 : value1],[key2 : value2]] imap=[]
1099 002: After insert element
1100 003: name=String2 smap=[[key1 : myList1],[key2 : value2]] imap=[[3 : myids2]]
1101 004: After insert duplicated element
1102 005: name=String2 smap=[[key1 : myList1],[key2 : value2]] imap=[[3 : myids2]]
1103 006: After delete element
1104 007: name=String2 smap=[[key2 : value2]] imap=[[3 : myids2]]
1105 008: After trying to delete a deleted element
1106 009: name=String2 smap=[[key2 : value2]] imap=[[3 : myids2]]
1107 010: End test
1108 ]])