diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
commit | 8008dd09ccf88d4edef237a184a698cac42f2952 (patch) | |
tree | da50d054f9c761c3f6a5923f6979e93306c56d68 /TAO/tests/AlternateIIOP | |
parent | 13d6e89af439164c0ade48e6f5c3e9b3f971e8c9 (diff) | |
download | ATCD-8008dd09ccf88d4edef237a184a698cac42f2952.tar.gz |
Repo restructuring
Diffstat (limited to 'TAO/tests/AlternateIIOP')
-rw-r--r-- | TAO/tests/AlternateIIOP/README | 18 | ||||
-rwxr-xr-x | TAO/tests/AlternateIIOP/run_test.pl | 44 |
2 files changed, 0 insertions, 62 deletions
diff --git a/TAO/tests/AlternateIIOP/README b/TAO/tests/AlternateIIOP/README deleted file mode 100644 index da08371ff0e..00000000000 --- a/TAO/tests/AlternateIIOP/README +++ /dev/null @@ -1,18 +0,0 @@ -/** - -@page AlternateIIOP Test README File - - This test uses the binaries from the Hello test, but builds an -IOR that contains multiple endpoints. The "hostname_in_ior" option is -used to add two unreachable endpoints along with a third that is -successful. - -- The ior file for the test, altiiop.ior is not unlinked at the end of -the test to allow for manual inspection using -$TAO_ROOT/utils/catior/catior. - - To run the test use the run_test.pl script: - -$ ./run_test.pl - - the script returns 0 if the test was successful. diff --git a/TAO/tests/AlternateIIOP/run_test.pl b/TAO/tests/AlternateIIOP/run_test.pl deleted file mode 100755 index e39c7c44821..00000000000 --- a/TAO/tests/AlternateIIOP/run_test.pl +++ /dev/null @@ -1,44 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -use lib '../../../bin'; -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"; - -$SV_ALT_IIOP = new PerlACE::Process ("../Hello/server", "-o $iorfile -ORBUseSharedProfile 1 ", - "$bogus_eps[0] $valid_ep $bogus_eps[1]"); -$CL_ALT_IIOP = new PerlACE::Process ("../Hello/client", " -k file://$iorfile"); -$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); - exit 1; -} - -$client = $CL_ALT_IIOP->SpawnWaitKill (300); - -if ($client != 0) { - print STDERR "ERROR: client returned $client\n"; - $status = 1; -} - -$server = $SV_ALT_IIOP->WaitKill (60); - -if ($server != 0) { - print STDERR "ERROR: server returned $server\n"; - $status = 1; -} - -exit $status; |