Sun Mar 4 19:31:16 2001 Darrell Brunsch <brunsch@uci.edu>

1 files changed, 4 insertions, 15 deletions

diff --git a/examples/Export/run_test.pl b/examples/Export/run_test.pl
index d88d4c72bea..7c84078d8ff 100755
--- a/examples/Export/run_test.pl
+++ b/examples/Export/run_test.pl
@@ -6,23 +6,12 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "../../bin";
+use PerlACE::Run_Test;
 
-require ACEutils;
-use Cwd;
+$TEST = new PerlACE::Process ("test");
 
-$cwd = getcwd();
-$test_exe = "$cwd$DIR_SEPARATOR"."test".$EXE_EXT;
+$status = $TEST->SpawnWaitKill (20);
 
-$TEST = Process::Create ($test_exe, "");
-
-$status = $TEST->TimedWait (20);
-if ($status == -1) {
-    print STDERR "ERROR: test timed out\n";
-    $status = 1;
-    $TEST->Kill (); $TEST->TimedWait (1);
-}
-elsif ($status > 0) {
-    print STDERR "ERROR: test failed\n";
-}
+$status = 1 if ($status < 0);
 
 exit $status;