diff options
Diffstat (limited to 'modules/CIAO/DAnCE/tests/CIAO/EM-Launch-Failures/run_test.pl')
-rwxr-xr-x | modules/CIAO/DAnCE/tests/CIAO/EM-Launch-Failures/run_test.pl | 269 |
1 files changed, 269 insertions, 0 deletions
diff --git a/modules/CIAO/DAnCE/tests/CIAO/EM-Launch-Failures/run_test.pl b/modules/CIAO/DAnCE/tests/CIAO/EM-Launch-Failures/run_test.pl new file mode 100755 index 00000000000..5b5eb104ee3 --- /dev/null +++ b/modules/CIAO/DAnCE/tests/CIAO/EM-Launch-Failures/run_test.pl @@ -0,0 +1,269 @@ +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::TestTarget; + +$CIAO_ROOT = "$ENV{'CIAO_ROOT'}"; +$TAO_ROOT = "$ENV{'TAO_ROOT'}"; +$DANCE_ROOT = "$ENV{'DANCE_ROOT'}"; + +$daemons_running = 0; +$em_running = 0; +$ns_running = 0; +$app_running = 0; + +$nr_daemon = 2; +$port_start = 60001; +$iorbase = "NodeApp"; +@iorfiles = 0; +$nodebase = "Node"; + +# ior files other than daemon +$ior_nsbase = "ns.ior"; +$ior_nsfile = 0; +$ior_embase = "EM.ior"; +$ior_emfile = 0; + +# Processes +$E = 0; +$EM = 0; +$NS = 0; +@DEAMONS = 0; + +# targets +@tg_daemons = 0; +$tg_naming = 0; +$tg_exe_man = 0; +$tg_executor = 0; + +$nofail_plan = 'SimpleNoFailure.cdp'; + +$status = 0; + +sub create_targets { + # naming service + $tg_naming = PerlACE::TestTarget::create_target (1) || die "Create target for ns failed\n"; + $tg_naming->AddLibPath ('..'); + # daemon + @tg_daemons = 0; + for ($i = 0; $i < $nr_daemon; ++$i) { + $tg_daemons[$i] = PerlACE::TestTarget::create_target ($i+2) || die "Create target for deamon $i failed\n"; + $tg_daemons[$i]->AddLibPath ('../Components'); + } + # execution manager + $tg_exe_man = PerlACE::TestTarget::create_target (1) || die "Create target for EM failed\n"; + $tg_exe_man->AddLibPath ('..'); + # executor (plan_launcher) + $tg_executor = PerlACE::TestTarget::create_target (1) || die "Create target for executor failed\n"; + $tg_executor->AddLibPath ('..'); +} + +sub init_ior_files { + $ior_nsfile = $tg_naming->LocalFile ($ior_nsbase); + $ior_emfile = $tg_exe_man->LocalFile ($ior_embase); + @iorfiles = 0; + for ($i = 0; $i < $nr_daemon; ++$i) { + $iorfiles[$i] = $tg_daemons[$i]->LocalFile ("$iorbase$i.ior"); + } + delete_ior_files (); +} + +# Delete if there are any .ior files. +sub delete_ior_files { + for ($i = 0; $i < $nr_daemon; ++$i) { + $tg_daemons[$i]->DeleteFile ("$iorbase$i.ior"); + } + $tg_naming->DeleteFile ($ior_nsbase); + $tg_exe_man->DeleteFile ($ior_embase); +} + +sub kill_node_daemons { + for ($i = 0; $i < $nr_daemon; ++$i) { + $DEAMONS[$i]->Kill (); $DEAMONS[$i]->TimedWait (1); + $tg_daemons[$i]->DeleteFile ("$iorbase$i.ior"); + } + for ($i = 0; $i < $nr_daemon; ++$i) { + # in case shutdown did not perform as expected + $tg_daemons[$i]->KillAll ('ciao_componentserver'); + } +} + +sub kill_open_processes { + if ($daemons_running == 1) { + kill_node_daemons (); + } + + if ($em_running == 1) { + $EM->Kill (); $EM->TimedWait (1); + } + + if ($ns_running == 1) { + $NS->Kill (); $NS->TimedWait (1); + } +} + + +sub run_node_daemons { + for ($i = 0; $i < $nr_daemon; ++$i) { + $iorname = "$iorbase$i.ior"; + $iorfile = $iorfiles[$i]; + $port = $port_start+$i; + $nodename = $nodebase . ($i + 1); + $node_host = $tg_daemons[$i]->HostName (); + $iiop = "iiop://$node_host:$port"; + $node_app = "$CIAO_ROOT/bin/ciao_componentserver"; + + $d_cmd = "$DANCE_ROOT/bin/dance_node_manager"; + $d_param = "-ORBEndpoint $iiop -s $node_app -n $nodename=$iorfile -t 30 --domain-nc corbaloc:rir:/NameService --instance-nc corbaloc:rir:/NameService"; + + print "Run node daemon \#$nodename\n"; + $tg_daemons[$i]->SetEnv ("NameServiceIOR", $tg_exe_man->GetEnv ("NameServiceIOR")); + + $DEAMONS[$i] = $tg_daemons[$i]->CreateProcess ($d_cmd, $d_param); + $DEAMONS[$i]->Spawn (); + + if ($tg_daemons[$i]->WaitForFileTimed($iorname, + $tg_daemons[$i]->ProcessStartWaitInterval ()) == -1) { + print STDERR + "ERROR: The ior $iorfile file of node daemon $i could not be found\n"; + for (; $i >= 0; --$i) { + $DEAMONS[$i]->Kill (); $DEAMONS[$i]->TimedWait (1); + } + return -1; + } + } + return 0; +} + +if ($#ARGV == -1) { + opendir(DIR, "."); + @files = grep(/\.cdp$/,readdir(DIR)); + closedir(DIR); +} +else { + @files = @ARGV; +} + +foreach $file (@files) { + if ($file =~ /NoFailure/) { + next; + } + + print "Starting test for deployment $file\n"; + + # determin number of daemons required + if ($file =~ /^(\d+)Node/) { + $nr_daemon = int($1); + } else { + # assume 1 + $nr_daemon = 1; + } + + create_targets (); + init_ior_files (); + + print STDERR "Starting Naming Service\n"; + + my $ns_host = $tg_naming->HostName (); + $NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/Naming_Service", "-m 0 -ORBEndpoint iiop://$ns_host:60000 -o $ior_nsfile"); + $NS->Spawn (); + + if ($tg_naming->WaitForFileTimed ($ior_nsbase, + $tg_naming->ProcessStartWaitInterval ()) == -1) { + print STDERR "ERROR: cannot find naming service IOR file\n"; + $NS->Kill (); $NS->TimedWait (1); + exit 1; + } + + $ns_running = 1; + # Set up NamingService environment + $tg_exe_man->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService"); + $tg_executor->SetEnv ("NameServiceIOR", "corbaloc:iiop:$ns_host:60000/NameService"); + + # Invoke node daemon(s). + print "Invoking $nr_daemon node daemon(s)\n"; + $status = run_node_daemons (); + + if ($status != 0) { + print STDERR "ERROR: Unable to execute the node daemons\n"; + kill_open_processes (); + exit 1; + } + + $daemons_running = 1; + + # Invoke execution manager. + print "Invoking execution manager\n"; + $EM = $tg_exe_man->CreateProcess ("$DANCE_ROOT/bin/dance_execution_manager", + "-e$ior_emfile --domain-nc corbaloc:rir:/NameService"); + $EM->Spawn (); + + if ($tg_exe_man->WaitForFileTimed ($ior_embase, + $tg_exe_man->ProcessStartWaitInterval ()) == -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 -. + # (redirect log so testoutput doesn't show expected errors) + print "Invoking executor - launch the application -\n"; + $E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher", + "-x $file -k file://$ior_emfile -l -ORBLogFile dummy.log"); + $status = $E->SpawnWaitKill (120); + if ($status > 0) { + print "Launch failed as expected\n"; + + print "Teardown the application and attempt relaunch without failure\n"; + $E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher", + "-k file://$ior_emfile -x $file -s"); + $status = $E->SpawnWaitKill (120); + if ($status >= 0) { + # cleanup any leftover comp.servers (might happen when not correctly + # started or torn down) otherwise we won't be able to start new ones + $tg_executor->KillAll ('ciao_componentserver'); + + $file =~ s/Failure.*\.cdp$/NoFailure.cdp/; + + # Invoke executor - restart the application -. + print "Invoking executor - relaunch the application -\n"; + $E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher", + "-x $file -k file://$ior_emfile -l -ORBLogFile dummy.log"); + $status = $E->SpawnWaitKill (120); + if ($status != 0) { + print STDERR "ERROR: Unexpected error from Launch operation [$status]!\n" + } + + $app_running = 1; + + } else { + print STDERR "ERROR: Unexpected error from Teardown operation [$status]!\n"; + } + } + else { + print STDERR "ERROR: Unexpected result from Launch operation [$status]!\n"; + + $app_running = 1; + } + + if ($app_running) { + print "Teardown the application\n"; + $E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher", + "-k file://$ior_emfile -x $file -s"); + $E->SpawnWaitKill (120); + print "Executor finished.\n"; + } + + delete_ior_files (); + kill_open_processes (); +} + +exit $status; |