summaryrefslogtreecommitdiff
path: root/TAO/tests/ORB_Local_Config/Bug_2612
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2008-11-17 11:57:45 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2008-11-17 11:57:45 +0000
commitac5c2ae24122d585787fba28a321d901dc5234b4 (patch)
tree024f19d95a5fd42ab88fc6de8a766dfdbbe62863 /TAO/tests/ORB_Local_Config/Bug_2612
parent709ed56d7be3f59eec5d3c770dcd9e8370613fe6 (diff)
downloadATCD-ac5c2ae24122d585787fba28a321d901dc5234b4.tar.gz
Mon Nov 17 11:57:12 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/ORB_Local_Config/Bug_2612')
-rwxr-xr-xTAO/tests/ORB_Local_Config/Bug_2612/run_test.pl40
1 files changed, 11 insertions, 29 deletions
diff --git a/TAO/tests/ORB_Local_Config/Bug_2612/run_test.pl b/TAO/tests/ORB_Local_Config/Bug_2612/run_test.pl
index 4143eac7f72..57d2eb0909d 100755
--- a/TAO/tests/ORB_Local_Config/Bug_2612/run_test.pl
+++ b/TAO/tests/ORB_Local_Config/Bug_2612/run_test.pl
@@ -1,41 +1,23 @@
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
+ & eval 'exec perl -S $0 $argv:q'
+ if 0;
# $Id$
# -*- perl -*-
use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
-# Set the library path for the client to be able to load the library
-PerlACE::add_lib_path ('../lib');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+$server->AddLibPath ('../lib');
-sub test($)
-{
- (my $executable, my $arguments) = @_;
- my $t1;
- if (PerlACE::is_vxworks_test()) {
- $t1 = new PerlACE::ProcessVX ($executable, ($arguments ? $arguments : ""));
- }
- else {
- $t1 = new PerlACE::Process ($executable, ($arguments ? $arguments : ""));
- }
- my $status = $t1->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation);
- if ($status != 0) {
- print STDERR "ERROR: test failed, status=$status\n";
- }
- return $status;
-}
+$SV = $server->CreateProcess ("Test");
-my $status = 0;
-$status |= test("Test");
+$test = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
-if ($status == 0) {
- print STDERR "SUCCESS: All tests passed\n";
+if ($test != 0) {
+ print STDERR "ERROR: test returned $test\n";
+ exit 1;
}
-else {
- print STDERR "ERROR: Some test failed, status=$status\n";
-}
-exit $status;
+exit 0;