diff options
Diffstat (limited to 'example/calc/testsuite/calc.test/calc.exp')
| -rw-r--r-- | example/calc/testsuite/calc.test/calc.exp | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/example/calc/testsuite/calc.test/calc.exp b/example/calc/testsuite/calc.test/calc.exp index 038736b..f95dc65 100644 --- a/example/calc/testsuite/calc.test/calc.exp +++ b/example/calc/testsuite/calc.test/calc.exp @@ -27,17 +27,17 @@ set timeout 3 # ever be triggered. # expect_after { - -re "\[^\n\r\]*$prompt$" { - fail "$test (bad match)" - if { $verbose > 0 } { - regexp ".*\r\n(\[^\r\n\]+)(\[\r\n\])+$prompt$" \ - $expect_out(buffer) "" output - send_user "\tUnmatched output: \"$output\"\n" - } - } - timeout { - fail "$test (timeout)" + -re "\[^\n\r\]*$prompt$" { + fail "$test (bad match)" + if { $verbose > 0 } { + regexp ".*\r\n(\[^\r\n\]+)(\[\r\n\])+$prompt$" \ + $expect_out(buffer) "" output + send_user "\tUnmatched output: \"$output\"\n" } + } + timeout { + fail "$test (timeout)" + } } # # Here are the tests @@ -45,35 +45,35 @@ expect_after { set test "version" send "version\n" expect { - -re "Version:.*$prompt$" { pass "version" } + -re "Version:.*$prompt$" { pass "version" } } set test add1 send "add 3 4\n" expect { - -re "7+.*$prompt$" { pass "$test" } + -re "7+.*$prompt$" { pass "$test" } } set test add2 send "add 1 2 3\n" expect { - -re "Usage: add #1 #2.*$prompt$" { pass "$test" } + -re "Usage: add #1 #2.*$prompt$" { pass "$test" } } set test multiply1 send "multiply 3 4\n" expect { - -re "12.*$prompt$" { pass "$test" } + -re "12.*$prompt$" { pass "$test" } } set test multiply2 send "multiply 2 4\n" expect { - -re "8.*$prompt$" { pass "$test" } + -re "8.*$prompt$" { pass "$test" } } set test multiply3 send "multiply 1 2 3\n" expect { - -re "Usage: multiply #1 #2.*$prompt$" { pass "$test" } + -re "Usage: multiply #1 #2.*$prompt$" { pass "$test" } } |