diff options
Diffstat (limited to 'testsuite/server/masktest.exp')
-rw-r--r-- | testsuite/server/masktest.exp | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/testsuite/server/masktest.exp b/testsuite/server/masktest.exp deleted file mode 100644 index 532291bffb..0000000000 --- a/testsuite/server/masktest.exp +++ /dev/null @@ -1,57 +0,0 @@ -# -# Test various things using the masktest program -# - -# Initialisation - -load_lib env-single.exp - -set timeout 10 - -# Test each wildcard individually, then all together at once - -set testlist {{"abc" "<"} {"abc" ">"} {"abc" "\""} {"abc" "?"} {"abc" "*"} \ - {"abc" "."} {"abc" "<>\"?*."}} - -foreach { test } $testlist { - - set got_output 0 - set fail 0 - - # Spawn masktest - - spawn bin/masktest //$server/$share -U $user -n 1000 -a \ - -f [lindex $test 0] -m [concat [lindex $test 0] [lindex $test 1]] - - # Check output - - while 1 { - expect { - -re "(...) (...) \[0-9\]+ mask=" { - if { $expect_out(1,string) != $expect_out(2,string) } { - fail "masktest [lindex $test 1]" - puts $expect_out(0,string); - set fail 1 - break; - } else { - set got_output 1 - } - } - eof { break } - } - } - - # Produce result - - set testname "[lindex $test 0] [lindex $test 1]" - - if {$got_output} { - if {$fail} { - fail "masktest $testname" - } else { - pass "masktest $testname" - } - } else { - perror "no output seen for test $testname" - } -} |