testsuite: Remove unused and unlikely to be revived DejaGNU tests

[nivanova/samba-autobuild/.git] / testsuite / server / masktest.exp

diff --git a/testsuite/server/masktest.exp b/testsuite/server/masktest.exp
deleted file mode 100644 (file)
index 532291b..0000000
--- 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"
-    }
-}