set timeout 30 | |
set test_name "testcli" | |
spawn sh -c "./testcli < $env(srcdir)/testcli.in | diff -au $env(srcdir)/testcli.refout -" | |
expect { | |
eof { | |
} | |
timeout { | |
exp_close | |
fail "$test_name: timeout" | |
} | |
} | |
catch wait result | |
set os_error [lindex $result 2] | |
set exit_status [lindex $result 3] | |
if { $os_error == 0 && $exit_status == 0 } { | |
pass "$test_name" | |
} else { | |
fail "$test_name" | |
} |