diff options
Diffstat (limited to 'ACE/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl')
-rwxr-xr-x | ACE/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/ACE/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl b/ACE/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl new file mode 100755 index 00000000000..5ca047d1270 --- /dev/null +++ b/ACE/TAO/orbsvcs/tests/Notify/performance-tests/scripts/Max_Throughput/run_all.pl @@ -0,0 +1,30 @@ +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 File::Copy; +use Getopt::Std; + +@list= ("2_Hops","2_Hops_RTCORBA","3_Hops","3_Hops_RTCORBA","Colocated","Colocated_RTCORBA","Notify","Notify_RTCORBA"); + +for $file (@list) { + 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 "../"; + } +} |