diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-12-07 12:16:56 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2011-12-07 12:16:56 +0000 |
commit | dcefff8a7c4b2a0b895af37ae532bec6d73185d2 (patch) | |
tree | e6a1d716db4d46b43319ddbe06dc323217ed0120 | |
parent | 6a9e2c788f4464555fc5090078bd49bf92252b05 (diff) | |
download | ATCD-dcefff8a7c4b2a0b895af37ae532bec6d73185d2.tar.gz |
Fuzz
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 (); |