diff options
| author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-05-21 02:49:03 +0000 |
|---|---|---|
| committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-05-21 02:49:03 +0000 |
| commit | 0e388b72c7c0affd3ecdc7c1511ff62f2ade8e03 (patch) | |
| tree | 70f8f8d6891899bcc4075d0c62d4650f4371face /TAO/orbsvcs/tests/ImplRepo | |
| parent | 7ee61f81f537ffd7f7bf03ee026b4730d08b160f (diff) | |
| download | ATCD-0e388b72c7c0affd3ecdc7c1511ff62f2ade8e03.tar.gz | |
moved comment line(s) from head of file so that it is not interpreted as a csh file
Diffstat (limited to 'TAO/orbsvcs/tests/ImplRepo')
| -rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/run_test.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl index a5513b9f312..b37cd2b6179 100755 --- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl +++ b/TAO/orbsvcs/tests/ImplRepo/run_test.pl @@ -1,9 +1,10 @@ -#$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; @@ -35,7 +36,7 @@ sub airplane_test sub airplane_ir_test { - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, + $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0"); ACE::waitforfile ($implrepo_ior); @@ -67,7 +68,7 @@ sub nestea_test sub nestea_ir_test { - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, + $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0"); ACE::waitforfile ($implrepo_ior); @@ -84,7 +85,7 @@ sub nestea_ir_test sub both_ir_test { - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, + $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0"); ACE::waitforfile ($implrepo_ior); @@ -125,27 +126,27 @@ for ($i = 0; $i <= $#ARGV; $i++) } if ($ARGV[$i] eq "airplane") { - airplane_test (); + airplane_test (); exit; } if ($ARGV[$i] eq "airplane_ir") { - airplane_ir_test (); + airplane_ir_test (); exit; } if ($ARGV[$i] eq "nestea") { - nestea_test (); + nestea_test (); exit; } if ($ARGV[$i] eq "nestea_ir") { - nestea_ir_test (); + nestea_ir_test (); exit; } if ($ARGV[$i] eq "both_ir") { - both_ir_test (); + both_ir_test (); exit; } |