diff options
author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2007-04-02 15:00:35 +0000 |
---|---|---|
committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2007-04-02 15:00:35 +0000 |
commit | 08e3a4e1a5d576e0c71b8fced1d471f2f4ad9795 (patch) | |
tree | 76c78a868c1284394c7c39f22a26b2bf5f1bad5a /TAO/tests/Bug_2677_Regression/run_test.pl | |
parent | 35bb095485480b47b3ac649acfcbaa9d297451bd (diff) | |
download | ATCD-08e3a4e1a5d576e0c71b8fced1d471f2f4ad9795.tar.gz |
ChangeLogTag: Mon Apr 2 15:00:08 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'TAO/tests/Bug_2677_Regression/run_test.pl')
-rwxr-xr-x | TAO/tests/Bug_2677_Regression/run_test.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/TAO/tests/Bug_2677_Regression/run_test.pl b/TAO/tests/Bug_2677_Regression/run_test.pl new file mode 100755 index 00000000000..2e9a4eb92bc --- /dev/null +++ b/TAO/tests/Bug_2677_Regression/run_test.pl @@ -0,0 +1,25 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +use lib "$ENV{ACE_ROOT}/bin"; +use PerlACE::Run_Test; + +## Avoid code duplication by determining the process type and +## storing it as a string for use later. +my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' : + 'PerlACE::Process'); + +## First test that the -ORBSvcConfDirective works with good options. +my $SV = $class->new('server'); +$SV->Spawn (); +my $server = $SV->WaitKill(20); +if ($server != 0) { + print STDERR "ERROR: server returned $server\n"; + exit(1); +} + +exit(0); |