set timeout 30 | |
set test_name "testcommands" | |
spawn sh -c "./testcommands -e 0 < testcommands.in | diff -au - testcommands.out" | |
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" | |
} |