ChangeLog Tag: Tue Aug 8 15:10:45 2000 Jeff Parsons <parsons@cs.wustl.edu>

1 files changed, 13 insertions, 0 deletions

diff --git a/TAO/tests/IDL_Test/main.cpp b/TAO/tests/IDL_Test/main.cpp
index ede63bc9f80..d3e20a587c1 100644
--- a/TAO/tests/IDL_Test/main.cpp
+++ b/TAO/tests/IDL_Test/main.cpp
@@ -51,6 +51,14 @@ main (int argc , char *argv[])
         CORBA::ORB_init (argc, argv, "", ACE_TRY_ENV);
       ACE_TRY_CHECK;
 
+      CORBA::Object_var poa_object =
+        orb->resolve_initial_references ("RootPOA");
+
+      PortableServer::POA_var root_poa =
+        PortableServer::POA::_narrow (poa_object.in (), 
+                                      ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
       // Test of pragma prefix handling.
 
       CORBA::ULong error_count = 0;
@@ -158,6 +166,11 @@ main (int argc , char *argv[])
       ACE_DEBUG ((LM_DEBUG,
                   "%s\n",
                   str));
+
+      root_poa->destroy (1,
+                         1,
+                         ACE_TRY_ENV);
+      ACE_TRY_CHECK;
     }
   ACE_CATCHANY
     {