| David Lamparter | d79668f | 2015-05-14 14:47:05 +0200 | [diff] [blame] | 1 | set timeout 30 |
| 2 | set test_name "testcli" | ||||
| 3 | |||||
| 4 | spawn sh -c "./testcli < $env(srcdir)/testcli.in | diff -au $env(srcdir)/testcli.refout -" | ||||
| 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 | } | ||||