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/syscall.exp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'testsuite/systemtap.syscall/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