Allow reversing the order of invocations.

1 files changed, 13 insertions, 1 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 c93f3690da9..b310543cc1e 100755
--- a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl
+++ b/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl
@@ -37,8 +37,10 @@ $end_work = 401;
 $work_step = 10;
 $run_time = 60;                 # run for $run_time sec.
 
+## Controlling test behavior
 $test_deploy = 0;
 $no_daemon = 0;
+$reverse_call_order = 0;
 
 # Parse command line argument
 while ( $#ARGV >= 0)
@@ -61,6 +63,9 @@ while ( $#ARGV >= 0)
             $work_step = $ARGV[0];
         }
     }
+    elsif ($ARGV[0] =~ m/^-reverse_call_order/i) {
+        $reverse_call_order = 1;
+    }
     else {
         die "Invalid flag: $ARGV[0]\n";
     }
@@ -145,9 +150,16 @@ for ($work = $start_work; $work < $end_work; $work += $work_step)
 ## 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",
-                                "-k file://$c25_ior -k file://$c50_ior -k file://$c75_ior -f");
+                                "$all_iors -f");
     $CL->SpawnWaitKill(60);
 ## Now teardown the application
     $AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer",