Return to testcli.exp CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tests / libzebra.tests |
1.1 ! misho 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: }