TAO/orbsvcs/tests/Bug_3891_Regression/server.cpp

   1 #include "TestS.h"
   2 #include "tao/Stub.h"
   3 #include "ace/OS_NS_string.h"
   4 #ifdef TAO_AS_STATIC_LIBS
   5 # include "tao/ImR_Client/ImR_Client.h"
   6 #endif
   7
   8 class Hello : public virtual POA_Test::Hello
   9 {
  10 };
  11
  12 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  13 {
  14   try
  15     {
  16       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  17
  18       CORBA::Object_var poa_object =
  19         orb->resolve_initial_references ("RootPOA");
  20
  21       PortableServer::POA_var root_poa =
  22         PortableServer::POA::_narrow (poa_object.in ());
  23
  24       if (CORBA::is_nil (root_poa.in ()))
  25         ACE_ERROR_RETURN ((LM_ERROR, " (%P|%t) Panic: nil RootPOA\n"), 1);
  26
  27       PortableServer::POAManager_var poa_manager = root_poa->the_POAManager ();
  28
  29       PortableServer::LifespanPolicy_var life =
  30         root_poa->create_lifespan_policy (PortableServer::PERSISTENT);
  31
  32       PortableServer::IdAssignmentPolicy_var assign =
  33         root_poa->create_id_assignment_policy (PortableServer::USER_ID);
  34
  35       CORBA::PolicyList pols;
  36       pols.length (2);
  37       pols[0] = PortableServer::LifespanPolicy::_duplicate (life.in ());
  38       pols[1] = PortableServer::IdAssignmentPolicy::_duplicate (assign.in ());
  39
  40       PortableServer::POA_var poa =
  41         root_poa->create_POA ("ImRified POA", poa_manager.in (), pols);
  42       life->destroy ();
  43       assign->destroy ();
  44
  45       Hello *hello_impl = 0;
  46       ACE_NEW_RETURN (hello_impl, Hello, 1);
  47       PortableServer::ServantBase_var owner_transfer (hello_impl);
  48
  49       PortableServer::ObjectId_var id =
  50         PortableServer::string_to_ObjectId ("Test 3891 Object");
  51
  52       poa->activate_object_with_id (id.in (), hello_impl);
  53
  54       CORBA::Object_var obj = poa->id_to_reference (id.in ());
  55
  56       if (!obj->_stubobj ()->type_id.in () ||
  57           ACE_OS::strcmp (obj->_stubobj ()->type_id.in (),
  58                           hello_impl->_repository_id ()))
  59         {
  60           ACE_ERROR_RETURN ((LM_ERROR, "ERROR: type_id is incorrect\n"), 1);
  61         }
  62
  63       root_poa->destroy (1, 1);
  64       orb->destroy ();
  65     }
  66   catch (const CORBA::Exception& ex)
  67     {
  68       ex._tao_print_exception ("Exception caught:");
  69       return 1;
  70     }
  71
  72   return 0;
  73 }