ChangeLogTag: Fri Jul 1 15:06:12 UTC 2005 Johnny Willemsen <jwillemsen@remedy.nl>

5 files changed, 12 insertions, 8 deletions

diff --git a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
index 7c2b2e5e063..79b0dd65a36 100755
--- a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
@@ -16,6 +16,7 @@ $status = 0;
 
 $nsior = PerlACE::LocalFile ("ns.ior");
 $testfile = PerlACE::LocalFile ("output");
+$input = PerlACE::LocalFile ("test_input");
 
 unlink $nsior;
 unlink $testfile, $input;
diff --git a/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl
index 59c46a08330..f07635bf9d7 100755
--- a/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl
@@ -16,6 +16,7 @@ $status = 0;
 
 $nsior = PerlACE::LocalFile ("ns.ior");
 $outfile = PerlACE::LocalFile ("output");
+$input = PerlACE::LocalFile ("test_input");
 
 $debug = 0;
 
diff --git a/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
index ddd33ac5d58..c75e1347c78 100755
--- a/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
@@ -17,14 +17,15 @@ $status = 0;
 $nsior = PerlACE::LocalFile ("ns.ior");
 $test1 = PerlACE::LocalFile ("test1");
 $test2 = PerlACE::LocalFile ("test2");
+$input = PerlACE::LocalFile ("test_input");
+
+unlink $nsior, $test1, $test2, $input;
 
 # generate test stream data
 # the size of this file is limited by the maximum packet size
 # windows has a maximum size of 8KB
 $input = PerlACE::generate_test_file("test_input", 32000);
 
-unlink $nsior, $test1, $test2;
-
 $NS  = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-o $nsior");
 $SV1 = new PerlACE::Process ("server", "-ORBInitRef NameService=file://$nsior -f $test1");
 $SV2 = new PerlACE::Process ("server", "-ORBInitRef NameService=file://$nsior -f $test2");
diff --git a/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
index 87223c84b1a..c0e20575ff7 100755
--- a/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
@@ -15,14 +15,15 @@ $sleeptime = 2;
 $status = 0;
 
 $nsior = PerlACE::LocalFile ("ns.ior");
+$input = PerlACE::LocalFile ("test_input");
 
 $debug = 0;
 
+unlink $nsior, $test_input;
+
 # generate test stream data
 $input = PerlACE::generate_test_file("test_input", 102400);
 
-unlink $nsior;
-
 for ($i = 0; $i <= $#ARGV; $i++)
 {
     if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?")
diff --git a/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
index 955ef15c05d..31cfeba9234 100755
--- a/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
@@ -16,12 +16,13 @@ $status = 0;
 
 $nsior = PerlACE::LocalFile ("ns.ior");
 $testfile = PerlACE::LocalFile ("test");
+$input = PerlACE::LocalFile ("test_input");
+
+unlink $nsior, $testfile, $input;
 
 # generate test stream data
 $input = PerlACE::generate_test_file("test_input", 102400);
 
-unlink $nsior;
-
 $NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-o $nsior");
 $SV = new PerlACE::Process ("sender", "-ORBInitRef NameService=file://$nsior -f $input");
 $RE = new PerlACE::Process ("receiver", "-ORBInitRef NameService=file://$nsior -f $testfile");
@@ -80,7 +81,6 @@ if ($nserver != 0) {
     $status = 1;
 }
 
-unlink $nsior;
-unlink $testfile, $input;
+unlink $nsior, $testfile, $input;
 
 exit $status;