From c096f3a51950671d6edd75af5a39625b9b08cd06 Mon Sep 17 00:00:00 2001 From: bje Date: Fri, 22 Jun 2001 05:02:46 +0000 Subject: [PATCH] 2001-06-22 Ben Elliston * lib/monkey.exp (monkey_test): Correct logic thinko when deciding whether or not to output the finishing time. --- sid/component/testsuite/ChangeLog | 5 +++++ sid/component/testsuite/lib/monkey.exp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/sid/component/testsuite/ChangeLog b/sid/component/testsuite/ChangeLog index 14a4f52bb5..20f8f39703 100644 --- a/sid/component/testsuite/ChangeLog +++ b/sid/component/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2001-06-22 Ben Elliston + + * lib/monkey.exp (monkey_test): Correct logic thinko when deciding + whether or not to output the finishing time. + 2001-06-21 Ben Elliston * 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 4578fc07f4..6acbbb6201 100644 --- 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} { -- 2.11.0