blob: 77e7297776bdc8c88315d5545247e38bbc1522c8 (
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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"
|
