Return to testcli.exp CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tests / libzebra.tests

quagga 1.0.20160315

    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: }