diff options
3 files changed, 8 insertions, 18 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 90322ac6860..7c2b2e5e063 100755 --- a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl @@ -17,11 +17,12 @@ $status = 0; $nsior = PerlACE::LocalFile ("ns.ior"); $testfile = PerlACE::LocalFile ("output"); +unlink $nsior; +unlink $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 -s sender -r 10 -f $input"); $SV1 = new PerlACE::Process ("sender", "-ORBInitRef NameService=file://$nsior -s sender -r 1 -f $input"); @@ -240,17 +241,3 @@ unlink $testfile, $input; exit $status; - - - - - - - - - - - - - - diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl index 386c038f9a0..de19cf0ba3c 100755 --- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl @@ -18,12 +18,14 @@ $status = 0; $nsior = PerlACE::LocalFile ("ns.ior"); $testfile = PerlACE::LocalFile ("output"); +$input = PerlACE::LocalFile ("test_input"); + +unlink $nsior; +unlink $testfile, $input; # generate test stream data $input = PerlACE::generate_test_file("test_input", 102400); -unlink $nsior; - $NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-ORBDottedDecimalAddresses 1 -o $nsior"); $SV1 = new PerlACE::Process ("sender", "-ORBDottedDecimalAddresses 1 ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r 30 -f $input"); $SV2 = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r 30 -f $input"); diff --git a/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl index 24cecf2a964..59c46a08330 100755 --- a/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Full_Profile/run_test.pl @@ -20,6 +20,7 @@ $outfile = PerlACE::LocalFile ("output"); $debug = 0; unlink $nsior; +unlink $output, $input; # generate test stream data # the size of this file is limited by the maximum packet size |