1 files changed, 8 insertions, 12 deletions
diff --git a/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl b/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl
index 5da7912d505..761cda62243 100755
--- a/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl
+++ b/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl
@@ -6,27 +6,23 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 
 $continuous = ($^O eq 'hpux');
 
 print STDERR "\n********** RTCORBA Destroy_Thread_Pool Unit Test **********\n\n";
 
-if (PerlACE::is_vxworks_test()) {
-    $T = new PerlACE::ProcessVX ("Destroy_Thread_Pool");
-}
-else {
-    $T = new PerlACE::Process ("Destroy_Thread_Pool");    
-}
-
+$SV = $server->CreateProcess ("Destroy_Thread_Pool");
 if ($continuous) {
-  $T->Arguments("-ORBSvcConf continuous$PerlACE::svcconf_ext");
+    $SV->Arguments("-ORBSvcConf continuous$PerlACE::svcconf_ext");
 }
 
-$test = $T->SpawnWaitKill (60);
+$server_status = $SV->SpawnWaitKill (60);
 
-if ($test != 0) {
-    print STDERR "ERROR: test returned $test\n";
+if ($server_status != 0) {
+    print STDERR "ERROR: test returned $server_status\n";
     exit 1;
 }