tests/libzebra.tests/testcommands.exp

   1 set timeout 30
   2 set test_name "testcommands"
   3
   4 if {![info exists env(QUAGGA_TEST_COMMANDS)]} {
   5         # sadly, the test randomly fails when configure parameters differ from
   6         # what was used to create testcommands.refout.  this can be fixed by
   7         # shipping a matching vtysh_cmd.c, which we'll add after 0.99.23
   8         unresolved "$test_name"
   9         exit 0
  10 }
  11
  12 spawn sh -c "./testcommands -e 0 < $env(srcdir)/testcommands.in | diff -au - $env(srcdir)/testcommands.refout"
  13
  14 expect {
  15         eof {
  16         }
  17         timeout {
  18                 exp_close
  19                 fail "$test_name: timeout"
  20         }
  21 }
  22
  23 catch wait result
  24 set os_error    [lindex $result 2]
  25 set exit_status [lindex $result 3]
  26
  27 if { $os_error == 0 && $exit_status == 0 } {
  28         pass "$test_name"
  29 } else {
  30         fail "$test_name"
  31 }