X-Git-Url: http://git.samba.org/samba.git/?p=kai%2Fsamba.git;a=blobdiff_plain;f=testsuite%2Fserver%2Fipc.exp;fp=testsuite%2Fserver%2Fipc.exp;h=0000000000000000000000000000000000000000;hp=ae0688872a8553f6a85b398cb7fc7be5cae6b6cd;hb=62a66b00b61cf4f85a81cca78e1432007b47ea11;hpb=c9d929af8ba018816df69734bed1c197d0c3b7f2 diff --git a/testsuite/server/ipc.exp b/testsuite/server/ipc.exp deleted file mode 100644 index ae0688872a8..00000000000 --- 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