File: ipc.exp

package info (click to toggle)
samba 3.0.24-6etch10
  • links: PTS
  • area: main
  • in suites: etch
  • size: 49,836 kB
  • ctags: 44,390
  • sloc: ansic: 335,711; sh: 8,133; perl: 7,045; makefile: 3,107; python: 2,370; exp: 1,147; yacc: 881; awk: 486; csh: 58; sed: 45
file content (44 lines) | stat: -rw-r--r-- 705 bytes parent folder | download | duplicates (9) 
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