summaryrefslogtreecommitdiff
path: root/TAO/tests/CDR/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tests/CDR/run_test.pl')
-rwxr-xr-xTAO/tests/CDR/run_test.pl36
1 files changed, 0 insertions, 36 deletions
diff --git a/TAO/tests/CDR/run_test.pl b/TAO/tests/CDR/run_test.pl
deleted file mode 100755
index eeaf6f75224..00000000000
--- a/TAO/tests/CDR/run_test.pl
+++ /dev/null
@@ -1,36 +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;
-
-$brace="\#\#\#\#\#";
-%tests = ("basic_types" => "-n 256 -l 10",
- "tc" => "",
- "growth" => "-l 64 -h 256 -s 4 -n 10 -q",
- "alignment" => "",
- "allocator" => "-q");
-$test = "";
-$args = "";
-$status = 0;
-print STDERR "\n";
-
-while (($test,$args) = each %tests) {
- print STDERR "\n$brace $test $args test BEGUN\n";
- $TST = new PerlACE::Process ($test, $args);
- print STDERR "\tRUNNING $test\n";
-
- $retval = $TST->SpawnWaitKill (90);
-
- if ($retval != 0) {
- print STDERR "ERROR $brace $test $args, exit value $retval\n";
- $status = 1;
- }
- print STDERR "$brace $test FINISHED successfully\n";
-}
-
-exit $status;