Mon Nov 17 11:57:12 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>

1 files changed, 12 insertions, 28 deletions

diff --git a/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl b/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl
index 3aac2c7ecc9..57d2eb0909d 100755
--- a/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl
+++ b/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl
@@ -1,39 +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 (600);
-    if ($status != 0) {
-        print STDERR "ERROR: test failed, status=$status\n";
-    }
-    return $status;
-}
+$SV = $server->CreateProcess ("Test");
 
-my $status = test("Test");
+$test = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
 
-if ($status == 0) {
-    print STDERR "SUCCESS: All tests passed\n";
-}
-else {
-    print STDERR "ERROR: Some test failed, status=$status\n";
+if ($test != 0) {
+    print STDERR "ERROR: test returned $test\n";
+    exit 1;
 }
-exit $status;
+
+exit 0;