1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-24 21:34:56 +03:00
samba-mirror/testsuite/lib/smbclient.exp
Tim Potter 65fd1be152 Fix error string.
(This used to be commit 73b237e639)
2000-12-12 06:05:13 +00:00

55 lines
1.0 KiB
Plaintext

#
# Utilities for driving smbclient
#
# Variables
set smb_prompt "smb: \\\\>"
# Spawn smbclient and wait for a prompt
proc spawn_smbclient { args } {
set result 0
global smb_prompt
global spawn_id
# Spawn smbclient
spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2] \
[lindex $args 3] [lindex $args 4] [lindex $args 5] \
[lindex $args 6]
# Wait for prompt
expect {
$smb_prompt { set result 1 }
timeout { perror "timed out spawning smbclient" }
eof { perror "end of file spawning smbclient" }
}
return $result
}
# Run a command and wait for a prompt
proc do_smbclient { args } {
set action [lindex $args 0]
set description [lindex $args 1]
global smb_prompt
# Send command
verbose $action
send $action
expect {
$smb_prompt {}
timeout { perror "timed out $description"; return -1}
eof { perror "end of file $description"; return -1 }
}
verbose $expect_out(buffer)
return $expect_out(buffer)
}