1 files changed, 53 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/EC_Mcast/run_test.pl b/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
new file mode 100755
index 00000000000..43aad7ba6cd
--- /dev/null
+++ b/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
@@ -0,0 +1,53 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::Run_Test;
+
+$status = 0;
+
+$sample_cfg = PerlACE::LocalFile ("sample.cfg");
+$svc_conf = PerlACE::LocalFile ("svc$PerlACE::svcconf_ext");
+
+# Run two copies of the same test...
+$T1 = new PerlACE::Process ("EC_Mcast",
+                            "-c $sample_cfg -ORBSvcConf $svc_conf "
+                            . "-n 100 -t 50000 -f Set02");
+$T2 = new PerlACE::Process ("EC_Mcast",
+                            "-c $sample_cfg -ORBSvcConf $svc_conf "
+                            . "-n 100 -t 50000 -f Set02");
+
+$sp1 = $T1->Spawn ();
+
+if ($sp1 != 0) {
+    print STDERR "ERROR: could not spawn EC_MCast, returned $sp1\n";
+    exit 1;
+}
+
+$sp2 = $T2->Spawn ();
+
+if ($sp2 != 0) {
+    print STDERR "ERROR: could not spawn EC_MCast, returned $sp2\n";
+    $T1->Kill ();
+    exit 1;
+}
+
+$test1 = $T1->WaitKill (60);
+
+if ($test1 != 0) {
+    print STDERR "ERROR: test 1 returned $test1\n";
+    $status = 1;
+}
+
+$test2 = $T2->WaitKill (60);
+
+if ($test2 != 0) {
+    print STDERR "ERROR: test 2 returned $test2\n";
+    $status = 1;
+}
+
+exit $status;