source: branches/samba-3.0/testsuite/server/rename.exp@ 1034

#
# 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"