ChangeLogTag: Tue Aug 28 08:22:07 2001 Chad Elliott <elliott_c@ociweb.com>

30 files changed, 94 insertions, 39 deletions

diff --git a/TAO/ChangeLogs/ChangeLog-02a b/TAO/ChangeLogs/ChangeLog-02a
index c3800b63f05..05c326b7705 100644
--- a/TAO/ChangeLogs/ChangeLog-02a
+++ b/TAO/ChangeLogs/ChangeLog-02a
@@ -1,3 +1,37 @@
+Tue Aug 28 08:22:07 2001  Chad Elliott  <elliott_c@ociweb.com>
+
+        * tests/AMI_Buffering/run_test.pl:
+        * tests/Big_Oneways/run_test.pl:
+        * tests/Big_Request_Muxing/run_test.pl:
+        * tests/Big_Twoways/run_test.pl:
+        * tests/Blocking_Sync_None/run_test.pl:
+        * tests/Client_Leaks/run_test.pl:
+        * tests/Crash_On_Write/run_test.pl:
+        * tests/Crashed_Callback/run_test.pl:
+        * tests/Exposed_Policies/run_test.pl:
+        * tests/Hello/run_test.pl:
+        * tests/MT_Server/run_test.pl:
+        * tests/MT_Timeout/run_test.pl:
+        * tests/Muxing/run_test.pl:
+        * tests/Oneway_Buffering/run_buffer_size.pl:
+        * tests/Oneway_Buffering/run_message_count.pl:
+        * tests/Oneway_Buffering/run_test.pl:
+        * tests/Oneway_Buffering/run_timeout.pl:
+        * tests/Param_Test/run_test.pl:
+        * tests/RTCORBA/Server_Declared/run_test.pl:
+        * tests/RTCORBA/Server_Protocol/run_test.pl:
+        * tests/RTCORBA/Thread_Pool/run_test.pl:
+        * tests/Reliable_Oneways/run_sync_none.pl:
+        * tests/Reliable_Oneways/run_sync_with_server.pl:
+        * tests/Reliable_Oneways/run_sync_with_target.pl:
+        * tests/Reliable_Oneways/run_sync_with_transport.pl:
+        * tests/Reliable_Oneways/run_test.pl:
+        * tests/Server_Leaks/run_test.pl:
+        * tests/Single_Read/run_test.pl:
+        * tests/Timed_Buffered_Oneways/run_test.pl:
+
+          Very minor bug fixes and consistency modifications.
+
 Mon Aug 27 07:36:12 2001  Johnny Willemsen <jwillemsen@remedy.nl>
 
         * tests/Makefile.bor: added new File_IO test
@@ -9,38 +43,38 @@ Mon Aug 27 07:36:12 2001  Johnny Willemsen <jwillemsen@remedy.nl>
 
 Sun Aug 26 08:20:30 2001  Balachandran Natarajan  <bala@cs.wustl.edu>
 
-	* orbsvcs/performance-tests/EC_Federated_Latency/Servant_var.inl:
-	  Removed the default value of the argument. This should fix
-	  warnings in GCC 3.0 builds.
+        * orbsvcs/performance-tests/EC_Federated_Latency/Servant_var.inl:
+          Removed the default value of the argument. This should fix
+          warnings in GCC 3.0 builds.
 
 Sat Aug 25 23:38:26 2001  Balachandran Natarajan  <bala@cs.wustl.edu>
 
         * orbsvcs/performance-tests/EC_Federated_Latency/server.cpp:
-	* orbsvcs/performance-tests/EC_Federated_Latency/client.cpp:
-	* orbsvcs/performance-tests/EC_Latency/server.cpp:
-	* orbsvcs/performance-tests/EC_Latency/client.cpp: #included
-	  "tao/Messaging.h". Fixes build problems in no interceptors
-	  build.
+        * orbsvcs/performance-tests/EC_Federated_Latency/client.cpp:
+        * orbsvcs/performance-tests/EC_Latency/server.cpp:
+        * orbsvcs/performance-tests/EC_Latency/client.cpp: #included
+          "tao/Messaging.h". Fixes build problems in no interceptors
+          build.
 
 Sat Aug 25 09:49:06 2001  Balachandran Natarajan  <bala@cs.wustl.edu>
 
