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