| Christian Franke | 8f399b0 | 2013-09-30 12:27:50 +0000 | [diff] [blame^] | 1 | set timeout 30 |
| 2 | set test_name "testcommands" | ||||
| 3 | |||||
| 4 | spawn sh -c "./testcommands -e 0 < testcommands.in | diff -au - testcommands.out" | ||||
| 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 | } | ||||