diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-12-03 03:49:41 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-12-03 03:49:41 +0000 |
commit | a34f63ba140fbd78ac1fdadce193244dff8ca6c7 (patch) | |
tree | 72ac44ed6eee15ed5ed814454acce8498d5f3cd9 /TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl | |
parent | 452a5c7d229d2adbff87611d6c179f9ab2495562 (diff) | |
download | ATCD-a34f63ba140fbd78ac1fdadce193244dff8ca6c7.tar.gz |
*** empty log message ***
Diffstat (limited to 'TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl')
-rwxr-xr-x | TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl | 34 |
1 files changed, 24 insertions, 10 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 9f80a0024bf..4232b995315 100755 --- a/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl +++ b/TAO/CIAO/tests/RTCCM/Priority_Test/descriptors/rate_test.pl @@ -22,9 +22,8 @@ if ($CIAO_ROOT eq "") { $status = 0; +$local = 1; $assembly = PerlACE::LocalFile ("no-rt-3rates.cad"); -$deploy_config = PerlACE::LocalFile ("test.dat"); -#$deploy_config = PerlACE::LocalFile ("remote.dat"); $daemon_ior = PerlACE::LocalFile ("daemon.ior"); $am_ior = PerlACE::LocalFile ("am.ior"); $c25_ior = PerlACE::LocalFile ("c25.ior"); @@ -33,10 +32,10 @@ $c75_ior = PerlACE::LocalFile ("c75.ior"); $cookie = PerlACE::LocalFile ("ck_demo_deployment"); ## The following control how to iterate thru various work amount -$start_work = 10; -$end_work = 300; -$work_step = 300; -$run_time = 10; # run for $run_time sec. +$start_work = 300; +$end_work = 301; +$work_step = 100; +$run_time = 40; # run for $run_time sec. unlink $daemon_ior; unlink $am_ior; @@ -51,8 +50,14 @@ while ( $#ARGV >= 0) if ($ARGV[0] =~ m/^-test_deploy/i) { $test_deploy = 1; } - elsif ($ARGV[0] =~ m/^-no_daemon/i) { - $no_daemon = 1; + elsif ($ARGV[0] =~ m/^-remote/i) { + $local = 0; + } + elsif ($ARGV[0] =~ m/^-assmbly/i) { + shift; + if ($#ARGV >= 0) { + $assembly = PerlACE::LocalFile ("$ARGV[0]"); + } } else { die "Invalid flag: $ARGV[0]\n"; @@ -61,6 +66,13 @@ while ( $#ARGV >= 0) shift; } +if ($local == 1) { + $deploy_config = PerlACE::LocalFile ("test.dat"); +} +else { + $deploy_config = PerlACE::LocalFile ("remote.dat"); +} + # CIAO Daemon command line arguments $daemon_args1 = "-ORBEndpoint iiop://localhost:10000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; @@ -74,7 +86,7 @@ $ad_teardown = " -k file://$am_ior -d $cookie -x"; $DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", "$daemon_args1"); -if ($no_daemon == 0) { +if ($local == 1) { ## Starting up the CIAO daemon $DS->Spawn (); if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { @@ -159,7 +171,9 @@ $DS->Kill (); unlink $cookie; -unlink $controller_ior; +unlink $c25_ior; +unlink $c50_ior; +unlink $c75_ior; unlink $daemon_ior; unlink $am_ior; |