diff options
Diffstat (limited to 'TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl')
-rwxr-xr-x | TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl b/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl index a98ecea7e6e..2f3e20805c6 100755 --- a/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl +++ b/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl @@ -12,15 +12,27 @@ use PerlACE::Run_Test; $sleeptime = 2; $status = 0; +$iorfile = PerlACE::LocalFile("test.ior"); -$SV = new PerlACE::Process ("Scheduler_Interceptor_Server", "-f test.ior"); -$CL = new PerlACE::Process ("Scheduler_Interceptor_Client", "-f test.ior"); +unlink $iorfile; + +if (PerlACE::is_vxworks_test()) { + $SV = new PerlACE::ProcessVX ("Scheduler_Interceptor_Server", "-f test.ior"); +} +else { + $SV = new PerlACE::Process ("Scheduler_Interceptor_Server", "-f test.ior"); +} +$CL = new PerlACE::Process ("Scheduler_Interceptor_Client", "-f $iorfile"); print STDERR "Starting Server\n"; $SV->Spawn (); -sleep $sleeptime; +if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) { + print STDERR "ERROR: cannot find file <$iorfile>\n"; + $SV->Kill (); + exit 1; +} print STDERR "Starting Client\n"; |