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     ! 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: