summaryrefslogtreecommitdiff
path: root/testsuite/server
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/server')
-rw-r--r--testsuite/server/ipc.exp44
-rw-r--r--testsuite/server/masktest.exp57
-rw-r--r--testsuite/server/rename.exp59
-rw-r--r--testsuite/server/xfer.exp48
4 files changed, 0 insertions, 208 deletions
diff --git a/testsuite/server/ipc.exp b/testsuite/server/ipc.exp
deleted file mode 100644
index ae0688872a..0000000000
--- a/testsuite/server/ipc.exp
+++ /dev/null
@@ -1,44 +0,0 @@
-#
-# Test operations on IPC$ share
-#
-
-# Initialisation
-
-load_lib env-single.exp
-load_lib smbclient.exp
-
-set timeout 10
-
-# Spawn a smbclient
-
-if {![spawn_smbclient //$server/ipc\$ -U $user]} {
- perror "error spawning smbclient"
- return -1
-}
-
-#
-# Start performing tests
-#
-
-global smb_prompt
-
-do_smbclient "lcd /tmp\r" "lcd /tmp"
-do_smbclient "!touch test.out\r" "touch test.out"
-
-foreach { op } { "dir\r" "put test.out\r" "get test.out\r" \
- "get /etc/passwd\r" "mkdir foo\r" "print test.out\r" } {
-
- set action "doing $op"
- set output [do_smbclient $op $action]
-
- if {![regexp "ERR" $output]} {
- fail $action
- puts $output
- } else {
- pass $action
- }
-}
-
-# Clean up
-
-file delete test.out
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"
- }
-}
diff --git a/testsuite/server/rename.exp b/testsuite/server/rename.exp
deleted file mode 100644
index 77e7297776..0000000000
--- a/testsuite/server/rename.exp
+++ /dev/null
@@ -1,59 +0,0 @@
-#
-# Test misc file operations
-#
-
-# Initialisation
-
-load_lib env-single.exp
-load_lib smbclient.exp
-
-set timeout 10
-
-# Spawn a connection
-
-if {![spawn_smbclient //$server/$share -U $user]} {
- perror "error spawning smbclient"
- return -1
-}
-
-# Do wildcard rename test
-
-foreach { op } {"!touch /tmp/test.out\r" "lcd /tmp\r" "rm test.out\r" \
- "put test.out\r"} {
-
- set action "doing $op"
- set output [do_smbclient $op $action]
-
- if {[regexp "ERR" $output]} {
- perror $action
- puts $output
- return -1;
- }
-}
-
-file delete "/tmp/test.out"
-
-# Perform rename
-
-set output [do_smbclient "rename *.out *.dat\r" "wildcard rename"]
-
-if {[regexp "ERR" $output]} {
- perror "wildcard rename didn't work"
- return -1
-}
-
-# Check it worked
-
-set testname "wildcard match"
-set output [do_smbclient "dir\r" "wildcard rename check"]
-
-if {[regexp "test.dat" $output]} {
- pass $testname
-} else {
- fail $testname
-}
-
-# Clean up
-
-set op "rm test.dat\r"
-do_smbclient $op "doing $op"
diff --git a/testsuite/server/xfer.exp b/testsuite/server/xfer.exp
deleted file mode 100644
index 6d00b29885..0000000000
--- a/testsuite/server/xfer.exp
+++ /dev/null
@@ -1,48 +0,0 @@
-#
-# Test file transfer
-#
-
-# Initialisation
-
-load_lib util-defs.exp
-load_lib smbclient.exp
-load_lib env-single.exp
-
-set timeout 60
-
-# Spawn a connection
-
-if {![spawn_smbclient //$server/$share -U $user]} {
- perror "error spawning smbclient"
- return -1
-}
-
-# Create a big file, store it and fetch it again
-
-foreach { op } { "!dd if=/dev/urandom of=/tmp/file bs=1048576 count=1\r" \
- "lcd /tmp\r" "put file\r" "get file /tmp/file2\r" } {
-
- set action "doing $op"
- set output [do_smbclient $op $action]
-
- if {[regexp "ERR" $output]} {
- error $action
- puts $output
- return -1
- }
-}
-
-# Compare the two files
-
-set output [util_start "diff" "/tmp/file /tmp/file2" ""]
-
-if {[regexp "differ" $output]} {
- fail "xfertest"
- puts $output
-} else {
- pass "xfertest"
-}
-
-# Clean up temporary files
-
-file delete /tmp/file /tmp/file2