tests/ovsdb-tool.at

   1 AT_BANNER([OVSDB -- ovsdb-tool])
   2
   3 # OVSDB_CHECK_EXECUTION(TITLE, SCHEMA, TRANSACTIONS, OUTPUT, [KEYWORDS])
   4 #
   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.
   8 #
   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
  13 # same marker.
  14 #
  15 # TITLE is provided to AT_SETUP and KEYWORDS to AT_KEYWORDS.
  16 m4_define([OVSDB_CHECK_EXECUTION],
  17   [AT_SETUP([$1])
  18    AT_KEYWORDS([ovsdb file positive $5])
  19    OVS_RUNDIR=`pwd`; export OVS_RUNDIR
  20    $2 > schema
  21    touch .db.~lock~
  22    AT_CHECK([ovsdb-tool create db schema], [0], [stdout], [ignore])
  23    m4_foreach([txn], [$3],
  24      [AT_CHECK([ovsdb-tool transact db 'txn'], [0], [stdout], [ignore])
  25 cat stdout >> output
  26 ])
  27    AT_CHECK([${PERL} $srcdir/uuidfilt.pl output], [0], [$4])
  28    AT_CLEANUP])
  29
  30 EXECUTION_EXAMPLES
  31
  32 AT_SETUP([transaction comments])
  33 AT_KEYWORDS([ovsdb file positive])
  34 ordinal_schema > schema
  35 touch .db.~lock~
  36 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
  37 AT_CHECK([[ovsdb-tool transact db '
  38     ["ordinals",
  39      {"op": "insert",
  40       "table": "ordinals",
  41       "row": {"name": "five", "number": 5}},
  42      {"op": "comment",
  43       "comment": "add row for 5"}]']], [0], [stdout], [ignore])
  44 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0],
  45  [[[{"uuid":["uuid","<0>"]},{}]
  46 ]])
  47 AT_CHECK([grep "add row for 5" db], [0], [ignore])
  48 AT_CLEANUP
  49
  50 AT_SETUP([ovsdb-tool compact])
  51 AT_KEYWORDS([ovsdb file positive])
  52 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
  53 ordinal_schema > schema
  54 dnl Make sure that "ovsdb-tool create" works with a dangling symlink,
  55 dnl creating the target of the symlink rather than replacing the symlink
  56 dnl with a regular file, and that the lockfile gets created relative to
  57 dnl the symlink's target.
  58 mkdir dir
  59 : > dir/.db.~lock~
  60 ln -s dir/db db
  61 AT_SKIP_IF([test ! -h db])
  62 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
  63 AT_CHECK([test ! -e .db.~lock])
  64 AT_CHECK([test -h db])
  65 AT_CHECK([test -f dir/db])
  66 dnl Do a bunch of random transactions that put crap in the database log.
  67 AT_CHECK(
  68   [[for pair in 'zero 0' 'one 1' 'two 2' 'three 3' 'four 4' 'five 5'; do
  69       set -- $pair
  70       ovsdb-tool transact db '
  71         ["ordinals",
  72          {"op": "insert",
  73           "table": "ordinals",
  74           "row": {"name": "'$1'", "number": '$2'}},
  75          {"op": "comment",
  76           "comment": "add row for '"$pair"'"}]'
  77       ovsdb-tool transact db '
  78         ["ordinals",
  79          {"op": "delete",
  80           "table": "ordinals",
  81           "where": [["number", "==", '$2']]},
  82          {"op": "comment",
  83           "comment": "delete row for '"$2"'"}]'
  84       ovsdb-tool transact db '
  85         ["ordinals",
  86          {"op": "insert",
  87           "table": "ordinals",
  88           "row": {"name": "'$1'", "number": '$2'}},
  89          {"op": "comment",
  90           "comment": "add back row for '"$pair"'"}]'
  91     done]],
  92   [0], [stdout], [ignore])
  93 dnl Check that all the crap is in fact in the database log.
  94 AT_CHECK([[${PERL} $srcdir/uuidfilt.pl db | grep -v ^OVSDB | sed 's/"_date":[0-9]*/"_date":0/' | test-json --multiple -]], [0],
  95   [[{"cksum":"12345678 9","name":"ordinals","tables":{"ordinals":{"columns":{"name":{"type":"string"},"number":{"type":"integer"}},"indexes":[["number"]]}},"version":"5.1.3"}
  96 {"_comment":"add row for zero 0","_date":0,"ordinals":{"<0>":{"name":"zero"}}}
  97 {"_comment":"delete row for 0","_date":0,"ordinals":{"<0>":null}}
  98 {"_comment":"add back row for zero 0","_date":0,"ordinals":{"<1>":{"name":"zero"}}}
  99 {"_comment":"add row for one 1","_date":0,"ordinals":{"<2>":{"name":"one","number":1}}}
 100 {"_comment":"delete row for 1","_date":0,"ordinals":{"<2>":null}}
 101 {"_comment":"add back row for one 1","_date":0,"ordinals":{"<3>":{"name":"one","number":1}}}
 102 {"_comment":"add row for two 2","_date":0,"ordinals":{"<4>":{"name":"two","number":2}}}
 103 {"_comment":"delete row for 2","_date":0,"ordinals":{"<4>":null}}
 104 {"_comment":"add back row for two 2","_date":0,"ordinals":{"<5>":{"name":"two","number":2}}}
 105 {"_comment":"add row for three 3","_date":0,"ordinals":{"<6>":{"name":"three","number":3}}}
 106 {"_comment":"delete row for 3","_date":0,"ordinals":{"<6>":null}}
 107 {"_comment":"add back row for three 3","_date":0,"ordinals":{"<7>":{"name":"three","number":3}}}
 108 {"_comment":"add row for four 4","_date":0,"ordinals":{"<8>":{"name":"four","number":4}}}
 109 {"_comment":"delete row for 4","_date":0,"ordinals":{"<8>":null}}
 110 {"_comment":"add back row for four 4","_date":0,"ordinals":{"<9>":{"name":"four","number":4}}}
 111 {"_comment":"add row for five 5","_date":0,"ordinals":{"<10>":{"name":"five","number":5}}}
 112 {"_comment":"delete row for 5","_date":0,"ordinals":{"<10>":null}}
 113 {"_comment":"add back row for five 5","_date":0,"ordinals":{"<11>":{"name":"five","number":5}}}
 114 ]])
 115 dnl Dump out and check the actual database contents.
 116 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 117   [0], [stdout], [ignore])
 118 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 119 ordinals table
 120 _uuid                                name  number
 121 ------------------------------------ ----- ------
 122 <0> five  5     @&t@
 123 <1> four  4     @&t@
 124 <2> one   1     @&t@
 125 <3> three 3     @&t@
 126 <4> two   2     @&t@
 127 <5> zero  0     @&t@
 128 ])
 129 dnl Now compact the database in-place.
 130 touch .db.tmp.~lock~
 131 AT_CHECK([[ovsdb-tool compact db]], [0], [], [ignore])
 132 dnl Make sure that "db" is still a symlink to dir/db instead of getting
 133 dnl replaced by a regular file.
 134 AT_CHECK([test ! -e .db.~lock])
 135 AT_CHECK([test -h db])
 136 AT_CHECK([test -f dir/db])
 137 dnl We can't fully re-check the contents of the database log, because the
 138 dnl order of the records is not predictable, but there should only be 4 lines
 139 dnl in it now.
 140 AT_CAPTURE_FILE([db])
 141 AT_CHECK([test `wc -l < db` -eq 4])
 142 dnl And check that the dumped data is the same too:
 143 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 144   [0], [stdout], [ignore])
 145 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 146 ordinals table
 147 _uuid                                name  number
 148 ------------------------------------ ----- ------
 149 <0> five  5     @&t@
 150 <1> four  4     @&t@
 151 <2> one   1     @&t@
 152 <3> three 3     @&t@
 153 <4> two   2     @&t@
 154 <5> zero  0     @&t@
 155 ])
 156 AT_CLEANUP
 157
 158 AT_SETUP([ovsdb-tool convert -- removing a column])
 159 AT_KEYWORDS([ovsdb file positive])
 160 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
 161 ordinal_schema > schema
 162 AT_DATA([new-schema],
 163   [[{"name": "ordinals",
 164      "tables": {
 165        "ordinals": {
 166          "columns": {
 167            "number": {"type": "integer"}}}}}
 168 ]])
 169 touch .db.~lock~
 170 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 171 dnl Put some data in the database.
 172 AT_CHECK(
 173   [[for pair in 'zero 0' 'one 1' 'two 2' 'three 3' 'four 4' 'five 5'; do
 174       set -- $pair
 175       ovsdb-tool transact db '
 176         ["ordinals",
 177          {"op": "insert",
 178           "table": "ordinals",
 179           "row": {"name": "'$1'", "number": '$2'}},
 180          {"op": "comment",
 181           "comment": "add row for '"$pair"'"}]'
 182     done]],
 183   [0], [stdout], [ignore])
 184 dnl Dump out and check the actual database contents.
 185 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 186   [0], [stdout], [ignore])
 187 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 188 ordinals table
 189 _uuid                                name  number
 190 ------------------------------------ ----- ------
 191 <0> five  5     @&t@
 192 <1> four  4     @&t@
 193 <2> one   1     @&t@
 194 <3> three 3     @&t@
 195 <4> two   2     @&t@
 196 <5> zero  0     @&t@
 197 ])
 198 dnl Now convert the database in-place.
 199 touch .db.tmp.~lock~
 200 AT_CHECK([[ovsdb-tool convert db new-schema]], [0], [], [ignore])
 201 dnl We can't fully re-check the contents of the database log, because the
 202 dnl order of the records is not predictable, but there should only be 4 lines
 203 dnl in it now.
 204 AT_CAPTURE_FILE([db])
 205 AT_CHECK([test `wc -l < db` -eq 4])
 206 dnl And check that the dumped data is the same except for the removed column:
 207 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 208   [0], [stdout], [ignore])
 209 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 210 ordinals table
 211 _uuid                                number
 212 ------------------------------------ ------
 213 <0> 0     @&t@
 214 <1> 1     @&t@
 215 <2> 2     @&t@
 216 <3> 3     @&t@
 217 <4> 4     @&t@
 218 <5> 5     @&t@
 219 ])
 220 AT_CLEANUP
 221
 222 AT_SETUP([ovsdb-tool convert -- adding a column])
 223 AT_KEYWORDS([ovsdb file positive])
 224 OVS_RUNDIR=`pwd`; export OVS_RUNDIR
 225 AT_DATA([schema],
 226   [[{"name": "ordinals",
 227      "tables": {
 228        "ordinals": {
 229          "columns": {
 230            "number": {"type": "integer"}}}}}
 231 ]])
 232 ordinal_schema > new-schema
 233 touch .db.~lock~
 234 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 235 dnl Put some data in the database.
 236 AT_CHECK(
 237   [[for number in 0 1 2 3 4 5; do
 238       ovsdb-tool transact db '
 239         ["ordinals",
 240          {"op": "insert",
 241           "table": "ordinals",
 242           "row": {"number": '$number'}},
 243          {"op": "comment",
 244           "comment": "add row for '"$number"'"}]'
 245     done]],
 246   [0], [stdout], [ignore])
 247 dnl Dump out and check the actual database contents.
 248 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 249   [0], [stdout], [ignore])
 250 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 251 ordinals table
 252 _uuid                                number
 253 ------------------------------------ ------
 254 <0> 0     @&t@
 255 <1> 1     @&t@
 256 <2> 2     @&t@
 257 <3> 3     @&t@
 258 <4> 4     @&t@
 259 <5> 5     @&t@
 260 ])
 261 dnl Now convert the database in-place.
 262 touch .db.tmp.~lock~
 263 AT_CHECK([[ovsdb-tool convert db new-schema]], [0], [], [ignore])
 264 dnl We can't fully re-check the contents of the database log, because the
 265 dnl order of the records is not predictable, but there should only be 4 lines
 266 dnl in it now.
 267 AT_CAPTURE_FILE([db])
 268 AT_CHECK([test `wc -l < db` -eq 4])
 269 dnl And check that the dumped data is the same except for the added column:
 270 AT_CHECK([[ovsdb-server --unixctl="`pwd`"/unixctl --remote=punix:socket --run "ovsdb-client dump unix:socket ordinals" db]],
 271   [0], [stdout], [ignore])
 272 AT_CHECK([${PERL} $srcdir/uuidfilt.pl stdout], [0], [dnl
 273 ordinals table
 274 _uuid                                name number
 275 ------------------------------------ ---- ------
 276 <0> ""   0     @&t@
 277 <1> ""   1     @&t@
 278 <2> ""   2     @&t@
 279 <3> ""   3     @&t@
 280 <4> ""   4     @&t@
 281 <5> ""   5     @&t@
 282 ])
 283 AT_CLEANUP
 284
 285 AT_SETUP([ovsdb-tool schema-version])
 286 AT_KEYWORDS([ovsdb file positive])
 287 ordinal_schema > schema
 288 AT_CHECK([ovsdb-tool schema-version schema], [0], [5.1.3
 289 ])
 290 AT_CLEANUP
 291
 292 AT_SETUP([ovsdb-tool db-version])
 293 AT_KEYWORDS([ovsdb file positive])
 294 ordinal_schema > schema
 295 touch .db.~lock~
 296 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 297 AT_CHECK([ovsdb-tool db-version db], [0], [5.1.3
 298 ])
 299 AT_CLEANUP
 300
 301 AT_SETUP([ovsdb-tool schema-cksum])
 302 AT_KEYWORDS([ovsdb file positive])
 303 ordinal_schema > schema
 304 AT_CHECK([ovsdb-tool schema-cksum schema], [0], [12345678 9
 305 ])
 306 AT_CLEANUP
 307
 308 AT_SETUP([ovsdb-tool db-cksum])
 309 AT_KEYWORDS([ovsdb file positive])
 310 ordinal_schema > schema
 311 touch .db.~lock~
 312 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 313 AT_CHECK([ovsdb-tool db-cksum db], [0], [12345678 9
 314 ])
 315 AT_CLEANUP
 316
 317 AT_SETUP([ovsdb-tool needs-conversion (no conversion needed)])
 318 AT_KEYWORDS([ovsdb file positive])
 319 ordinal_schema > schema
 320 touch .db.~lock~
 321 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 322 AT_CHECK([ovsdb-tool needs-conversion db schema], [0], [no
 323 ])
 324 AT_CLEANUP
 325
 326 AT_SETUP([ovsdb-tool needs-conversion (conversion needed)])
 327 AT_KEYWORDS([ovsdb file positive])
 328 ordinal_schema > schema
 329 touch .db.~lock~
 330 AT_CHECK([ovsdb-tool create db schema], [0], [], [ignore])
 331 sed 's/5\.1\.3/5.1.4/' < schema > schema2
 332 AT_CHECK([diff schema schema2], [1], [ignore])
 333 AT_CHECK([ovsdb-tool needs-conversion db schema2], [0], [yes
 334 ])
 335 AT_CLEANUP