2001-08-22 Ben Elliston <bje@redhat.com>

	* config/default.exp (sid_assert): New proc.

diff --git a/sid/component/testsuite/ChangeLog b/sid/component/testsuite/ChangeLog
index d9467a8..dbf9d1a 100644 (file)
--- a/sid/component/testsuite/ChangeLog
+++ b/sid/component/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-22  Ben Elliston  <bje@redhat.com>
+
+       * config/default.exp (sid_assert): New proc.
+
 2001-08-02  John Healy  <jhealy@redhat.com>
 
        * lib/cpudefs.exp (run-sid-tests-raw): Renamed loader to cpu-loader.

diff --git a/sid/component/testsuite/config/default.exp b/sid/component/testsuite/config/default.exp
index 9917e1a..93b6a18 100644 (file)
--- a/sid/component/testsuite/config/default.exp
+++ b/sid/component/testsuite/config/default.exp
@@ -191,6 +191,12 @@ proc sid_cmd { cmd } {
     return $decoded
 }
 
+# assert a general predicate.
+# pass or fail the DejaGnu test based on the result.
+proc sid_assert {predicate} {
+    global test
+    if $predicate { pass $test } else { fail $test }
+}
 
 # call a command; ignore result (but assert that it's not an ERROR.)
 proc sid_assert_success {cmd} {