Return to unix.exp CVS log

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

quagga 1.0.20160315

    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: