tests/libzebra.tests/testcli.exp

   1 set timeout 30
   2 set test_name "testcli"
   3
   4 spawn sh -c "./testcli < $env(srcdir)/testcli.in | diff -au $env(srcdir)/testcli.refout -"
   5
   6 expect {
   7         eof {
   8         }
   9         timeout {
  10                 exp_close
  11                 fail "$test_name: timeout"
  12         }
  13 }
  14
  15 catch wait result
  16 set os_error    [lindex $result 2]
  17 set exit_status [lindex $result 3]
  18
  19 if { $os_error == 0 && $exit_status == 0 } {
  20         pass "$test_name"
  21 } else {
  22         fail "$test_name"
  23 }