source: branches/samba-3.0/testsuite/server/masktest.exp@ 1036

#
# Test various things using the masktest program
#

# Initialisation

load_lib env-single.exp

set timeout 10

# Test each wildcard individually, then all together at once

set testlist {{"abc" "<"} {"abc" ">"} {"abc" "\""} {"abc" "?"} {"abc" "*"} \
        {"abc" "."} {"abc" "<>\"?*."}}

foreach { test } $testlist {

    set got_output 0
    set fail 0

    # Spawn masktest

    spawn bin/masktest //$server/$share -U $user -n 1000 -a \
            -f [lindex $test 0] -m [concat [lindex $test 0] [lindex $test 1]]
    
    # Check output

    while 1 {
        expect {
            -re "(...) (...) \[0-9\]+ mask=" { 
                if { $expect_out(1,string) != $expect_out(2,string) } {
                    fail "masktest [lindex $test 1]"
                    puts $expect_out(0,string);
                    set fail 1
                    break;
                } else {
                    set got_output 1
                }
            }
            eof    { break }
        }
    }

    # Produce result

    set testname "[lindex $test 0] [lindex $test 1]"
    
    if {$got_output} {
        if {$fail} { 
            fail "masktest $testname"
        } else {
            pass "masktest $testname"
        }
    } else {
        perror "no output seen for test $testname"
    }
}