From 478cae8e80d69e238dc548316da45e7e7d3e537c Mon Sep 17 00:00:00 2001
From: Johnny Willemsen <jwillemsen@remedy.nl>
Date: Wed, 15 Jun 2011 09:28:18 +0000
Subject: Try some other ports

---
 CIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl   | 8 ++++----
 CIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/CIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl b/CIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl
index 15293b23961..1f1d0b8e218 100755
--- a/CIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl
+++ b/CIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl
@@ -18,7 +18,7 @@ $ns_running = 0;
 $app_running = 0;
 
 $nr_daemon = 2;
-$port_start = 60001;
+$port_start = 60010;
 $iorbase = "NodeApp";
 @iorfiles = 0;
 $nodebase = "Node";
@@ -174,7 +174,7 @@ foreach $file (@files) {
     print STDERR "Starting Naming Service\n";
 
     my $ns_host = $tg_naming->HostName ();
-    $NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/tao_cosnaming", "-m 0 -ORBEndpoint iiop://$ns_host:60000 -o $ior_nsfile");
+    $NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/tao_cosnaming", "-m 0 -ORBEndpoint iiop://$ns_host:60001 -o $ior_nsfile");
     $NS->Spawn ();
 
     if ($tg_naming->WaitForFileTimed ($ior_nsbase,
@@ -186,8 +186,8 @@ foreach $file (@files) {
 
     $ns_running = 1;
     # Set up NamingService environment
-    $tg_exe_man->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService");
-    $tg_executor->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService");
+    $tg_exe_man->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60001/NameService");
+    $tg_executor->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60001/NameService");
 
     # Invoke node daemon(s).
     print "Invoking $nr_daemon node daemon(s)\n";
diff --git a/CIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl b/CIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl
index eb31e8806ff..696e3ae36b0 100755
--- a/CIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl
+++ b/CIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl
@@ -18,7 +18,7 @@ $ns_running = 0;
 $app_running = 0;
 
 $nr_daemon = 2;
-$port_start = 60001;
+$port_start = 60010;
 $iorbase = "NodeApp";
 @iorfiles = 0;
 $nodebase = "Node";
@@ -174,7 +174,7 @@ foreach $file (@files) {
     print STDERR "Starting Naming Service\n";
 
     my $ns_host = $tg_naming->HostName ();
-    $NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/tao_cosnaming", "-m 0 -ORBEndpoint iiop://$ns_host:60000 -o $ior_nsfile");
+    $NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/tao_cosnaming", "-m 0 -ORBEndpoint iiop://$ns_host:60001 -o $ior_nsfile");
     $NS->Spawn ();
 
     if ($tg_naming->WaitForFileTimed ($ior_nsbase,
@@ -186,8 +186,8 @@ foreach $file (@files) {
 
     $ns_running = 1;
     # Set up NamingService environment
-    $tg_exe_man->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService");
-    $tg_executor->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService");
+    $tg_exe_man->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60001/NameService");
+    $tg_executor->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60001/NameService");
 
     # Invoke node daemon(s).
     print "Invoking $nr_daemon node daemon(s)\n";
-- 
cgit v1.2.1