Return to unix.exp CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tests / config

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: