diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Throughput/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Throughput/run_test.pl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl deleted file mode 100755 index b5e952dd4d8..00000000000 --- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl +++ /dev/null @@ -1,34 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -unshift @INC, '../../../../bin'; -require Process; - -$NS_ior = "NameService.ior"; -$sleeptime = 5; - -$NS = Process::Create ("..".$DIR_SEPARATOR. - "..".$DIR_SEPARATOR. - "Naming_Service".$DIR_SEPARATOR. - "Naming_Service".$Process::EXE_EXT. - " -o $NS_ior "); - -sleep $sleeptime; - -$T = Process::Create ($EXEPREFIX."ECT_Throughput".$Process::EXE_EXT - . " -ORBsvcconf ec.conf -m new -n 1000 "); - -sleep $sleeptime; - -$T->Wait (); - -$NS->Kill (); $NS->Wait (); - -unlink $NS_ior; - -# @@ Capture the errors from the processes. -exit 0; |