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

	* lib/monkey.exp (monkey_test): Correct logic thinko when deciding
	whether or not to output the finishing time.

diff --git a/sid/component/testsuite/ChangeLog b/sid/component/testsuite/ChangeLog
index 14a4f52..20f8f39 100644 (file)
--- a/sid/component/testsuite/ChangeLog
+++ b/sid/component/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-22  Ben Elliston  <bje@redhat.com>
+
+       * lib/monkey.exp (monkey_test): Correct logic thinko when deciding
+       whether or not to output the finishing time.
+
 2001-06-21  Ben Elliston  <bje@redhat.com>
 
        * sidcomp.cache/cache.exp: Test for the existence of "hit-latency"

diff --git a/sid/component/testsuite/lib/monkey.exp b/sid/component/testsuite/lib/monkey.exp
index 4578fc0..6acbbb6 100644 (file)
--- a/sid/component/testsuite/lib/monkey.exp
+++ b/sid/component/testsuite/lib/monkey.exp
@@ -100,7 +100,7 @@ proc monkey_test {type sym lib {iterations 30s}} {
            d { set finishtime [expr 3600 * 24 * $units + $now] }
            default { error "unknown unit of time in $iterations" }
        }
-        if {[clock seconds] - $finishtime > 60} {
+       if [expr $finishtime - [clock seconds] > 60] then {
            note "Testing $type until [clock format $finishtime]"
        }
        while {[clock seconds] < $finishtime} {