summaryrefslogtreecommitdiff
path: root/CIAO/tests/IDL3/Events/Any/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'CIAO/tests/IDL3/Events/Any/run_test.pl')
-rwxr-xr-xCIAO/tests/IDL3/Events/Any/run_test.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/CIAO/tests/IDL3/Events/Any/run_test.pl b/CIAO/tests/IDL3/Events/Any/run_test.pl
deleted file mode 100755
index c9fe34ba9d4..00000000000
--- a/CIAO/tests/IDL3/Events/Any/run_test.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-# -*- perl -*-
-
-# The first three lines above let this script run without specifying the
-# full path to perl, as long as it is in the user's PATH.
-# Taken from perlrun man page.
-
-# Do not use environment variables here since not all platforms use ACE_ROOT
-use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::TestTarget;
-use English;
-
-$status = 0;
-$exflags = "";
-
-# Run the test
-
-$tg = PerlACE::TestTarget::create_target (1) || die "Create target for ns failed\n";
-
-$EX = $tg->CreateProcess ("EventAny");
-$EX->Arguments ($exflags);
-$test = $EX->SpawnWaitKill ($tg->ProcessStopWaitInterval ());
-
-if ($test != 0) {
- print STDERR "ERROR: test error status $test\n";
- $status = 1;
-}
-
-exit $status;