summaryrefslogtreecommitdiff
path: root/test/config/default.exp
blob: 1eb47a2c685630ff448fd732db26061ecc93013b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# Set default expect fallback routines
expect_after {
    eof {
        if {[info exists test]} {
            fail "$test at eof" 
        } elseif {[info level] > 0} {
            fail "[info level 1] at eof" 
        } else {
            fail "eof"
        }   
    }   
    timeout {
        if {[info exists test]} {
            fail "$test at timeout" 
        } elseif {[info level] > 0} {
            fail "[info level 1] at timeout" 
        } else {
            fail "timeout" 
        }   
    }   
}