2002-01-08 Ben Elliston <bje@redhat.com>

	* lib/monkey.exp (monkey_stop): Delete monkey.conf on success.

diff --git a/sid/component/testsuite/ChangeLog b/sid/component/testsuite/ChangeLog
index 2616af0..284fea0 100644 (file)
--- a/sid/component/testsuite/ChangeLog
+++ b/sid/component/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-08  Ben Elliston  <bje@redhat.com>
+
+       * lib/monkey.exp (monkey_stop): Delete monkey.conf on success.
+
 2001-12-11  Ben Elliston  <bje@redhat.com>
 
        * 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 c1f7d78..7aaae5f 100644 (file)
--- 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" }
 }