summaryrefslogtreecommitdiff
path: root/CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl')
-rwxr-xr-xCIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl44
1 files changed, 22 insertions, 22 deletions
diff --git a/CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl b/CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl
index e066f1ba945..4708970fa5a 100755
--- a/CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl
+++ b/CIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl
@@ -148,53 +148,53 @@ foreach $file (@files) {
print "=============================\nStarting test for deployment $file\n================================\n";
# Invoke naming service
-
+
$NS = $tg_naming->CreateProcess ("$TAO_ROOT/orbsvcs/Naming_Service/tao_cosnaming", " -ORBEndpoint iiop://localhost:60003 -o $ior_nsfile");
-
+
print STDERR "Starting Naming Service with -ORBEndpoint iiop://localhost:60003 -o ns.ior\n";
-
+
$ns_status = $NS->Spawn ();
-
+
if ($ns_status != 0) {
print STDERR "ERROR: Unable to execute the naming service\n";
kill_open_processes ();
exit 1;
}
-
+
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
$ENV{"NameServiceIOR"} = "corbaloc:iiop:localhost:60003/NameService";
-
+
# Invoke node daemon.
print "Invoking node daemon\n";
$status = run_node_daemons ();
-
+
if ($status != 0) {
print STDERR "ERROR: Unable to execute the node daemon\n";
kill_open_processes ();
exit 1;
}
-
+
$daemons_running = 1;
-
+
# Invoke execution manager.
print "Invoking execution manager (dance_execution_manager.exe) with -e$ior_emfile\n";
$EM = $tg_exe_man->CreateProcess ("$DANCE_ROOT/bin/dance_execution_manager",
"-e$ior_emfile --domain-nc corbaloc:rir:/NameService");
$em_status = $EM->Spawn ();
-
+
if ($em_status != 0) {
print STDERR "ERROR: dance_execution_manager returned $em_status";
exit 1;
}
-
+
if ($tg_exe_man->WaitForFileTimed ($ior_embase,
$tg_exe_man->ProcessStartWaitInterval ()) == -1) {
print STDERR
@@ -202,24 +202,24 @@ foreach $file (@files) {
kill_open_processes ();
exit 1;
}
-
+
$em_running = 1;
-
+
# Invoke executor - start the application -.
print "Invoking executor - launch the application -\n";
-
+
print "Start dance_plan_launcher.exe with -x $file -k file://$ior_emfile\n";
$E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher",
"-x $file -k file://$ior_emfile");
-
+
$pl_status = $E->SpawnWaitKill (3 * $tg_executor->ProcessStartWaitInterval ());
-
+
if ($pl_status != 0) {
print STDERR "ERROR: dance_plan_launcher returned $pl_status\n";
kill_open_processes ();
exit 1;
}
-
+
for ($i = 0; $i < $nr_daemon; ++$i) {
if ($tg_daemons[$i]->WaitForFileTimed ($iorbases[$i],
$tg_daemons[$i]->ProcessStopWaitInterval ()) == -1) {
@@ -228,18 +228,18 @@ foreach $file (@files) {
exit 1;
}
}
-
+
print "Sleeping 30 seconds to allow task to complete\n";
sleep (30);
-
+
# Invoke executor - stop the application -.
print "Invoking executor - stop the application -\n";
print "by running dance_plan_launcher.exe with -k file://$ior_emfile -x $file\n";
-
+
$E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher",
"-k file://$ior_emfile -x $file -s");
$pl_status = $E->SpawnWaitKill ($tg_executor->ProcessStartWaitInterval ());
-
+
if ($pl_status != 0) {
print STDERR "ERROR: dance_plan_launcher returned $pl_status\n";
kill_open_processes ();