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