diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl new file mode 100755 index 00000000000..2778d876708 --- /dev/null +++ b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl @@ -0,0 +1,36 @@ +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; +use File::Copy; +use Getopt::Std; + +@list=glob("*"); + +for $file (@list) +{ + print STDERR "found $file test\n"; + + if (-d $file) + { + print STDERR "Running $file test\n"; + + $cmd = "run_test.pl"; + + chdir $file or die "Could not chdir to $file"; + + $status = system ("perl $cmd"); + + if ($status != 0) + { + print STDERR "ERROR: $file test returned $status\n"; + } + + chdir "../"; + } +} |