summaryrefslogtreecommitdiff
path: root/TAO/examples/Logging/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/examples/Logging/run_test.pl')
-rwxr-xr-xTAO/examples/Logging/run_test.pl16
1 files changed, 13 insertions, 3 deletions
diff --git a/TAO/examples/Logging/run_test.pl b/TAO/examples/Logging/run_test.pl
index f28823a5db7..3d2195c015d 100755
--- a/TAO/examples/Logging/run_test.pl
+++ b/TAO/examples/Logging/run_test.pl
@@ -13,13 +13,23 @@ use PerlACE::Run_Test;
$status = 0;
# amount of delay between running the servers
-$sleeptime = 7;
+$sleeptime = 15;
-$SV = new PerlACE::Process ("Logging_Service");
+if (PerlACE::is_vxworks_test()) {
+ $SV = new PerlACE::ProcessVX ("Logging_Service");
+}
+else {
+ $SV = new PerlACE::Process ("Logging_Service");
+}
$CL = new PerlACE::Process ("Logging_Test");
# Start the service
-$SV->Spawn ();
+$server = $SV->Spawn ();
+
+if ($server != 0) {
+ print STDERR "ERROR: server returned $server\n";
+ exit 1;
+}
# Give the service time to settle
sleep $sleeptime;