Annotation of embedaddon/quagga/tests/config/unix.exp, revision 1.1.1.1
1.1 misho 1:
2: # every test should always be run and always return some status.
3: # so, if we lose sync with a multi-test program, aborted will be used
4: # to flag the remainder of the tests as untested.
5: #set aborted 0
6:
7: # only match with color codes since "failed" / "OK" might otherwise
8: # be part of the output...
9: #set color 1
10:
11: set xfail 0
12:
13: proc onesimple { test_name match } {
14: global verbose
15: global aborted
16: global testprefix
17: if { $aborted > 0 } {
18: untested "$testprefix$test_name"
19: return
20: }
21: if { $verbose > 0 } {
22: send_user "$testprefix$test_name$note\n"
23: }
24: expect {
25: "$match" { pass "$testprefix$test_name"; }
26: eof { fail "$testprefix$test_name"; set aborted 1; }
27: timeout { unresolved "$testprefix$test_name"; set aborted 1; }
28: }
29: }
30:
31: proc onetest { test_name note start } {
32: global aborted
33: global testprefix
34: global verbose
35: global color
36: global xfail
37:
38: if { $aborted > 0 } {
39: untested "$testprefix$test_name"
40: return
41: }
42:
43: if { $verbose > 0 } {
44: send_user "$testprefix$test_name$note\n"
45: }
46: expect {
47: "$start" { }
48:
49: eof { unresolved "$testprefix$test_name"; set aborted 1; }
50: timeout { unresolved "$testprefix$test_name"; set aborted 1; }
51: }
52:
53: if { $aborted > 0 } {
54: send_user "sync failed: $testprefix$test_name$note -- $testprefix aborted!\n"
55: return
56: }
57:
58: if { $color } {
59: set pat "(32mOK|31mfailed)"
60: } else {
61: set pat "(OK|failed)"
62: }
63: expect {
64: # need this because otherwise expect will skip over a "failed" and
65: # grab the next "OK" (or the other way around)
66: -re "$pat" {
67: if { "$expect_out(0,string)" == "32mOK" || "$expect_out(0,string)" == "OK" } {
68: pass "$testprefix$test_name"
69: } else {
70: if { $xfail } {
71: xfail "$testprefix$test_name"
72: } else {
73: fail "$testprefix$test_name"
74: }
75: }
76: return
77: }
78:
79: eof { unresolved "$testprefix$test_name"; set aborted 1; }
80: timeout { unresolved "$testprefix$test_name"; set aborted 1; }
81: }
82:
83: if { $aborted > 0 } {
84: send_user "failed: $testprefix$test_name$note -- $testprefix aborted!\n"
85: return
86: }
87: }
88:
89: proc headerline { line } {
90: global aborted
91: if { $aborted > 0 } { return; }
92: expect {
93: $line { return; }
94: eof { send_user "numbering mismatch!\n"; set aborted 1; }
95: timeout { send_user "numbering mismatch!\n"; set aborted 1; }
96: }
97: }
98:
99: proc simpletest { start } {
100: onetest "$start" "" "$start"
101: }
102:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>