1 files changed, 10 insertions, 24 deletions
diff --git a/TAO/examples/Simple/bank/run_test.pl b/TAO/examples/Simple/bank/run_test.pl
index e2055bd5e04..7fcb67ec476 100755
--- a/TAO/examples/Simple/bank/run_test.pl
+++ b/TAO/examples/Simple/bank/run_test.pl
@@ -8,30 +8,16 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 use lib "../../../../bin";
 require ACEutils;
 require Process;
-$status = 0;
-
-$iorfile = "bank.ior";
-
-$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-o $iorfile ");
-
-if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
-  print STDERR "ERROR: timedout waiting for file <$iorfile>\n";
-  $SV->Kill (); $SV->TimedWait (1);
-  exit 1;
-}
-
-$client = Process::Create($EXEPREFIX."client$EXE_EXT","-f $iorfile");
-if ($client->TimedWait (60) == -1) {
-  print STDERR "ERROR: the client timedout\n";
-  $status = 1;
-  $client->Kill (); $client->TimedWait (1);
-}
-  
-$SV->Terminate (); if ($SV->TimedWait (5) == -1) {
-  print STDERR "ERROR: cannot terminate the server\n";
-  $SV->Kill (); $SV->TimedWait (1);
-  $status = 1;
-}
+
+$iorfile = "grid.ior";
+
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-o $iorfile ");
+
+ACE::waitforfile ($iorfile);
+
+$status  = system ($EXEPREFIX."client$Process::EXE_EXT -f $iorfile");
+
+$SV->Kill (); $SV->Wait ();
 
 unlink $iorfile;