diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-07-01 15:11:04 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-07-01 15:11:04 +0000 |
| commit | 4b7a40ac3f1f1e5981d5d782a2aeaeb36824899a (patch) | |
| tree | 559e34508307340eb6f0d37f9cff868f4665d4f6 /TAO/orbsvcs/tests/AVStreams | |
| parent | 4e36d6c66a367992b7dfc22c7c08c84f989df165 (diff) | |
| download | ATCD-4b7a40ac3f1f1e5981d5d782a2aeaeb36824899a.tar.gz | |
ChangeLogTag: Fri Jul 1 15:06:12 UTC 2005 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/orbsvcs/tests/AVStreams')
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 |