diff options
Diffstat (limited to 'TAO/examples/Logging/run_test.pl')
-rwxr-xr-x | TAO/examples/Logging/run_test.pl | 16 |
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; |