2 # Test various things using the masktest program
7 load_lib env-single.exp
11 # Test each wildcard individually, then all together at once
13 set testlist {{"abc" "<"} {"abc" ">"} {"abc" "\""} {"abc" "?"} {"abc" "*"} \
14 {"abc" "."} {"abc" "<>\"?*."}}
16 foreach { test } $testlist {
23 spawn bin/masktest //$server/$share -U $user -n 1000 -a \
24 -f [lindex $test 0] -m [concat [lindex $test 0] [lindex $test 1]]
30 -re "(...) (...) \[0-9\]+ mask=" {
31 if { $expect_out(1,string) != $expect_out(2,string) } {
32 fail "masktest [lindex $test 1]"
33 puts $expect_out(0,string);
46 set testname "[lindex $test 0] [lindex $test 1]"
50 fail "masktest $testname"
52 pass "masktest $testname"
55 perror "no output seen for test $testname"