aboutsummaryrefslogtreecommitdiff
path: root/contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp')
-rw-r--r--contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp60
1 files changed, 0 insertions, 60 deletions
diff --git a/contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp b/contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp
deleted file mode 100644
index 73e99e4..0000000
--- a/contrib/bluegnu2.0.3/example/calc/testsuite/calc.test/calc.exp
+++ /dev/null
@@ -1,60 +0,0 @@
-set timeout 3
-#
-# expectations that clean up in case of error. Note that `$test' is
-# a purely local variable.
-#
-# The first of these is used to match any bad responses, and resynchronise
-# things by finding a prompt. The second is a timeout error, and shouldn't
-# 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)"
- }
-}
-#
-# Here are the tests
-#
-set test "version"
-send "version\n"
-expect {
- -re "Version:.*$prompt$" { pass "version" }
-}
-
-set test add1
-send "add 3 4\n"
-expect {
- -re "7+.*$prompt$" { pass "$test" }
-}
-
-set test add2
-send "add 1 2 3\n"
-expect {
- -re "Usage: add #1 #2.*$prompt$" { pass "$test" }
-}
-
-set test multiply1
-send "multiply 3 4\n"
-expect {
- -re "12.*$prompt$" { pass "$test" }
-}
-
-set test multiply2
-send "multiply 2 4\n"
-expect {
- -re "8.*$prompt$" { pass "$test" }
-}
-
-set test multiply3
-send "multiply 1 2 3\n"
-expect {
- -re "Usage: multiply #1 #2.*$prompt$" { pass "$test" }
-}