summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2011-12-07 12:16:56 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2011-12-07 12:16:56 +0000
commitdcefff8a7c4b2a0b895af37ae532bec6d73185d2 (patch)
treee6a1d716db4d46b43319ddbe06dc323217ed0120
parent6a9e2c788f4464555fc5090078bd49bf92252b05 (diff)
downloadATCD-dcefff8a7c4b2a0b895af37ae532bec6d73185d2.tar.gz
Fuzz
-rwxr-xr-xCIAO/connectors/ami4ccm/examples/Hello/descriptors/run_test.pl44
-rwxr-xr-xCIAO/connectors/ami4ccm/tests/InterMulti/descriptors/run_test.pl44
-rwxr-xr-xCIAO/connectors/ami4ccm/tests/UsesMulti/descriptors/run_test.pl44
3 files changed, 66 insertions, 66 deletions
diff --git a/CIAO/connectors/ami4ccm/examples/Hello/descriptors/run_test.pl b/CIAO/connectors/ami4ccm/examples/Hello/descriptors/run_test.pl
index f50a6c5ddcb..e1ac985ad30 100755
--- a/CIAO/connectors/ami4ccm/examples/Hello/descriptors/run_test.pl
+++ b/CIAO/connectors/ami4ccm/examples/Hello/descriptors/run_test.pl
@@ -149,53 +149,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
@@ -203,24 +203,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 (2 * $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) {
@@ -229,18 +229,18 @@ foreach $file (@files) {
exit 1;
}
}
-
+
print "Sleeping 90 seconds to allow task to complete\n";
sleep (90);
-
+
# 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 ();
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 ();
diff --git a/CIAO/connectors/ami4ccm/tests/UsesMulti/descriptors/run_test.pl b/CIAO/connectors/ami4ccm/tests/UsesMulti/descriptors/run_test.pl
index 9c8cbe02a48..30ea89f152e 100755
--- a/CIAO/connectors/ami4ccm/tests/UsesMulti/descriptors/run_test.pl
+++ b/CIAO/connectors/ami4ccm/tests/UsesMulti/descriptors/run_test.pl
@@ -147,53 +147,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
@@ -201,24 +201,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) {
@@ -227,18 +227,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 (3 * $tg_executor->ProcessStartWaitInterval ());
-
+
if ($pl_status != 0) {
print STDERR "ERROR: dance_plan_launcher returned $pl_status\n";
kill_open_processes ();