blob: ae0688872a8553f6a85b398cb7fc7be5cae6b6cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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
|
