Tue Nov 10 12:36:57 UTC 2009 Denis Budko <denis.budko@remedy.nl>

        * tests/IORManipulation/filter/run_test.pl
        * tests/Connection_Failure/run_test.pl
        * orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl
        * orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl
        * orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl
        * orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl
        * orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl
        * orbsvcs/tests/unit/Notify/MC/Control/run_test.pl
        * orbsvcs/tests/unit/Trading/Interpreter/run_test.pl
        * orbsvcs/tests/Bug_2074_Regression/run_test.pl
        * tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl
        * tests/Optimized_Connection/run_test.pl
        * performance-tests/Latency/Collocation/run_test.pl
        * performance-tests/POA/Object_Creation_And_Registration/run_test.pl
        * orbsvcs/tests/Bug_2137_Regression/run_test.pl
        * orbsvcs/tests/Bug_2377_Regression/run_test.pl
        * orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl

          Simple porting to new test framework.

21 files changed, 376 insertions, 236 deletions

diff --git a/TAO/ChangeLog b/TAO/ChangeLog
index 7fb765d3ff3..f245ef8cb44 100644
--- a/TAO/ChangeLog
+++ b/TAO/ChangeLog
@@ -1,3 +1,25 @@
+Tue Nov 10 12:36:57 UTC 2009  Denis Budko  <denis.budko@remedy.nl>
+
+        * tests/IORManipulation/filter/run_test.pl
+        * tests/Connection_Failure/run_test.pl
+        * orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl
+        * orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl
+        * orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl
+        * orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl
+        * orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl
+        * orbsvcs/tests/unit/Notify/MC/Control/run_test.pl
+        * orbsvcs/tests/unit/Trading/Interpreter/run_test.pl
+        * orbsvcs/tests/Bug_2074_Regression/run_test.pl
+        * tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl
+        * tests/Optimized_Connection/run_test.pl
+        * performance-tests/Latency/Collocation/run_test.pl
+        * performance-tests/POA/Object_Creation_And_Registration/run_test.pl
+        * orbsvcs/tests/Bug_2137_Regression/run_test.pl
+        * orbsvcs/tests/Bug_2377_Regression/run_test.pl
+        * orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl
+
+          Simple porting to new test framework.
+
 Mon Nov  9 19:21:53 UTC 2009  Jeff Parsons <j.parsons@vanderbilt.edu>
 
         * TAO_IDL/be_include/be_field.h:
diff --git a/TAO/bin/tao_orb_tests.lst b/TAO/bin/tao_orb_tests.lst
index 76ffa5d859c..26353969401 100644
--- a/TAO/bin/tao_orb_tests.lst
+++ b/TAO/bin/tao_orb_tests.lst
@@ -280,14 +280,14 @@ TAO/tests/POA/Loader/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !STAT
 TAO/tests/POA/RootPOA/run_test.pl:
 TAO/tests/DiffServ/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO
 TAO/tests/IORManipulation/run_test.pl:
-TAO/tests/IORManipulation/filter/run_test.pl: !LabVIEW_RT !WinCE !FUZZ
+TAO/tests/IORManipulation/filter/run_test.pl: !LabVIEW_RT !WinCE
 TAO/tests/Policies/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !LabVIEW_RT !WinCE !FUZZ
 TAO/tests/Timeout/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO
 TAO/tests/MT_Timeout/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !OpenVMS_IA64Crash !LabVIEW_RT !WinCE !FUZZ
 TAO/tests/Timed_Buffered_Oneways/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ
 TAO/tests/Single_Read/run_test.pl: !LabVIEW_RT !WinCE !FUZZ
 TAO/tests/Connection_Timeout/run_test.pl: !VxWorks !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO
-#TAO/tests/Connection_Failure/run_test.pl ! Timesout for good reasons !LabVIEW_RT !WinCE !FUZZ
+#TAO/tests/Connection_Failure/run_test.pl ! Timesout for good reasons !LabVIEW_RT !WinCE
 TAO/tests/MProfile_Connection_Timeout/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !LabVIEW_RT !WinCE !FUZZ
 TAO/tests/Codec/run_test.pl
 TAO/tests/Bug_1693_Test/run_test.pl
@@ -371,7 +371,7 @@ TAO/tests/Servant_To_Reference_Test/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORB
 TAO/tests/Sequence_Iterators/run_test.pl:
 TAO/tests/Sequence_Unit_Tests/run_test.pl:
 TAO/tests/Typedef_String_Array/run_test.pl:
-TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl: !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !VxWorks_RTP
+TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl: !CORBA_E_MICRO !LabVIEW_RT !WinCE !VxWorks_RTP
 TAO/tests/CodeSets/simple/run_test.pl: !GIOP10 !STATIC
 TAO/tests/Hang_Shutdown/run_test.pl: !ST !ACE_FOR_TAO
 TAO/tests/Any/Recursive/run_test.pl: !STATIC !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO
diff --git a/TAO/bin/tao_other_tests.lst b/TAO/bin/tao_other_tests.lst
index c5194026a77..d47e92a10f7 100644
--- a/TAO/bin/tao_other_tests.lst
+++ b/TAO/bin/tao_other_tests.lst
@@ -26,7 +26,7 @@ TAO/performance-tests/Sequence_Latency/DSI/run_test.pl: !MINIMUM !CORBA_E_COMPAC
 TAO/performance-tests/Sequence_Latency/DII/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !Win32 !ACE_FOR_TAO !OpenVMS !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/performance-tests/Sequence_Latency/Deferred/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !Win32 !ACE_FOR_TAO !OpenVMS !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/performance-tests/Throughput/run_test.pl: !Win32 !ACE_FOR_TAO !OpenVMS !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl: !Win32 !ACE_FOR_TAO !OpenVMS !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl: !Win32 !ACE_FOR_TAO !OpenVMS !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/performance-tests/RTCorba/Oneways/Reliable/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !Win32 !OpenVMS !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/performance-tests/Protocols/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !STATIC !Win32 !ACE_FOR_TAO !OpenVMS !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/examples/Simple/bank/run_test.pl: !NO_MESSAGING !CORBA_E_MICRO
@@ -57,14 +57,14 @@ TAO/orbsvcs/tests/Bug_1395_Regression/run_test.pl: !LynxOS !MINIMUM !CORBA_E_COM
 TAO/orbsvcs/tests/Bug_1436_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !NO_IFR !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !WCHAR
 TAO/orbsvcs/tests/Bug_1437_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !NO_MESSAGING !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !WCHAR
 TAO/orbsvcs/tests/Bug_1630_Regression/run_test.pl: !NO_IFR !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !WCHAR
-TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !NO_MESSAGING !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !NO_MESSAGING !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/orbsvcs/tests/Bug_2247_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2248_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2285_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2285_Regression/run_test2.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2287_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2316_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !STATIC !SUNCC5_1 !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !STATIC !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !STATIC !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/orbsvcs/tests/Bug_2615_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_2777_Regression/run_test.pl: !MINIMUM !CORBA_E_MICRO !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Bug_3215_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
@@ -80,7 +80,7 @@ TAO/orbsvcs/tests/Simple_Naming/run_test.pl: !ST !SUNCC5_1 !NO_MESSAGING !ACE_FO
 TAO/orbsvcs/tests/Simple_Naming/run_test_ffp.pl: !ST !SUNCC5_1 !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !NO_MESSAGING !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Redundant_Naming/run_test.pl: !ST !SUNCC5_1 !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Trading/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !SUNCC5_1 !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl: !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl: !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/orbsvcs/tests/Event/Basic/run_test.pl: !ST !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Event/Performance/run_test.pl: !ST !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Event/UDP/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ACE_FOR_TAO !NO_DIOP !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
@@ -92,7 +92,7 @@ TAO/orbsvcs/tests/Event/Mcast/RTEC_MCast_Federated/run_test.pl -ipv6: IPV6 !NO_M
 TAO/orbsvcs/tests/FaultTolerance/GroupRef_Manipulation/run_test.pl:!MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/orbsvcs/tests/FaultTolerance/IOGR/run_test.pl:!MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/FaultTolerance/IOGRManipulation/run_test.pl:!MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !DISABLE_INTERCEPTORS !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl:  !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !WCHAR !NO_IFR !STATIC !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/InterfaceRepo/IDL3_Test/run_test.pl:  !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !WCHAR !NO_IFR !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl:  !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !WCHAR !NO_IFR !ACE_FOR_TAO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
