diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-12-12 06:20:20 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-12-12 06:20:20 +0000 |
commit | 9403114cbbe7e67bd6d972214c1b388f9da71a61 (patch) | |
tree | 6ff723f10dbd04994cb3cf3905ed32a004343d1d | |
parent | b1b9db4165dea6cff4d9209ec572dc74cf9b3099 (diff) | |
download | ATCD-9403114cbbe7e67bd6d972214c1b388f9da71a61.tar.gz |
*** empty log message ***
-rwxr-xr-x | TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl | 18 |
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"); |