summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Mcast/run_test.pl')
-rwxr-xr-xTAO/orbsvcs/tests/EC_Mcast/run_test.pl30
1 files changed, 0 insertions, 30 deletions
diff --git a/TAO/orbsvcs/tests/EC_Mcast/run_test.pl b/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
deleted file mode 100755
index e9dd7a1b37f..00000000000
--- a/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
+++ /dev/null
@@ -1,30 +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 Process;
-
-# Run two copies of the same test...
-$T1 = Process::Create ($EXEPREFIX."EC_Mcast".$EXE_EXT,
- " -c sample.cfg -n 100 -t 50000 -f Set02");
-$T2 = Process::Create ($EXEPREFIX."EC_Mcast".$EXE_EXT,
- " -c sample.cfg -n 100 -t 50000 -f Set02");
-
-if ($T1->TimedWait (60) == -1) {
- print STDERR "ERROR: test1 timedout\n";
- $T1->Kill (); $T1->TimedWait (1);
- $T2->Kill (); $T2->TimedWait (1);
- exit 1;
-}
-
-if ($T2->TimedWait (60) == -1) {
- print STDERR "ERROR: test2 timedout\n";
- $T2->Kill (); $T2->TimedWait (1);
- exit 1;
-}
-
-exit 0;