diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
commit | 58033491c6d0bac82315c1fdb1ec9b39be58093f (patch) | |
tree | c69c3aa67ec66758066e959bd0d533ea336ec236 /TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl | |
parent | 2efc882384a34f61311a24fc641d1b5fd5776356 (diff) | |
download | ATCD-TAO-1_5.tar.gz |
This commit was manufactured by cvs2svn to create tag 'TAO-1_5'.TAO-1_5
Diffstat (limited to 'TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl')
-rwxr-xr-x | TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl b/TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl deleted file mode 100755 index fe52b35d6a2..00000000000 --- a/TAO/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl +++ /dev/null @@ -1,87 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -# -# @@ Run this script from ../descriptors/ instead. -# - -use lib "$ENV{'ACE_ROOT'}/bin"; -use PerlACE::Run_Test; - -$status = 0; -$daemon_ior = PerlACE::LocalFile ("daemon.ior"); -$am_ior = PerlACE::LocalFile ("am.ior"); - -$ACE_ROOT=$ENV{'ACE_ROOT'}; -$CIAO_ROOT=$ENV{'CIAO_ROOT'}; - -unlink $daemon_ior; -unlink $am_ior; - -# CIAO Daemon command line arguments -$daemon_args = "-c $CIAO_ROOT/tools/ComponentServer/svc.conf -ORBEndpoint iiop://localhost:10000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; - -# CIAO Daemon command line arguments -$daemon_args2 = "-c $CIAO_ROOT/tools/ComponentServer/svc.conf -ORBEndpoint iiop://localhost:12000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; - -$assembly_manager_args = "-o $am_ior -c test.dat"; - -$ad_args = " -k file://$am_ior -a Multi_Threaded.cad"; - -# CIAO daemon process definition -$DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", - "$daemon_args"); - -## Starting up the CIAO daemon -$DS->Spawn (); -if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { - print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; - $DS->Kill (); - exit 1; -} - -# CIAO daemon process definition -$DS2 = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", - "$daemon_args2"); - -## Starting up the CIAO daemon -$DS2->Spawn (); -if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { - print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; - $DS->Kill (); - exit 1; -} - -$AM = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Manager", - $assembly_manager_args); -$AM->Spawn (); -if (PerlACE::waitforfile_timed ($am_ior, 15) == -1) { - print STDERR "ERROR: Could not find assembly ior file <$am_ior>\n"; - $AM->Kill (); - exit 1; -} - -$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer", - $ad_args); -$AD->Spawn (); - -sleep (5); - -#Start the client to send the trigger message -$CL = new PerlACE::Process ("../Multi_Threaded/client", ""); -$CL->SpawnWaitKill(60); - -$AM->Kill (); -$AD->Kill (); -$DS->Kill (); -$CL->Kill (); -$DS2->Kill (); - -unlink $daemon_ior; -unlink $am_ior; - -exit $status; |