From 7938bd829dfd82c40b35d536b5913e666c1454d2 Mon Sep 17 00:00:00 2001 From: "Frank Ch. Eigler" 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.samples/gtod.exp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'testsuite/systemtap.samples/gtod.exp') diff --git a/testsuite/systemtap.samples/gtod.exp b/testsuite/systemtap.samples/gtod.exp index a8f3c9d6..97aaca83 100644 --- a/testsuite/systemtap.samples/gtod.exp +++ b/testsuite/systemtap.samples/gtod.exp @@ -16,7 +16,7 @@ expect { timeout { fail "$test (timeout)" } eof { } } -wait +closewait #10ms interval (check timer drift in middle range) spawn $srcdir/$subdir/gtod.sh $srcdir/$subdir/gtod.stp $wd/gtod 10000 expect { @@ -25,7 +25,7 @@ expect { timeout { fail "$test (timeout)" } eof { } } -wait +closewait #100ms interval (calm down processors and CPU freq might be changed) spawn $srcdir/$subdir/gtod.sh $srcdir/$subdir/gtod.stp $wd/gtod 100000 expect { @@ -34,7 +34,7 @@ expect { timeout { fail "$test (timeout)" } eof { } } -wait +closewait exec rm -f $wd/gtod if {$ok == 300} { pass "$test ($ok)" } { fail "$test ($ok)" } -- cgit