diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/performance-tests/scripts/3_Path_Period_10ms_Lanes/run_all.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Notify/performance-tests/scripts/3_Path_Period_10ms_Lanes/run_all.pl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/scripts/3_Path_Period_10ms_Lanes/run_all.pl b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/3_Path_Period_10ms_Lanes/run_all.pl new file mode 100755 index 00000000000..8f1a38c778e --- /dev/null +++ b/TAO/orbsvcs/tests/Notify/performance-tests/scripts/3_Path_Period_10ms_Lanes/run_all.pl @@ -0,0 +1,58 @@ +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::Long; + +GetOptions ("rt" => \$rt, + "cos" => \$cos, + "all" => \$all); + +@list=("Load_0", "Load_5", "Load_10","Load_15","Load_20","Load_25","Load_30","Load_35","Load_40","Load_45","Load_50"); + +for $file (@list) +{ + # default to rt + if (!$all && !$rt && !$cos) + { + $rt = 1; + } + + if (-d $file) + { + if ($all || $rt) + { + print STDERR "Running $file test with RT Notification\n"; + + $cmd = "run_test.pl -n rt_notify.conf -s $file/supplier.conf -c consumer.conf -o $file/rt_output"; + + $status = system ("perl $cmd"); + + if ($status != 0) + { + print STDERR "ERROR: $file test returned $status\n"; + } + } + + + if ($all || $cos) + { + print STDERR "Running $file test with COS Notification\n"; + + $cmd = "run_test.pl -n cos_notify.conf -s $file/supplier.conf -c consumer.conf -o $file/cos_output"; + + $status = system ("perl $cmd"); + + if ($status != 0) + { + print STDERR "ERROR: $file test returned $status\n"; + } + } + } +} |