-	* tests/File_IO/server.dsp:
-	* tests/File_IO/client.dsp: Fixed the Win32 builds.
+        * tests/File_IO/server.dsp:
+        * tests/File_IO/client.dsp: Fixed the Win32 builds.
 
 Sat Aug 25 09:04:06 2001  Balachandran Natarajan  <bala@cs.wustl.edu>
 
         * orbsvcs/performance-tests/EC_Federated_Latency/Makefile:
-	* orbsvcs/performance-tests/EC_Latency/Makefile: Will not build
-	  if corba_messaging == 0.
+        * orbsvcs/performance-tests/EC_Latency/Makefile: Will not build
+          if corba_messaging == 0.
 
 Fri Aug 24 23:16:59 2001  Balachandran Natarajan  <bala@cs.wustl.edu>
 
-	* tests/File_IO/File.idl:
-	* tests/File_IO/File_i.cpp:
-	* tests/File_IO/File_i.h:
-	* tests/File_IO/client.cpp
-	* tests/File_IO/run_test.pl:
-	* tests/File_IO/server.cpp: Fixed Fuzz errors.
+        * tests/File_IO/File.idl:
+        * tests/File_IO/File_i.cpp:
+        * tests/File_IO/File_i.h:
+        * tests/File_IO/client.cpp
+        * tests/File_IO/run_test.pl:
+        * tests/File_IO/server.cpp: Fixed Fuzz errors.
 
 Fri Aug 24 19:20:00 2001  Craig Rodrigues  <crodrigu@bbn.com>
 
diff --git a/TAO/tests/AMI_Buffering/run_test.pl b/TAO/tests/AMI_Buffering/run_test.pl
index 30593090375..f9d4e94f1e3 100755
--- a/TAO/tests/AMI_Buffering/run_test.pl
+++ b/TAO/tests/AMI_Buffering/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $admin_iorfile = PerlACE::LocalFile ("admin.ior");
 $server_iorfile = PerlACE::LocalFile ("server.ior");
