summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2003-12-12 06:20:20 +0000
committernanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2003-12-12 06:20:20 +0000
commit9403114cbbe7e67bd6d972214c1b388f9da71a61 (patch)
tree6ff723f10dbd04994cb3cf3905ed32a004343d1d
parentb1b9db4165dea6cff4d9209ec572dc74cf9b3099 (diff)
downloadATCD-9403114cbbe7e67bd6d972214c1b388f9da71a61.tar.gz
*** empty log message ***
-rwxr-xr-xTAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl18
1 files changed, 9 insertions, 9 deletions
diff --git a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl b/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl
index b310543cc1e..653c9b7d9f0 100755
--- a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl
+++ b/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl
@@ -32,7 +32,7 @@ $c75_ior = PerlACE::LocalFile ("c75.ior");
$cookie = PerlACE::LocalFile ("ck_demo_deployment");
## The following control how to iterate thru various work amount
-$start_work = 20;
+$start_work = 80;
$end_work = 401;
$work_step = 10;
$run_time = 60; # run for $run_time sec.
@@ -141,22 +141,22 @@ for ($work = $start_work; $work < $end_work; $work += $work_step)
printf "Test work: $work\n";
+ if ($reverse_call_order == 0) {
+ $all_iors = "-k file://$c25_ior -k file://$c50_ior -k file://$c75_ior";
+ }
+ else {
+ $all_iors = "-k file://$c50_ior -k file://$c75_ior -k file://$c25_ior";
+ }
+
#Start the client to send the trigger message
$CL = new PerlACE::Process ("../Controllers/client",
- "-k file://$c25_ior -k file://$c50_ior -k file://$c75_ior -w $work");
+ "$all_iors -w $work");
$CL->SpawnWaitKill(60);
## Now wait for the test to complete. Need to figure out a way to
## detect this.
sleep ($run_time);
- if ($reverse_call_order == 0) {
- $all_iors = "-k file://$c25_ior -k file://$c50_ior -k file://$c75_ior";
- }
- else {
- $all_iors = "-k file://$c75_ior -k file://$c50_ior -k file://$c25_ior";
- }
-
#Start the client to send the trigger message
$CL = new PerlACE::Process ("../Controllers/client",
"$all_iors -f");