diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Time/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Time/run_test.pl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/TAO/orbsvcs/tests/Time/run_test.pl b/TAO/orbsvcs/tests/Time/run_test.pl index 6e7183b63f9..7a0138e8b4f 100755 --- a/TAO/orbsvcs/tests/Time/run_test.pl +++ b/TAO/orbsvcs/tests/Time/run_test.pl @@ -1,10 +1,9 @@ +#$Id$ +# -*- perl -*- eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ -# -*- perl -*- - use lib "../../../../bin"; require ACEutils; @@ -32,7 +31,7 @@ sub time_service_test_using_naming_service sleep 10; $status = system ($EXEPREFIX."client".$Process::EXE_EXT. - ""); + ""); $SV1->Kill (); $SV2->Kill (); @@ -43,20 +42,20 @@ sub time_service_test_using_naming_service sub time_service_test_using_files { $SV1 = Process::Create ($time_dir."server".$Process::EXE_EXT, - "-o $server_ior"); + "-o $server_ior"); ACE::waitforfile ($server_ior); sleep 5; $SV2 = Process::Create ($time_dir."clerk".$Process::EXE_EXT, - "-f $server_ior -o clerk_ior -t 2"); + "-f $server_ior -o clerk_ior -t 2"); ACE::waitforfile ($clerk_ior); sleep 10; $status = system ($EXEPREFIX."client".$Process::EXE_EXT. - " -f clerk_ior"); + " -f clerk_ior"); $SV1->Kill (); $SV2->Kill (); @@ -70,7 +69,7 @@ sub time_service_test_using_files sub time_service_test_using_ir { $ir_dir = "..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR; - $IR = Process::Create ($ir_dir."ImplRepo_Service".$Process::EXE_EXT, + $IR = Process::Create ($ir_dir."ImplRepo_Service".$Process::EXE_EXT, "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 1"); ACE::waitforfile ($implrepo_ior); @@ -83,7 +82,7 @@ sub time_service_test_using_ir sleep 10; $SV2 = Process::Create ($time_dir."clerk".$Process::EXE_EXT, - "-f $server_ior -o clerk_ior -ORBobjrefstyle url"); + "-f $server_ior -o clerk_ior -ORBobjrefstyle url"); sleep 10; |