@@ -209,12 +209,12 @@ TAO/examples/PluggableUDP/tests/SimplePerformance/run_test_ipv6.pl: IPV6 !QNX !N
 TAO/examples/PluggableUDP/tests/SimplePerformance/run_test.pl: !QNX !NO_DIOP !ACE_FOR_TAO !LabVIEW_RT !WinCE !FUZZ
 TAO/examples/PluggableUDP/tests/Performance/run_test.pl: !QNX !ST !NO_DIOP !ACE_FOR_TAO !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ
 TAO/examples/PluggableUDP/tests/Performance/run_test_ipv6.pl: IPV6 !QNX !ST !NO_DIOP !ACE_FOR_TAO !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl: !STATIC !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ !LynxOS
+TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
+TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl: !STATIC !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !LynxOS
 TAO/orbsvcs/tests/unit/Notify/MC/MonitorManager/run_test.pl: !ST !STATIC !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
-TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
+TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
+TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl: !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE
 TAO/orbsvcs/tests/Notify/MC/run_test.pl: !ST !STATIC !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/tests/Simple_Naming/run_test_ipv6.pl: IPV6 !ST !SUNCC5_1 !NO_MESSAGING !ACE_FOR_TAO !LynxOS !CORBA_E_MICRO !VxWorks !VxWorks_RTP !LabVIEW_RT !WinCE !FUZZ
 TAO/orbsvcs/DevGuideExamples/EventServices/OMG_Basic/run_test.pl: !MINIMUM !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
@@ -238,7 +238,7 @@ TAO/orbsvcs/DevGuideExamples/Security/SecurityUnawareApp/run_test.pl: SSL !STATI
 TAO/orbsvcs/DevGuideExamples/NamingService/Messenger/run_test.pl: !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Client/run_test.pl: !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Context_Ext/run_test.pl: !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
-TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl: !ST !NO_MCAST !NO_MESSAGING !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ
+TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl: !ST !NO_MCAST !NO_MESSAGING !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE
 TAO/orbsvcs/DevGuideExamples/NamingService/corbaloc_Messenger/run_test.pl: !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/orbsvcs/DevGuideExamples/NamingService/corbaname_Messenger/run_test.pl: !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
 TAO/orbsvcs/DevGuideExamples/ValueTypes/Notify/run_test.pl: !ST !MINIMUM !VxWorks !VxWorks_RTP !CORBA_E_COMPACT !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ !LynxOS
diff --git a/TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl b/TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl
index e0733c60dc9..7f6165b2137 100755
--- a/TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl
+++ b/TAO/orbsvcs/DevGuideExamples/NamingService/Naming_Server/run_test.pl
@@ -1,20 +1,27 @@
-# $Id$
-
 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;
 
-use Env (ACE_ROOT);
-use lib "$ACE_ROOT/bin";
-use PerlACE::Run_Test;
+# $Id$
+# -*- perl -*-
 
-$CS = new PerlACE::Process("NamingMessenger");  
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::TestTarget;
 
-if ($CS->SpawnWaitKill(10) != 0) {
-   exit 1;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
 }
 
-exit 0;
+my $service = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 
+$CS = $service->CreateProcess ("NamingMessenger", "-ORBdebuglevel $debug_level");
 
+if ($CS->SpawnWaitKill(10) != 0) {
+   exit 1;
+}
 
+exit $status;
diff --git a/TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl b/TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl
index c8362a0a0d7..f2ca9255e84 100755
--- a/TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl
+++ b/TAO/orbsvcs/tests/Bug_2074_Regression/run_test.pl
@@ -1,26 +1,32 @@
 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;
 
-if (PerlACE::is_vxworks_test()) {
-    $SV = new PerlACE::ProcessVX ("test", "");
-}
-else {
-    $SV = new PerlACE::Process ("test", "");
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
 }
 
-$SV->Spawn ();
+my($prog) = 'test';
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-$server = $SV->WaitKill (120);
+$status_server = $SV->SpawnWaitKill (120);
 
-if ($server != 0) {
-    print STDERR "ERROR: server returned $server\n";
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
     $status = 1;
 }
 
diff --git a/TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl b/TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl
index f23e3133a69..dcf02127af2 100755
--- a/TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl
+++ b/TAO/orbsvcs/tests/Bug_2137_Regression/run_test.pl
@@ -1,34 +1,35 @@
 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;
 
-# -*- perl -*-
 # $Id$
+# -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 print STDERR "\n\n==== Running Bug_2137_Regression (FT ::is_equivalent) test\n";
 
