+++ /dev/null
-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"
-}