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