-if (PerlACE::is_vxworks_test())
-{
-    $T = new PerlACE::ProcessVX ("client");
-}
-else
-{
-    $T = new PerlACE::Process ("client");
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
 }
 
-$test = $T->SpawnWaitKill (15);
+my $client = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 
-if ($test != 0)
-{
-    print STDERR "ERROR: Bug_2137_Regression test returned $test\n";
-    exit 1;
-}
-else
-{
-    print STDERR "SUCCESS: Bug_2137_Regression test returned $test\n";
+$CL = $client->CreateProcess ("client");
+
+$client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval());
+
+if ($client_status != 0) {
+    print STDERR "ERROR: client returned $client_status\n";
+    $status = 1;
 }
 
-exit 0;
+print STDERR "SUCCESS: Bug_2137_Regression test returned $test\n";
+
+exit $status;
diff --git a/TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl b/TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl
index e905310958b..48b71e31fca 100755
--- a/TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl
+++ b/TAO/orbsvcs/tests/Bug_2377_Regression/run_test.pl
@@ -6,19 +6,30 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 $status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$T = $test->CreateProcess("uipmc_test",
+    			"-ORBdebuglevel $debug_level ".
+    			"-u corbaloc:miop:1.0\@1.0-cdmwftdomain-1/225.1.1.8:5555 " .
+    			"-c corbaloc:miop:1.0\@1.0-cdmwftdomain-1/225.1.1.7:5555");
 
-$HELLO = new PerlACE::Process ("uipmc_test",
-    "-u corbaloc:miop:1.0\@1.0-cdmwftdomain-1/225.1.1.8:5555 " .
-    "-c corbaloc:miop:1.0\@1.0-cdmwftdomain-1/225.1.1.7:5555");
 
-$prog = $HELLO->SpawnWaitKill (20);
+$test_status = $T->SpawnWaitKill (20);
 
