diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-05-29 09:40:04 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-05-29 09:40:04 +0000 |
| commit | 5a71d5f3f5542e887aa0c97ed8fe0b2d62fcabce (patch) | |
| tree | 582c6a040ac8a649c4286462d33c031f2bbc9e1e /TAO/tests/RTCORBA/Server_Protocol | |
| parent | 92161825eb11f1b37a7921fb2c2f7e2d5a676e8c (diff) | |
| download | ATCD-5a71d5f3f5542e887aa0c97ed8fe0b2d62fcabce.tar.gz | |
Tue May 29 09:39:55 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/RTCORBA/Server_Protocol')
| -rwxr-xr-x | TAO/tests/RTCORBA/Server_Protocol/run_test.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl index d7679672dab..3ebdb34632b 100755 --- a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl +++ b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl @@ -7,8 +7,8 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; - -$iorfile = PerlACE::LocalFile ("test.ior"); +$iorfilebase = "test.ior"; +$iorfile = PerlACE::LocalFile ("$iorfilebase"); unlink $iorfile; $status = 0; @@ -75,7 +75,12 @@ foreach $o (@server_opts) { print STDERR "\n\n----------------------------------\n"; print STDERR " ".$comments[$test_number]; - my $args = "$o -o $iorfile"; + if (PerlACE::is_vxworks_test()) { + my $args = "$o -o $iorfilebase"; + } + else { + my $args = "$o -o $iorfile"; + } unlink $iorfile; |