From 1dda7b878dc1b35a38a6dc5a78bddd5e43b41c90 Mon Sep 17 00:00:00 2001 From: bje Date: Tue, 8 Jan 2002 01:24:56 +0000 Subject: [PATCH] 2002-01-08 Ben Elliston * lib/monkey.exp (monkey_stop): Delete monkey.conf on success. --- sid/component/testsuite/ChangeLog | 4 ++++ sid/component/testsuite/lib/monkey.exp | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/sid/component/testsuite/ChangeLog b/sid/component/testsuite/ChangeLog index 2616af0cf0..284fea08bf 100644 --- a/sid/component/testsuite/ChangeLog +++ b/sid/component/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-01-08 Ben Elliston + + * lib/monkey.exp (monkey_stop): Delete monkey.conf on success. + 2001-12-11 Ben Elliston * lib/cpudefs.exp (run-one-sid-test): Delete object code if the diff --git a/sid/component/testsuite/lib/monkey.exp b/sid/component/testsuite/lib/monkey.exp index c1f7d7878a..7aaae5f7ec 100644 --- a/sid/component/testsuite/lib/monkey.exp +++ b/sid/component/testsuite/lib/monkey.exp @@ -183,7 +183,12 @@ proc monkey_start {type sym lib} { } proc monkey_stop {} { + global exit_status + sid_stop + # zap temp file if tests were successful + global exit_status + if {$exit_status == "0"} then { file delete "monkey.conf" } } -- 2.11.0