-if ($prog != 0) {
+if ($test_status != 0) {
     print STDERR "ERROR: uipmc_test returned $prog\n";
     $status = 1;
 }
 
-exit $status;
+exit $status;
\ No newline at end of file
diff --git a/TAO/orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl b/TAO/orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl
index 87d438c4a96..d5e2f2a0d7f 100755
--- a/TAO/orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl
+++ b/TAO/orbsvcs/tests/Bug_2377_Regression/run_test_ipv6.pl
@@ -6,19 +6,30 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 $status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$T = $test->CreateProcess("uipmc_test",
+    			"-ORBdebuglevel $debug_level ".
+    			"-u corbaloc:miop:1.0\@1.0-cdmwftdomain-1/[FF01:0:0:0:0:0:25:335]:3977 " .
+    			"-c corbaloc:miop:1.0\@1.0-cdmwftdomain-1/[FF01:0:0:0:0:0:25:334]:3977");
 
-$HELLO = new PerlACE::Process ("uipmc_test",
-    "-u corbaloc:miop:1.0\@1.0-cdmwftdomain-1/[FF01:0:0:0:0:0:25:335]:3977 " .
-    "-c corbaloc:miop:1.0\@1.0-cdmwftdomain-1/[FF01:0:0:0:0:0:25:334]:3977");
 
-$prog = $HELLO->SpawnWaitKill (20);
+$test_status = $T->SpawnWaitKill (20);
 
-if ($prog != 0) {
+if ($test_status != 0) {
     print STDERR "ERROR: uipmc_test returned $prog\n";
     $status = 1;
 }
 
-exit $status;
+exit $status;
\ No newline at end of file
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl
index 81f227455cf..10b2d32c8ce 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/Control/run_test.pl
@@ -1,28 +1,33 @@
 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 strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
 
 my($prog) = 'Control';
 
-## 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');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-my $SV = $class->new($prog);
-my $server = $SV->SpawnWaitKill(10);
+$status_server = $SV->SpawnWaitKill (10);
 
-my $status = 0;
-if ($server != 0) {
-  print STDERR "ERROR: $prog returned $server\n";
-  $status = 1;
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl
index 7e1ab849a47..7ff35eede72 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/MonitorControlExt/run_test.pl
@@ -1,28 +1,33 @@
 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 strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
 
 my($prog) = 'MonitorControlExt';
 
-## 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');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-my $SV = $class->new($prog);
-my $server = $SV->SpawnWaitKill(10);
+$status_server = $SV->SpawnWaitKill (10);
 
-my $status = 0;
-if ($server != 0) {
-  print STDERR "ERROR: $prog returned $server\n";
-  $status = 1;
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/MonitorManager/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/MonitorManager/run_test.pl
index dc29dc87b03..9eec378d168 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/MonitorManager/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/MonitorManager/run_test.pl
@@ -9,6 +9,14 @@ use strict;
 use lib "$ENV{ACE_ROOT}/bin";
 use PerlACE::Run_Test;
 
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
 my($prog) = 'MonitorManager';
 
 ## Avoid code duplication by determining the process type and
@@ -16,7 +24,7 @@ my($prog) = 'MonitorManager';
 my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' :
                                           'PerlACE::Process');
 
-my $SV = $class->new($prog);
+my $SV = $class->new($prog, "-ORBdebuglevel $debug_level");
 my $server = $SV->Spawn();
 
 if ($server != 0) {
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl
index f4a83094e0d..51c674f72a1 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/NotificationServiceMonitor/run_test.pl
@@ -1,28 +1,33 @@
 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 strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
 
 my($prog) = 'NotificationServiceMonitor';
 
-## 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');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-my $SV = $class->new($prog);
-my $server = $SV->SpawnWaitKill(10);
+$status_server = $SV->SpawnWaitKill (10);
 
-my $status = 0;
-if ($server != 0) {
-  print STDERR "ERROR: $prog returned $server\n";
-  $status = 1;
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl
index a8b4d99f24f..966f8decbc5 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/Statistic/run_test.pl
@@ -1,28 +1,26 @@
 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 strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+$status = 0;
 
 my($prog) = 'Statistic';
 
-## 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');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog);
 
-my $SV = $class->new($prog);
-my $server = $SV->SpawnWaitKill(10);
+$status_server = $SV->SpawnWaitKill (10);
 
-my $status = 0;
-if ($server != 0) {
-  print STDERR "ERROR: $prog returned $server\n";
-  $status = 1;
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl b/TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl
index af53838fc92..11f2a678a94 100755
--- a/TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Notify/MC/Statistic_Registry/run_test.pl
@@ -1,28 +1,33 @@
 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 strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
+
+$status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
 
 my($prog) = 'Statistic_Registry';
 
-## 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');
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-my $SV = $class->new($prog);
-my $server = $SV->SpawnWaitKill(10);
+$status_server = $SV->SpawnWaitKill (10);
 
-my $status = 0;
-if ($server != 0) {
-  print STDERR "ERROR: $prog returned $server\n";
-  $status = 1;
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl b/TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl
index 162b910b3fb..294243bbdb3 100755
--- a/TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl
+++ b/TAO/orbsvcs/tests/unit/Trading/Interpreter/run_test.pl
@@ -1,23 +1,32 @@
 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 File::Basename;
+use PerlACE::TestTarget;
 
-my $status = 0;
+$status = 0;
+$debug_level = '0';
 
-my $SV = new PerlACE::Process ("Interpreter");
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my($prog) = 'Interpreter';
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ($prog, "-ORBdebuglevel $debug_level");
 
-my $server = $SV->SpawnWaitKill (10);
+$status_server = $SV->SpawnWaitKill (10);
 
-if ($server != 0) {
-    print STDERR "ERROR: ", basename($SV->Executable()),
-                 " returned $server \n";
+if ($status_server != 0) {
+    print STDERR "ERROR: $prog returned $status_server\n";
     $status = 1;
 }
 
diff --git a/TAO/performance-tests/Latency/Collocation/run_test.pl b/TAO/performance-tests/Latency/Collocation/run_test.pl
index 1abcc0f5448..2a6df137203 100755
--- a/TAO/performance-tests/Latency/Collocation/run_test.pl
+++ b/TAO/performance-tests/Latency/Collocation/run_test.pl
@@ -6,17 +6,24 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 $status = 0;
+$debug_level = '0';
 
-$SV = new PerlACE::Process ("Collocated_Test");
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
 
-$server = $SV->SpawnWaitKill (60);
+my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+$T = $test->CreateProcess ("Collocated_Test", "-ORBdebuglevel $debug_level");
+$test_status = $T->SpawnWaitKill (60);
 
-if ($server != 0) {
-    print STDERR "ERROR: Collocated_Test returned $server \n";
-    $status = 1;
+if ($test_status != 0) {
+    print STDERR "ERROR: Collocated_Test returned $test_status\n";
+    exit 1;
 }
 
 exit $status;
diff --git a/TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl b/TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl
index f5fc1fd52d5..07bac3de68a 100755
--- a/TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl
+++ b/TAO/performance-tests/POA/Object_Creation_And_Registration/run_test.pl
@@ -6,15 +6,24 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test
+use PerlACE::TestTarget;
 
-$T = new PerlACE::Process ("registration");
+$status = 0;
+$debug_level = '0';
 
-$test = $T->SpawnWaitKill (60);
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my $test = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+$T = $test->CreateProcess ("registration", "-ORBdebuglevel $debug_level");
+$test_status = $T->SpawnWaitKill (60);
 
-if ($test != 0) {
-    print STDERR "ERROR: test returned $test\n";
+if ($test_status != 0) {
+    print STDERR "ERROR: test returned $test_status\n";
     exit 1;
 }
 
-exit 0;
+exit $status;
diff --git a/TAO/tests/Connection_Failure/run_test.pl b/TAO/tests/Connection_Failure/run_test.pl
index 6b6eae83977..6211cc22844 100755
--- a/TAO/tests/Connection_Failure/run_test.pl
+++ b/TAO/tests/Connection_Failure/run_test.pl
@@ -6,16 +6,25 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 $status = 0;
+$debug_level = '0';
 
-$CL = new PerlACE::Process ("client", "");
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my $client = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$CL = $client->CreateProcess ("client", "-ORBdebuglevel $debug_level");
 
-$client = $CL->SpawnWaitKill (60);
+$client_status = $CL->SpawnWaitKill (60);
 
-if ($client != 0) {
-    print STDERR "ERROR: client returned $client\n";
+if ($client_status != 0) {
+    print STDERR "ERROR: client returned $client_status\n";
     $status = 1;
 }
 
diff --git a/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl b/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl
index b1ba80d3890..aac03e15218 100755
--- a/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl
+++ b/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl
@@ -6,52 +6,62 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 $status = 0;
-$iorfile = PerlACE::LocalFile ('server.ior');
+$debug_level = '0';
 $TARGETHOSTNAME = '127.0.0.1';
 $port = PerlACE::uniqueid () + 12000;
-$debug = 0;
 $endien = (pack('L', 0x41424344) eq 'ABCD' ? '_be' : '');
 
-unlink $iorfile;
-
-if (PerlACE::is_vxworks_test()) {
-    $TARGETHOSTNAME = $ENV{'ACE_RUN_VX_TGTHOST'};
-    $SV = new PerlACE::ProcessVX ('server',
-                             '-ORBEndpoint ' .
-                             "iiop://$TARGETHOSTNAME" . ":$port " .
-                             "-ORBDebugLevel $debug");
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
 }
-else {
-    $SV = new PerlACE::Process ('server',
-                             '-ORBEndpoint ' .
-                             "iiop://$TARGETHOSTNAME" . ":$port " .
-                             "-ORBDebugLevel $debug");
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+my $iorbase = "server.ior";
+my $server_iorfile = $server->LocalFile ($iorbase);
+$server->DeleteFile($iorbase);
+
+$SV = $server->CreateProcess (	"server",
+	                        "-ORBEndpoint " .
+                             	"iiop://$TARGETHOSTNAME" . ":$port " .
+                             	"-ORBDebugLevel $debug_level");
+			
+$server_status = $SV->Spawn ();
+
+if ($server_status != 0) {
+    print STDERR "ERROR: server returned $server_status\n";
+    $server->DeleteFile($iorbase);
+    exit 1;
 }
-$SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) {
-    print STDERR "ERROR: cannot find file <$iorfile>\n";
+if ($server->WaitForFileTimed ($iorbase,
+                               $server->ProcessStartWaitInterval()) == -1) {
+    print STDERR "ERROR: cannot find file <$server_iorfile>\n";
     $SV->Kill (); $SV->TimedWait (1);
+    $server->DeleteFile($iorbase);
     exit 1;
 }
 
-my($cl) = system("$^X dribble.pl --host=$TARGETHOSTNAME --port=$port " .
+my($CL) = system("$^X dribble.pl --host=$TARGETHOSTNAME --port=$port " .
                  "--stream=giop1.2_fragments$endien.dat " .
                  "--layout=giop1.2_fragments$endien.layout");
-if ($cl != 0) {
-    print STDERR "ERROR: client returned $cl\n";
-    ++$status;
+if ($CL != 0) {
+    print STDERR "ERROR: client returned $CL\n";
+    $status = 2;
 }
 
-$server = $SV->WaitKill (15);
+$server_status = $SV->WaitKill ($server->ProcessStopWaitInterval());
 
-if ($server != 0) {
-    print STDERR "ERROR: server returned $server\n";
-    ++$status;
+if ($server_status != 0) {
+    print STDERR "ERROR: server returned $server_status\n";
+    $status = 3;
 }
 
-unlink $iorfile;
+$server->DeleteFile($iorbase);
+
 exit $status;
diff --git a/TAO/tests/IORManipulation/filter/run_test.pl b/TAO/tests/IORManipulation/filter/run_test.pl
index 9e4ca4306ce..fa4395089d2 100755
--- a/TAO/tests/IORManipulation/filter/run_test.pl
+++ b/TAO/tests/IORManipulation/filter/run_test.pl
@@ -5,27 +5,35 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # $Id$
 # -*- perl -*-
 
-use strict;
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 use Sys::Hostname;
 
 my $status = 0;
+$debug_level = '0';
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
 my $host = hostname();
-my $host = (PerlACE::is_vxworks_test() ? $ENV{'ACE_RUN_VX_TGTHOST'} :
-                                         hostname());
-my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' :
-                                          'PerlACE::Process');
-my $SV = $class->new('server',
-                     '-ORBUseSharedProfiles 0 ' .
-                     '-ORBEndpoint iiop://localhost ' .
-                     "-ORBEndpoint iiop://${host}");
-
-my $server = $SV->SpawnWaitKill($PerlACE::wait_interval_for_process_creation);
-
-if ($server != 0) {
-  print STDERR "ERROR: server returned $server \n";
-  $status = 1;
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+
+$SV = $server->CreateProcess ("server",
+                              "-ORBdebuglevel $debug_level " .
+                              "-ORBUseSharedProfiles 0 " .
+                              "-ORBEndpoint iiop://localhost " .
+                              "-ORBEndpoint iiop://${host}");
+    
+$server_status = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
+
+if ($server_status != 0) {
+    print STDERR "ERROR: server returned $server_status\n";
+    $status = 1;
 }
 
-exit($status);
+exit $status;
diff --git a/TAO/tests/Optimized_Connection/run_test.pl b/TAO/tests/Optimized_Connection/run_test.pl
index 43f0631bf33..33289cda88a 100755
--- a/TAO/tests/Optimized_Connection/run_test.pl
+++ b/TAO/tests/Optimized_Connection/run_test.pl
@@ -6,31 +6,35 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
-$baseior = "oc.ior";
-$iorfile = PerlACE::LocalFile ($baseior);
 $status = 0;
+$debug_level = '0';
 
-if (PerlACE::is_vxworks_test()) {
-$CL_ALT_IIOP = new PerlACE::ProcessVX ("client", " -k file://$baseior " .
-                                     "-orbsvcconf oc_svc.conf");
-}
-else {
-$CL_ALT_IIOP = new PerlACE::Process ("client", " -k file://$iorfile " .
-                                     "-orbsvcconf oc_svc.conf");
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
 }
 
-if (PerlACE::waitforfile_timed ($iorfile,
-                        $PerlACE::wait_interval_for_process_creation) == -1) {
-    print STDERR "ERROR: cannot find file <$iorfile>\n";
+my $client = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+my $iorbase = "oc.ior";
+my $client_iorfile = $client->LocalFile ($iorbase);
+
+$CL = $client->CreateProcess ("client", "-k file://$client_iorfile ".
+					"-orbsvcconf oc_svc.conf");
+
+if ($client->WaitForFileTimed ($iorbase,
+                           $client->ProcessStartWaitInterval()) == -1) {
+    print STDERR "ERROR: cannot find file <$client_iorfile>\n";
     exit 1;
 }
 
-$client = $CL_ALT_IIOP->SpawnWaitKill (30);
+$client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval());
 
-if ($client != 0) {
-    print STDERR "ERROR: client returned $client\n";
+if ($client_status != 0) {
+    print STDERR "ERROR: client returned $client_status\n";
     $status = 1;
 }