From efc723ddd184ec1f511f25ffbb0451708be97a24 Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Wed, 24 May 2000 05:58:58 +0000 Subject: Test wildcard rename function. (This used to be commit a9133e2df038c73d3e9f1ffec7628dbde289085c) --- testsuite/server/rename.exp | 59 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 testsuite/server/rename.exp (limited to 'testsuite/server') diff --git a/testsuite/server/rename.exp b/testsuite/server/rename.exp new file mode 100644 index 0000000000..77e7297776 --- /dev/null +++ b/testsuite/server/rename.exp @@ -0,0 +1,59 @@ +# +# 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" -- cgit From 2962a4cc616660dfc3ef5765a4911abec86ae36f Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Wed, 24 May 2000 06:03:00 +0000 Subject: Testharness for masktest program. (This used to be commit 4a14b16cd16289a46f9562e927679ef8ca2dcdfc) --- testsuite/server/masktest.exp | 57 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 testsuite/server/masktest.exp (limited to 'testsuite/server') diff --git a/testsuite/server/masktest.exp b/testsuite/server/masktest.exp new file mode 100644 index 0000000000..532291bffb --- /dev/null +++ b/testsuite/server/masktest.exp @@ -0,0 +1,57 @@ +# +# 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" + } +} -- cgit From bbc94ebb4ba4e1891d09748cefe7bc880978a50e Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Wed, 24 May 2000 06:20:08 +0000 Subject: Test various operations on ipc$ share. (This used to be commit 5b3fcc303d939e750126dd44e7efb5dd73c8d9df) --- testsuite/server/ipc.exp | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 testsuite/server/ipc.exp (limited to 'testsuite/server') diff --git a/testsuite/server/ipc.exp b/testsuite/server/ipc.exp new file mode 100644 index 0000000000..ae0688872a --- /dev/null +++ b/testsuite/server/ipc.exp @@ -0,0 +1,44 @@ +# +# 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 -- cgit From 5711e0af18426bfb515311a50154b1242f0dd638 Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Wed, 24 May 2000 06:40:11 +0000 Subject: Test transfer of large random file w/o corruption. (This used to be commit a9790f19612513b667c348d628ab3bf88ec1178e) --- testsuite/server/xfer.exp | 48 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 testsuite/server/xfer.exp (limited to 'testsuite/server') diff --git a/testsuite/server/xfer.exp b/testsuite/server/xfer.exp new file mode 100644 index 0000000000..6d00b29885 --- /dev/null +++ b/testsuite/server/xfer.exp @@ -0,0 +1,48 @@ +# +# 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 -- cgit