From 7938bd829dfd82c40b35d536b5913e666c1454d2 Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Tue, 27 May 2008 17:40:00 -0400
Subject: testsuite: use catch{close}catch{wait} to ensure child process
 pipe/zombie cleanup

---
 testsuite/systemtap.context/args.tcl      | 3 +--
 testsuite/systemtap.context/backtrace.tcl | 4 +---
 testsuite/systemtap.context/pid.tcl       | 3 +--
 3 files changed, 3 insertions(+), 7 deletions(-)

(limited to 'testsuite/systemtap.context')

diff --git a/testsuite/systemtap.context/args.tcl b/testsuite/systemtap.context/args.tcl
index 7cb79cdf..3a1ecb23 100644
--- a/testsuite/systemtap.context/args.tcl
+++ b/testsuite/systemtap.context/args.tcl
@@ -54,5 +54,4 @@ expect {
     eof {fail "function arguments: unexpected timeout"}
 }
 exec kill -INT -[exp_pid]
-close
-wait
+closewait
diff --git a/testsuite/systemtap.context/backtrace.tcl b/testsuite/systemtap.context/backtrace.tcl
index 6c8aee40..f9e14b31 100644
--- a/testsuite/systemtap.context/backtrace.tcl
+++ b/testsuite/systemtap.context/backtrace.tcl
@@ -163,6 +163,4 @@ if {$m6 == 5} {
 }
 
 
-
-close
-wait
+closewait
diff --git a/testsuite/systemtap.context/pid.tcl b/testsuite/systemtap.context/pid.tcl
index a2c091f1..f9dffba7 100644
--- a/testsuite/systemtap.context/pid.tcl
+++ b/testsuite/systemtap.context/pid.tcl
@@ -28,5 +28,4 @@ expect {
     timeout {fail "all pid tests - timeout"}
     eof {fail "all pid tests - unexpected EOF"}
 }
-catch {close}
-wait
+closewait
-- 
cgit