summaryrefslogtreecommitdiff
path: root/TAO/tests/AlternateIIOP
diff options
context:
space:
mode:
authorWilliam R. Otte <wotte@dre.vanderbilt.edu>2006-07-24 15:50:11 +0000
committerWilliam R. Otte <wotte@dre.vanderbilt.edu>2006-07-24 15:50:11 +0000
commit8008dd09ccf88d4edef237a184a698cac42f2952 (patch)
treeda50d054f9c761c3f6a5923f6979e93306c56d68 /TAO/tests/AlternateIIOP
parent13d6e89af439164c0ade48e6f5c3e9b3f971e8c9 (diff)
downloadATCD-8008dd09ccf88d4edef237a184a698cac42f2952.tar.gz
Repo restructuring
Diffstat (limited to 'TAO/tests/AlternateIIOP')
-rw-r--r--TAO/tests/AlternateIIOP/README18
-rwxr-xr-xTAO/tests/AlternateIIOP/run_test.pl44
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;