diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Trading/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Trading/run_test.pl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/TAO/orbsvcs/tests/Trading/run_test.pl b/TAO/orbsvcs/tests/Trading/run_test.pl index 845aff2f28c..b6057f38645 100755 --- a/TAO/orbsvcs/tests/Trading/run_test.pl +++ b/TAO/orbsvcs/tests/Trading/run_test.pl @@ -11,18 +11,14 @@ use PerlACE::Run_Test; $ior = PerlACE::LocalFile ("trading.ior"); $ready_file = PerlACE::LocalFile ("export_test_ready"); $sleeptime = 20; -$port = PerlACE::random_port(); unlink $ior; unlink $ready_file; -## Specify and endpoint so that we may test the corbaloc in the -## -ORBInitRef. We retain one -ORBInitRef using the file just to test -## both ways. $TS = new PerlACE::Process ("../../Trading_Service/Trading_Service", - "-ORBEndpoint iiop://:$port -TSdumpior $ior"); + "-TSdumpior $ior"); $E = new PerlACE::Process ("export_test", - "-ORBInitRef TradingService=corbaloc:::$port/TradingService -quiet"); + "-ORBInitRef TradingService=file://$ior -quiet"); $I = new PerlACE::Process ("import_test", "-ORBInitRef TradingService=file://$ior -quiet"); |