diff options
author | Phil Mesnier <mesnier_p@ociweb.com> | 2007-01-13 14:35:22 +0000 |
---|---|---|
committer | Phil Mesnier <mesnier_p@ociweb.com> | 2007-01-13 14:35:22 +0000 |
commit | 4ec9c0798602dbbbdfa61ed52797527358a17d64 (patch) | |
tree | 84342ba67fc4a8b4a5faf5e7682947b0f084a101 | |
parent | 067c499e6d3a8306770b9bbdbd2ee0c5d98c4987 (diff) | |
download | ATCD-4ec9c0798602dbbbdfa61ed52797527358a17d64.tar.gz |
Sat Jan 13 14:31:10 UTC 2007 Phil Mesnier <mesnier_p@ociweb.com>
-rw-r--r-- | TAO/ChangeLog | 10 | ||||
-rwxr-xr-x | TAO/tests/AlternateIIOP/run_test.pl | 9 | ||||
-rwxr-xr-x | TAO/tests/Parallel_Connect_Strategy/run_test.pl | 3 |
3 files changed, 17 insertions, 5 deletions
diff --git a/TAO/ChangeLog b/TAO/ChangeLog index 422cfc55b59..9b95670024d 100644 --- a/TAO/ChangeLog +++ b/TAO/ChangeLog @@ -1,3 +1,13 @@ +Sat Jan 13 14:31:10 UTC 2007 Phil Mesnier <mesnier_p@ociweb.com> + + * tests/AlternateIIOP/run_test.pl: + * tests/Parallel_Connect_Strategy/run_test.pl: + + Renumbered the port values passed to the server. I noticed the + PCS test on one nightly machine failed because the acceptor + couldn't open a new socket. Also corrected a cut & paste error + in the scripts. + Fri Jan 12 21:40:13 UTC 2007 Phil Mesnier <mesnier_p@ociweb.com> * tests/Oneway_Timeouts/client.cpp: diff --git a/TAO/tests/AlternateIIOP/run_test.pl b/TAO/tests/AlternateIIOP/run_test.pl index bd1d4029737..d08e3a96498 100755 --- a/TAO/tests/AlternateIIOP/run_test.pl +++ b/TAO/tests/AlternateIIOP/run_test.pl @@ -11,9 +11,9 @@ use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("altiiop.ior"); unlink $iorfile; $status = 0; -@bogus_eps = ("-orbendpoint iiop://localhost:10200/hostname_in_ior=bogus.com", - "-orbendpoint iiop://localhost:10202/hostname_in_ior=bogus.com"); -$valid_ep = "-orbendpoint iiop://localhost:10201"; +@bogus_eps = ("-orbendpoint iiop://localhost:10210/hostname_in_ior=bogus.com", + "-orbendpoint iiop://localhost:10212/hostname_in_ior=bogus.com"); +$valid_ep = "-orbendpoint iiop://localhost:10211"; $SV_ALT_IIOP = new PerlACE::Process ("../Hello/server", "-o $iorfile -ORBUseSharedProfile 1 ", "$bogus_eps[0] $valid_ep $bogus_eps[1]"); @@ -23,7 +23,8 @@ $SV_ALT_IIOP->Spawn (); if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; - $SV->Kill (); $SV->TimedWait (1); + $SV_ALT_IIOP->Kill (); + $SV_ALT_IIOP->TimedWait (1); exit 1; } diff --git a/TAO/tests/Parallel_Connect_Strategy/run_test.pl b/TAO/tests/Parallel_Connect_Strategy/run_test.pl index b76d7659183..5624cc811c7 100755 --- a/TAO/tests/Parallel_Connect_Strategy/run_test.pl +++ b/TAO/tests/Parallel_Connect_Strategy/run_test.pl @@ -31,7 +31,8 @@ $SV_ALT_IIOP->Spawn (); if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; - $SV->Kill (); $SV->TimedWait (1); + $SV_ALT_IIOP->Kill (); + $SV_ALT_IIOP->TimedWait (1); exit 1; } |