diff options
author | Tim Potter <tpot@samba.org> | 2000-05-24 06:20:08 +0000 |
---|---|---|
committer | Tim Potter <tpot@samba.org> | 2000-05-24 06:20:08 +0000 |
commit | 5b3fcc303d939e750126dd44e7efb5dd73c8d9df (patch) | |
tree | 90ba8ff9b742a0687a106296eb015f2d4cd10068 /testsuite/server | |
parent | 06763d1ec2fafc42f8ee3f36f0aeacceb3a7109d (diff) | |
download | samba-5b3fcc303d939e750126dd44e7efb5dd73c8d9df.tar.gz samba-5b3fcc303d939e750126dd44e7efb5dd73c8d9df.tar.xz samba-5b3fcc303d939e750126dd44e7efb5dd73c8d9df.zip |
Test various operations on ipc$ share.
Diffstat (limited to 'testsuite/server')
-rw-r--r-- | testsuite/server/ipc.exp | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/testsuite/server/ipc.exp b/testsuite/server/ipc.exp new file mode 100644 index 00000000000..ae0688872a8 --- /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 |