From 3d1f0c8fa10174815920ed3568bd816bd488f62f Mon Sep 17 00:00:00 2001
From: hunt <hunt>
Date: Tue, 10 Apr 2007 14:37:44 +0000
Subject: 2007-04-10  Martin Hunt  <hunt@redhat.com>

	* syscall.exp (test_procedure): Remove
	test binaries when done.
---
 testsuite/systemtap.syscall/ChangeLog   | 5 +++++
 testsuite/systemtap.syscall/syscall.exp | 2 ++
 2 files changed, 7 insertions(+)

(limited to 'testsuite')

diff --git a/testsuite/systemtap.syscall/ChangeLog b/testsuite/systemtap.syscall/ChangeLog
index 9fb5274f..0d95eaab 100644
--- a/testsuite/systemtap.syscall/ChangeLog
+++ b/testsuite/systemtap.syscall/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-10  Martin Hunt  <hunt@redhat.com>
+
+	* syscall.exp (test_procedure): Remove 
+	test binaries when done.
+
 2007-01-17  Martin Hunt  <hunt@redhat.com>
 
 	* test.exp: Renamed to syscall.exp.
diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
index eb925a29..a418ac9e 100644
--- a/testsuite/systemtap.syscall/syscall.exp
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -21,6 +21,7 @@ proc test_procedure {} {
 	    fail "$file"
 	    send_log "$res\n"
 	}
+	catch {exec rm -f $wd/$file}
     }
     
     if {$::tcl_platform(machine) == "x86_64" || 
@@ -41,6 +42,7 @@ proc test_procedure {} {
 		fail "32-bit $file"
 		send_log "$res\n"
 	    }
+	    catch {exec rm -f $wd/$file}
 	}
     }    
 }
-- 
cgit