summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2011-06-15 09:28:18 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2011-06-15 09:28:18 +0000
commit478cae8e80d69e238dc548316da45e7e7d3e537c (patch)
tree82077ebd39b2ca483f168f7b6f24c563b754e7d0
parentadb2006f8a7e719bd45e8f424d27b94c373406fc (diff)
downloadATCD-478cae8e80d69e238dc548316da45e7e7d3e537c.tar.gz
Try some other ports
-rwxr-xr-xCIAO/tests/DAnCE/EM-Launch-Failures/run_test.pl8
-rwxr-xr-xCIAO/tests/DAnCE/EM-Shutdown-Failures/run_test.pl8
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";