summaryrefslogtreecommitdiff
path: root/TAO/tests/Multiple_Inheritance/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tests/Multiple_Inheritance/run_test.pl')
-rwxr-xr-xTAO/tests/Multiple_Inheritance/run_test.pl42
1 files changed, 0 insertions, 42 deletions
diff --git a/TAO/tests/Multiple_Inheritance/run_test.pl b/TAO/tests/Multiple_Inheritance/run_test.pl
deleted file mode 100755
index ca23c064b4e..00000000000
--- a/TAO/tests/Multiple_Inheritance/run_test.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-# $Id$
-# -*- perl -*-
-
-unshift @INC, '../../../bin';
-require ACEutils;
-
-$iorfile = "server.ior";
-$SV = Process::Create ($EXEPREFIX."server$EXE_EXT",
- " -f $iorfile");
-
-if (ACE::waitforfile_timed ($iorfile, 15) == -1) {
- print STDERR "ERROR: cannot find file <$iorfile>\n";
- $SV->Kill (); $SV->TimedWait (1);
- exit 1;
-}
-
-$CL = Process::Create ($EXEPREFIX."client$EXE_EXT",
- " -f $iorfile");
-
-$client = $CL->TimedWait (60);
-if ($client == -1) {
- print STDERR "ERROR: client timedout\n";
- $CL->Kill (); $CL->TimedWait (1);
-}
-
-$SV->Terminate (); $server = $SV->TimedWait (5);
-if ($server == -1) {
- print STDERR "ERROR: server timedout\n";
- $SV->Kill (); $SV->TimedWait (1);
-}
-
-unlink $iorfile;
-
-if ($server == -1 || $client != 0) {
- exit 1;
-}
-
-exit 0;