diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-11-11 20:28:51 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-11-11 20:28:51 +0000 |
| commit | c1c88cc09512520dbaec0dc79b4e883ac62410a9 (patch) | |
| tree | 43165223c7fedcb23ea62dd5ffa825ac66436106 | |
| parent | ec364532e11919373a17dc661821df3b350fa271 (diff) | |
| download | ATCD-c1c88cc09512520dbaec0dc79b4e883ac62410a9.tar.gz | |
General updates, including switching to the ACE class and using .\ or ./
before executable names.
| -rwxr-xr-x | TAO/tests/DynAny_Test/run_test.pl | 2 | ||||
| -rwxr-xr-x | TAO/tests/Multiple_Inheritance/run_test.pl | 4 | ||||
| -rwxr-xr-x | TAO/tests/OctetSeq/run_test.pl | 2 | ||||
| -rwxr-xr-x | TAO/tests/Param_Test/run_test.pl | 4 |
4 files changed, 6 insertions, 6 deletions
diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl index ec1a6c91296..d16d5907fe5 100755 --- a/TAO/tests/DynAny_Test/run_test.pl +++ b/TAO/tests/DynAny_Test/run_test.pl @@ -13,7 +13,7 @@ sub run_test { my $type = shift(@_); - system (".".$DIR_SEPARATOR."basic_test -t $type"); + system ($EXEPREFIX."basic_test -t $type"); } diff --git a/TAO/tests/Multiple_Inheritance/run_test.pl b/TAO/tests/Multiple_Inheritance/run_test.pl index ac0b3c94a33..abaeff69391 100755 --- a/TAO/tests/Multiple_Inheritance/run_test.pl +++ b/TAO/tests/Multiple_Inheritance/run_test.pl @@ -8,11 +8,11 @@ unshift @INC, '../../../bin'; require ACEutils; $iorfile = "server.ior"; -$SV = Process::Create ("server$Process::EXE_EXT", " -f $iorfile"); +$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", " -f $iorfile"); ACE::waitforfile ($iorfile); -$status = system ("client$Process::EXE_EXT -f $iorfile"); +$status = system ($EXEPREFIX."client$Process::EXE_EXT -f $iorfile"); $SV->Kill (); $SV->Wait (); diff --git a/TAO/tests/OctetSeq/run_test.pl b/TAO/tests/OctetSeq/run_test.pl index 0151f3fc7c7..bf18b76c615 100755 --- a/TAO/tests/OctetSeq/run_test.pl +++ b/TAO/tests/OctetSeq/run_test.pl @@ -7,6 +7,6 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' unshift @INC, '../../../bin'; require ACEutils; -$status = system ("OctetSeq$Process::EXE_EXT -n 16 -l 32 -h 512 -s 4"); +$status = system ($EXEPREFIX."OctetSeq$Process::EXE_EXT -n 16 -l 32 -h 512 -s 4"); exit $status; diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl index 35b85fea10d..45b380d620c 100755 --- a/TAO/tests/Param_Test/run_test.pl +++ b/TAO/tests/Param_Test/run_test.pl @@ -19,13 +19,13 @@ sub run_test { my $type = shift(@_); - $SV = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT, + $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, "$debug -ORBobjrefstyle url -ORBport $port -o ". $iorfile); ACE::waitforfile ($iorfile); - system (".".$DIR_SEPARATOR."client $debug -f $iorfile -i $invocation -t ". + system ($EXEPREFIX."client $debug -f $iorfile -i $invocation -t ". "$type -n $num"); # @@ |