+$status = 0;
 
 foreach $test_type ("-c", "-t", "-b") {
   unlink $admin_iorfile;
diff --git a/TAO/tests/Big_Oneways/run_test.pl b/TAO/tests/Big_Oneways/run_test.pl
index a272f7d976d..7319e31d4f9 100755
--- a/TAO/tests/Big_Oneways/run_test.pl
+++ b/TAO/tests/Big_Oneways/run_test.pl
@@ -26,6 +26,7 @@ if (defined $opt_b) {
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 
+$status = 0;
 unlink $iorfile;
 $SV  = new PerlACE::Process ("server", "-o $iorfile $server_args");
 $CL1 = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Big_Request_Muxing/run_test.pl b/TAO/tests/Big_Request_Muxing/run_test.pl
index 8c7fea7d379..9e28cb80d31 100755
--- a/TAO/tests/Big_Request_Muxing/run_test.pl
+++ b/TAO/tests/Big_Request_Muxing/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV  = new PerlACE::Process ("server", "-o $iorfile");
 $CL1 = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Big_Twoways/run_test.pl b/TAO/tests/Big_Twoways/run_test.pl
index 7cbfa22085d..e8fbdd2c8ce 100755
--- a/TAO/tests/Big_Twoways/run_test.pl
+++ b/TAO/tests/Big_Twoways/run_test.pl
@@ -26,6 +26,7 @@ if (defined $opt_b) {
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 
+$status = 0;
 unlink $iorfile;
 $SV  = new PerlACE::Process ("server", "-o $iorfile $server_args");
 $CL1 = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Blocking_Sync_None/run_test.pl b/TAO/tests/Blocking_Sync_None/run_test.pl
index c1938d45d70..b6ea9d5230b 100755
--- a/TAO/tests/Blocking_Sync_None/run_test.pl
+++ b/TAO/tests/Blocking_Sync_None/run_test.pl
@@ -11,6 +11,8 @@ use PerlACE::Run_Test;
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
 
+$status = 0;
+
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
 
diff --git a/TAO/tests/Client_Leaks/run_test.pl b/TAO/tests/Client_Leaks/run_test.pl
index 4e6f814bf85..877d66779df 100755
--- a/TAO/tests/Client_Leaks/run_test.pl
+++ b/TAO/tests/Client_Leaks/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Crash_On_Write/run_test.pl b/TAO/tests/Crash_On_Write/run_test.pl
index 556cc2f7bab..d3c942c30ac 100755
--- a/TAO/tests/Crash_On_Write/run_test.pl
+++ b/TAO/tests/Crash_On_Write/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV  = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
@@ -22,7 +23,7 @@ if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
     exit 1;
 } 
 
-$CL->SpawnWaitKill (60);
+$client = $CL->SpawnWaitKill (60);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
diff --git a/TAO/tests/Crashed_Callback/run_test.pl b/TAO/tests/Crashed_Callback/run_test.pl
index 3a4c0757721..d6717422f05 100755
--- a/TAO/tests/Crashed_Callback/run_test.pl
+++ b/TAO/tests/Crashed_Callback/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV  = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
@@ -22,7 +23,7 @@ if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
     exit 1;
 } 
 
-$CL->SpawnWaitKill (60);
+$client = $CL->SpawnWaitKill (60);
 
 # The client crashes, therefore it normally exists with status != 0,
 # but a status of -1 would be a serious error.
diff --git a/TAO/tests/Exposed_Policies/run_test.pl b/TAO/tests/Exposed_Policies/run_test.pl
index ebaa73ae03d..877b552791a 100755
--- a/TAO/tests/Exposed_Policies/run_test.pl
+++ b/TAO/tests/Exposed_Policies/run_test.pl
@@ -47,7 +47,7 @@ $status = 0;
 $SV->Spawn ();
 
 if (PerlACE::waitforfile_timed ($base_ior_file, 30) == -1) {
-    print STDERR "ERROR: cannot find file <$iorfile>\n";
+    print STDERR "ERROR: cannot find file <$base_ior_file>\n";
     $SV->Kill ();
     exit 1;
 }
diff --git a/TAO/tests/Hello/run_test.pl b/TAO/tests/Hello/run_test.pl
index f58aec1adda..69805391354 100755
--- a/TAO/tests/Hello/run_test.pl
+++ b/TAO/tests/Hello/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/MT_Server/run_test.pl b/TAO/tests/MT_Server/run_test.pl
index cac09dd3d07..185af771d9c 100755
--- a/TAO/tests/MT_Server/run_test.pl
+++ b/TAO/tests/MT_Server/run_test.pl
@@ -37,34 +37,34 @@ $client = $CL1->WaitKill (60);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 $client = $CL2->WaitKill (30);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 
 $client = $CL3->WaitKill (30);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 
 $client = $CLS->SpawnWaitKill (60);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 
 $server = $SV->WaitKill (5);
 
 if ($server != 0) {
     print STDERR "ERROR: server returned $server\n";
-    $status = 1
+    $status = 1;
 }
 
 unlink $iorfile;
diff --git a/TAO/tests/MT_Timeout/run_test.pl b/TAO/tests/MT_Timeout/run_test.pl
index 83c6cc42967..9a5efa13651 100755
--- a/TAO/tests/MT_Timeout/run_test.pl
+++ b/TAO/tests/MT_Timeout/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Muxing/run_test.pl b/TAO/tests/Muxing/run_test.pl
index a9031c6e821..a96127632e8 100755
--- a/TAO/tests/Muxing/run_test.pl
+++ b/TAO/tests/Muxing/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV  = new PerlACE::Process ("server", "-o $iorfile");
 $CL1 = new PerlACE::Process ("client", " -k file://$iorfile");
diff --git a/TAO/tests/Oneway_Buffering/run_buffer_size.pl b/TAO/tests/Oneway_Buffering/run_buffer_size.pl
index d753ab02cf4..831719aa55f 100755
--- a/TAO/tests/Oneway_Buffering/run_buffer_size.pl
+++ b/TAO/tests/Oneway_Buffering/run_buffer_size.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $admin_iorfile = PerlACE::LocalFile ("admin.ior");
 $server_iorfile = PerlACE::LocalFile ("server.ior");
+$status = 0;
 
 unlink $admin_iorfile;
 unlink $server_iorfile;
diff --git a/TAO/tests/Oneway_Buffering/run_message_count.pl b/TAO/tests/Oneway_Buffering/run_message_count.pl
index 8d8f727425b..14c14b99f81 100755
--- a/TAO/tests/Oneway_Buffering/run_message_count.pl
+++ b/TAO/tests/Oneway_Buffering/run_message_count.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $admin_iorfile = PerlACE::LocalFile ("admin.ior");
 $server_iorfile = PerlACE::LocalFile ("server.ior");
+$status = 0;
 
 unlink $admin_iorfile;
 unlink $server_iorfile;
diff --git a/TAO/tests/Oneway_Buffering/run_test.pl b/TAO/tests/Oneway_Buffering/run_test.pl
index 99a64dd9dd5..c753bc938c8 100755
--- a/TAO/tests/Oneway_Buffering/run_test.pl
+++ b/TAO/tests/Oneway_Buffering/run_test.pl
@@ -10,13 +10,15 @@ use PerlACE::Run_Test;
 
 $admin_iorfile = PerlACE::LocalFile ("admin.ior");
 $server_iorfile = PerlACE::LocalFile ("server.ior");
+$status = 0;
 
 foreach $test_type ("-c", "-t", "-b", "-r") {
   unlink $admin_iorfile;
   unlink $server_iorfile;
 
   my $AD = new PerlACE::Process ("admin", "-o $admin_iorfile");
-  my $SV = new PerlACE::Process ("server", "-o $server_iorfile");
+  my $SV = new PerlACE::Process ("server", "-o $server_iorfile " .
+                                           "-k file://$admin_iorfile");
   my $CL = new PerlACE::Process ("client",
 				 " -k file://$server_iorfile "
 				 ."-a file://$admin_iorfile "
diff --git a/TAO/tests/Oneway_Buffering/run_timeout.pl b/TAO/tests/Oneway_Buffering/run_timeout.pl
index ccc8b4687ed..4e0c03c8b7b 100755
--- a/TAO/tests/Oneway_Buffering/run_timeout.pl
+++ b/TAO/tests/Oneway_Buffering/run_timeout.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $admin_iorfile = PerlACE::LocalFile ("admin.ior");
 $server_iorfile = PerlACE::LocalFile ("server.ior");
+$status = 0;
 
 unlink $admin_iorfile;
 unlink $server_iorfile;
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl
index df5815fec66..20a1164bd90 100755
--- a/TAO/tests/Param_Test/run_test.pl
+++ b/TAO/tests/Param_Test/run_test.pl
@@ -12,9 +12,7 @@ $iorfile = PerlACE::LocalFile ("server.ior");
 
 $invocation = "sii";
 $num = 5;
-$other = "";
 $debug = "";
-$type = "";
 $status = 0;
 
 unlink $iorfile;
@@ -63,9 +61,6 @@ for ($i = 0; $i <= $#ARGV; $i++) {
       $invocation = $ARGV[$i + 1];
       $i++;
     }
-    else {
-        $other .= $ARGV[$i];
-    }
 }
 
 $SV = new PerlACE::Process ("server", "$debug -o $iorfile");
diff --git a/TAO/tests/RTCORBA/Server_Declared/run_test.pl b/TAO/tests/RTCORBA/Server_Declared/run_test.pl
index e13efcd664f..48c36011841 100755
--- a/TAO/tests/RTCORBA/Server_Declared/run_test.pl
+++ b/TAO/tests/RTCORBA/Server_Declared/run_test.pl
@@ -13,7 +13,7 @@ $iorfile2 = PerlACE::LocalFile ("test2.ior");
 
 unlink $iorfile1;
 unlink $iorfile2;
-
+$status = 0;
 
 $server_conf = PerlACE::LocalFile ("server.conf");
 
diff --git a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
index c50cc581cb1..f742cf024fa 100755
--- a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
+++ b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
@@ -11,6 +11,7 @@ use PerlACE::Run_Test;
 $iorfile = PerlACE::LocalFile ("test.ior");
 
 unlink $iorfile;
+$status = 0;
 
 $server_reverse_conf    = PerlACE::LocalFile ("server_reverse.conf");
 $server_iiop_conf       = PerlACE::LocalFile ("server_iiop.conf");
@@ -66,7 +67,7 @@ if ($^O eq "MSWin32") {
 
     $comments[3] =
          "* Overriding ORB Default Server Protocol Policy in the POA\n"
-         ."          (POA Server Protocol set to IIOP only): \n",
+         ."          (POA Server Protocol set to IIOP only): \n";
 
 }
 
diff --git a/TAO/tests/RTCORBA/Thread_Pool/run_test.pl b/TAO/tests/RTCORBA/Thread_Pool/run_test.pl
index dccaf713c70..fabf9e0b21c 100755
--- a/TAO/tests/RTCORBA/Thread_Pool/run_test.pl
+++ b/TAO/tests/RTCORBA/Thread_Pool/run_test.pl
@@ -34,29 +34,29 @@ $client = $CL1->WaitKill (120);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 $client = $CL2->WaitKill (30);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 
 $client = $CL3->WaitKill (30);
 
 if ($client != 0) {
     print STDERR "ERROR: client returned $client\n";
-    $status = 1
+    $status = 1;
 }
 
 $server = $SV->WaitKill (5);
 
 if ($server != 0) {
     print STDERR "ERROR: server returned $server\n";
-    $status = 1
+    $status = 1;
 }
 
 unlink $iorfile;
 
-exit $status
+exit $status;
diff --git a/TAO/tests/Reliable_Oneways/run_sync_none.pl b/TAO/tests/Reliable_Oneways/run_sync_none.pl
index ec85df9d4d2..6e36b4f6b12 100755
--- a/TAO/tests/Reliable_Oneways/run_sync_none.pl
+++ b/TAO/tests/Reliable_Oneways/run_sync_none.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile -n");
diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_server.pl b/TAO/tests/Reliable_Oneways/run_sync_with_server.pl
index 0376ba94e59..8b1e7d2dff4 100755
--- a/TAO/tests/Reliable_Oneways/run_sync_with_server.pl
+++ b/TAO/tests/Reliable_Oneways/run_sync_with_server.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile -s");
diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_target.pl b/TAO/tests/Reliable_Oneways/run_sync_with_target.pl
index abf3a422ee8..121718d76d0 100755
--- a/TAO/tests/Reliable_Oneways/run_sync_with_target.pl
+++ b/TAO/tests/Reliable_Oneways/run_sync_with_target.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile -r");
diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl b/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl
index 0e5bfa96385..35f4604a4c8 100755
--- a/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl
+++ b/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", " -k file://$iorfile -t");
diff --git a/TAO/tests/Reliable_Oneways/run_test.pl b/TAO/tests/Reliable_Oneways/run_test.pl
index d65f537b02e..db835ad5a28 100755
--- a/TAO/tests/Reliable_Oneways/run_test.pl
+++ b/TAO/tests/Reliable_Oneways/run_test.pl
@@ -10,6 +10,7 @@ use PerlACE::Run_Test;
 
 $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
+$status = 0;
 
 foreach $i ("-n", "-t", "-s", "-r") {
   $SV = new PerlACE::Process ("server", "-o $iorfile");
diff --git a/TAO/tests/Server_Leaks/run_test.pl b/TAO/tests/Server_Leaks/run_test.pl
index 5d16c1a86c5..2c7f9e0eb87 100755
--- a/TAO/tests/Server_Leaks/run_test.pl
+++ b/TAO/tests/Server_Leaks/run_test.pl
@@ -19,6 +19,7 @@ if (!getopts ('i:')) {
     exit 1;
 }
 
+$status = 0;
 my $iterations = 40;
 if (defined $opt_i) {
     $iterations = $opt_i;
diff --git a/TAO/tests/Single_Read/run_test.pl b/TAO/tests/Single_Read/run_test.pl
index 2859dcd41b5..340122c73ae 100755
--- a/TAO/tests/Single_Read/run_test.pl
+++ b/TAO/tests/Single_Read/run_test.pl
@@ -11,6 +11,7 @@ use PerlACE::Run_Test;
 $iorfile = PerlACE::LocalFile ("ior");
 
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", "-k file://$iorfile -d 10 -i 10 -x");
diff --git a/TAO/tests/Timed_Buffered_Oneways/run_test.pl b/TAO/tests/Timed_Buffered_Oneways/run_test.pl
index 2d47ba4442e..18820bb7a6f 100755
--- a/TAO/tests/Timed_Buffered_Oneways/run_test.pl
+++ b/TAO/tests/Timed_Buffered_Oneways/run_test.pl
@@ -11,6 +11,7 @@ use PerlACE::Run_Test;
 $iorfile = PerlACE::LocalFile ("ior");
 
 unlink $iorfile;
+$status = 0;
 
 $SV = new PerlACE::Process ("server", "-o $iorfile");
 $CL = new PerlACE::Process ("client", "-k file://$iorfile -x");