summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/tests/Trading/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/tests/Trading/run_test.pl')
-rwxr-xr-xTAO/orbsvcs/tests/Trading/run_test.pl8
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");