diff options
Diffstat (limited to 'CIAO/tests/Bug_2130_Regression/descriptors/run_test.pl')
-rw-r--r-- | CIAO/tests/Bug_2130_Regression/descriptors/run_test.pl | 177 |
1 files changed, 0 insertions, 177 deletions
diff --git a/CIAO/tests/Bug_2130_Regression/descriptors/run_test.pl b/CIAO/tests/Bug_2130_Regression/descriptors/run_test.pl deleted file mode 100644 index 6688e0a224f..00000000000 --- a/CIAO/tests/Bug_2130_Regression/descriptors/run_test.pl +++ /dev/null @@ -1,177 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -use lib "$ENV{'ACE_ROOT'}/bin"; -use PerlACE::Run_Test; - -$DAnCE = "$ENV{'ACE_ROOT'}/TAO/CIAO/DAnCE"; -$CIAO_ROOT = "$ENV{'CIAO_ROOT'}"; -$TAO_ROOT = "$ENV{'TAO_ROOT'}"; -$daemons_running = 0; -$em_running = 0; -$daemons = 1; -@ports = ( 30000 ); -@iorfiles = ( "NodeApp.ior" ); -$status = 0; -$dat_file = "TestNodeManagerMap.dat"; -$cdp_file = "DeploymentPlan.cdp"; -$controller_exec = "../SEC_CheckPoint/controller"; - -$E = 0; -$EM = 0; - -# Delete if there are any .ior files. -sub delete_ior_files { - for ($i = 0; $i < $daemons; ++$i) { - unlink $iorfiles[$i]; - } - unlink PerlACE::LocalFile ("EM.ior"); - unlink PerlACE::LocalFile ("TSEC_CheckPoint.ior"); - unlink PerlACE::LocalFile ("DAM.ior"); -} - -sub kill_node_daemons { - for ($i = 0; $i < $daemons; ++$i) { - $Daemons[$i]->Kill (); $Daemons[$i]->TimedWait (1); - } -} - -sub kill_open_processes { - if ($daemons_running == 1) { - kill_node_daemons (); - } - - if ($em_running == 1) { - $EM->Kill (); - $EM->TimedWait (1); - } -} - -sub run_node_daemons { - for ($i = 0; $i < $daemons; ++$i) - { - $iorfile = $iorfiles[$i]; - $port = $ports[$i]; - - $iiop = "iiop://localhost:$port"; - $node_app = "$DAnCE/NodeApplication/NodeApplication"; - - $d_cmd = "$DAnCE/NodeManager/NodeManager"; - $d_param = "-ORBEndpoint $iiop -s $node_app -o $iorfile -a \"-r\""; - - $Daemons[$i] = new PerlACE::Process ($d_cmd, $d_param); - - - $result = $Daemons[$i]->Spawn (); - push(@processes, $Daemons[$i]); - - if (PerlACE::waitforfile_timed ($iorfile, - $PerlACE::wait_interval_for_process_creation) == -1) { - print STDERR - "ERROR: The ior file of node daemon $i could not be found\n"; - for (; $i > 0; --$i) { - $Daemons[$i]->Kill (); $Daemons[$i]->TimedWait (1); - } - return -1; - } - } - $daemons_running = 1; - return 0; -} - -delete_ior_files (); - - -# Invoke node daemons. -print "Invoking node daemons\n"; -$status = run_node_daemons (); - -if ($status != 0) { - print STDERR "ERROR: Unable to execute the node daemons\n"; - exit 1; -} - -$ns_running = 1; - -# Invoke execution manager. -print "Invoking execution manager\n"; -$EM = new PerlACE::Process ("$DAnCE/ExecutionManager/Execution_Manager", - "-o EM.ior -i $dat_file"); -$EM->Spawn (); - -if (PerlACE::waitforfile_timed ("EM.ior", - $PerlACE::wait_interval_for_process_creation) == -1) { - print STDERR - "ERROR: The ior file of execution manager could not be found\n"; - kill_open_processes (); - exit 1; -} - -$em_running = 1; - -# Invoke executor - start the application -. -print "Invoking executor - start the application -\n"; -$E = - new PerlACE::Process ("$DAnCE/Plan_Launcher/plan_launcher", - "-p DeploymentPlan.cdp -k file://EM.ior -o DAM.ior"); - -$E->SpawnWaitKill (5000); - - -if (PerlACE::waitforfile_timed ("TSEC_CheckPoint.ior", - $PerlACE::wait_interval_for_process_creation) == -1) { - print STDERR "ERROR: The ior file of sender could not be found\n"; - kill_open_processes (); - exit 1; -} - -print "Running testcase 1\n"; - -$controller = new PerlACE::Process ("$controller_exec", "-i 1 -k file://TSEC_CheckPoint.ior -t 1 -l 100000"); -$result = $controller->SpawnWaitKill (3000); - -if ($result != 0) { - print STDERR "ERROR: The controller returned $result\n"; - $status = 1; -} - - -print "Running testcase 2\n"; - -$controller = new PerlACE::Process ("$controller_exec", "-i 2 -k file://TSEC_CheckPoint.ior -t 1 -l 100000"); -$result = $controller->SpawnWaitKill (3000); - -if ($result != 0) { - print STDERR "ERROR: The controller returned $result\n"; - $status = 1; -} - -print "Running testcase 3\n"; - -$controller = new PerlACE::Process ("$controller_exec", "-k file://TSEC_CheckPoint.ior -t 2 -l 100000"); -$result = $controller->SpawnWaitKill (3000); - -if ($result != 0) { - print STDERR "ERROR: The controller returned $result\n"; - $status = 1; -} - - -# Invoke executor - stop the application -. -print "Invoking executor - stop the application -\n"; -$E = - new PerlACE::Process ("$DAnCE/Plan_Launcher/plan_launcher", - "-k file://EM.ior -i file://DAM.ior"); -$E->SpawnWaitKill (3000); - -print "Executor returned.\n"; -print "Shutting down rest of the processes.\n"; - -delete_ior_files (); -kill_open_processes (); - -exit $status; |