X-Git-Url: https://git.sommitrealweird.co.uk/quagga-debian.git/blobdiff_plain/191fe7a34582876de01d3e62c2a6587baf59a283..064d9c633233495319bcaa66335ea3d24c0bd7a1:/tests/config/unix.exp

diff --git a/tests/config/unix.exp b/tests/config/unix.exp
deleted file mode 100644
index 2f6bcea..0000000
--- a/tests/config/unix.exp
+++ /dev/null
@@ -1,102 +0,0 @@
-
-# every test should always be run and always return some status.
-# so, if we lose sync with a multi-test program, aborted will be used
-# to flag the remainder of the tests as untested.
-#set aborted 0
-
-# only match with color codes since "failed" / "OK" might otherwise
-# be part of the output...
-#set color 1
-
-set xfail 0
-
-proc onesimple { test_name match } {
-	global verbose
-	global aborted
-	global testprefix
-	if { $aborted > 0 } {
-		untested "$testprefix$test_name"
-		return
-	}
-	if { $verbose > 0 } {
-		send_user "$testprefix$test_name$note\n"
-	}
-	expect {
-		"$match"	{ pass "$testprefix$test_name"; }
-		eof		{ fail "$testprefix$test_name"; set aborted 1; }
-		timeout		{ unresolved "$testprefix$test_name"; set aborted 1; }
-	}
-}
-
-proc onetest { test_name note start } {
-	global aborted
-	global testprefix
-	global verbose
-	global color
-	global xfail
-
-	if { $aborted > 0 } {
-		untested "$testprefix$test_name"
-		return
-	}
-
-	if { $verbose > 0 } {
-		send_user "$testprefix$test_name$note\n"
-	}
-	expect {
-		"$start"	{ }
-
-		eof	{ unresolved "$testprefix$test_name"; set aborted 1; }
-		timeout	{ unresolved "$testprefix$test_name"; set aborted 1; }
-	}
-
-	if { $aborted > 0 } {
-		send_user "sync failed: $testprefix$test_name$note -- $testprefix aborted!\n"
-		return
-	}
-
-	if { $color } {
-		set pat "(32mOK|31mfailed)"
-	} else {
-		set pat "(OK|failed)"
-	}
-	expect {
-		# need this because otherwise expect will skip over a "failed" and
-		# grab the next "OK" (or the other way around)
-		-re "$pat"  {
-			if { "$expect_out(0,string)" == "32mOK" || "$expect_out(0,string)" == "OK" } {
-				pass "$testprefix$test_name"
-			} else {
-				if { $xfail } {
-					xfail "$testprefix$test_name"
-				} else {
-					fail "$testprefix$test_name"
-				}
-			}
-			return
-		}
-
-		eof	{ unresolved "$testprefix$test_name"; set aborted 1; }
-		timeout	{ unresolved "$testprefix$test_name"; set aborted 1; }
-	}
-
-	if { $aborted > 0 } {
-		send_user "failed: $testprefix$test_name$note -- $testprefix aborted!\n"
-		return
-	}
-}
-
-proc headerline { line } {
-	global aborted
-	if { $aborted > 0 } { return; }
-	expect {
-		$line	{ return; }
-		eof	{ send_user "numbering mismatch!\n"; set aborted 1; }
-		timeout	{ send_user "numbering mismatch!\n"; set aborted 1; }
-	}
-}
-
-proc simpletest { start } {
-	onetest "$start" "" "$start"
-}
-