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