AT_BANNER([OVSDB -- ovsdb-server monitors])

# OVSDB_CHECK_MONITOR(TITLE, SCHEMA, [PRE-MONITOR-TXN], MONITOR-ARGS,
#                     TRANSACTIONS, OUTPUT, [KEYWORDS])
#
# Creates a database with the given SCHEMA, starts an ovsdb-server on
# that database, and runs each of the TRANSACTIONS (which should be a
# quoted list of quoted strings) against it with ovsdb-client one at a
# time.
#
# Checks that the overall output is OUTPUT, but UUIDs in the output
# are replaced by markers of the form <N> where N is a number.  The
# first unique UUID is replaced by <0>, the next by <1>, and so on.
# If a given UUID appears more than once it is always replaced by the
# same marker.
#
# TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
m4_define([OVSDB_CHECK_MONITOR], 
  [AT_SETUP([$1])
   AT_KEYWORDS([ovsdb server monitor positive $7])
   AT_DATA([schema], [$2
])
   OVS_CHECK_LCOV([ovsdb-tool create db schema], [0], [stdout], [ignore])
   m4_foreach([txn], [$3],
     [OVS_CHECK_LCOV([ovsdb-tool transact db 'txn'], [0], [ignore], [ignore])])
   AT_CHECK([ovsdb-server --detach --pidfile=$PWD/server-pid --listen=punix:socket --unixctl=$PWD/unixctl db])
   AT_CHECK([ovsdb-client monitor --format=csv unix:socket $4 > output & echo $! > monitor-pid], 
            [0], [ignore], [ignore], [kill `cat server-pid`])
   m4_foreach([txn], [$5],
     [OVS_CHECK_LCOV([ovsdb-client transact unix:socket 'txn'], [0],
                     [ignore], [ignore], [kill `cat server-pid monitor-pid`])])
   AT_CHECK([ovs-appctl -t $PWD/unixctl -e exit], [0], [ignore], [ignore])
   wait
   AT_CHECK([perl $srcdir/uuidfilt.pl output], [0], [$6])
   AT_CLEANUP])

OVSDB_CHECK_MONITOR([monitor insert into empty table],
  [ORDINAL_SCHEMA],
  [],
  [ordinals],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 0, "name": "zero"}}]]]],
  [[row,action,name,number,_version
<0>,insert,"""zero""",0,"[""uuid"",""<1>""]"
]])

OVSDB_CHECK_MONITOR([monitor insert into populated table],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 0, "name": "zero"}}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<2>,insert,"""zero""",0,"[""uuid"",""<3>""]"
]])

OVSDB_CHECK_MONITOR([monitor delete],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "delete",
       "table": "ordinals",
       "where": [["number", "==", 10]]}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<0>,delete,"""ten""",10,"[""uuid"",""<1>""]"
]])

OVSDB_CHECK_MONITOR([monitor row update],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "update",
       "table": "ordinals",
       "where": [["number", "==", 10]],
       "row": {"name": "five plus five"}}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<0>,old,"""ten""",,"[""uuid"",""<1>""]"
,new,"""five plus five""",10,"[""uuid"",""<2>""]"
]])

OVSDB_CHECK_MONITOR([monitor no-op row updates],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "update",
       "table": "ordinals",
       "where": [["number", "==", 10]],
       "row": {"number": 10, "name": "ten"}}]]],
   [[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 9, "name": "nine"}}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<2>,insert,"""nine""",9,"[""uuid"",""<3>""]"
]])

OVSDB_CHECK_MONITOR([monitor insert-and-update transaction],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 9, "name": "nine"},
       "uuid-name": "nine"},
      {"op": "update",
       "table": "ordinals",
       "where": [["_uuid", "==", ["named-uuid", "nine"]]],
       "row": {"name": "three squared"}}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<2>,insert,"""three squared""",9,"[""uuid"",""<3>""]"
]])


OVSDB_CHECK_MONITOR([monitor insert-update-and-delete transaction],
  [ORDINAL_SCHEMA],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 10, "name": "ten"}}]]]],
  [ordinals],
  [[[[{"op": "insert",
       "table": "ordinals",
       "row": {"number": 9, "name": "nine"},
       "uuid-name": "nine"},
      {"op": "update",
       "table": "ordinals",
       "where": [["_uuid", "==", ["named-uuid", "nine"]]],
       "row": {"name": "three squared"}},
      {"op": "delete",
       "table": "ordinals",
       "where": [["_uuid", "==", ["named-uuid", "nine"]]]},
      {"op": "insert",
       "table": "ordinals",
       "row": {"number": 7, "name": "seven"}}]]]],
  [[row,action,name,number,_version
<0>,initial,"""ten""",10,"[""uuid"",""<1>""]"
row,action,name,number,_version
<2>,insert,"""seven""",7,"[""uuid"",""<3>""]"
]])