TAO/tests/POA/Current/Current.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file     Current.cpp
   5  *
   6  *   This program tests if accessing the POA current before the
   7  *   RootPOA can cause any problems.
   8  *
   9  *  @author  Irfan Pyarali
  10  */
  11 //=============================================================================
  12
  13
  14 #include "tao/ORB.h"
  15 #include "tao/PortableServer/PortableServer.h"
  16
  17 #include "ace/Log_Msg.h"
  18
  19 int
  20 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  21 {
  22
  23   try
  24     {
  25       // Initialize the ORB first.
  26       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  27
  28       CORBA::Object_var object;
  29
  30       object = orb->resolve_initial_references ("POACurrent");
  31
  32       PortableServer::Current_var current =
  33         PortableServer::Current::_narrow (object.in ());
  34
  35       object = orb->resolve_initial_references ("RootPOA");
  36
  37       PortableServer::POA_var root_poa =
  38         PortableServer::POA::_narrow (object.in ());
  39
  40       orb->destroy ();
  41
  42       ACE_DEBUG ((LM_DEBUG,
  43                   "%s successful\n",
  44                   argv[0]));
  45     }
  46   catch (const CORBA::Exception& ex)
  47     {
  48       ex._tao_print_exception ("Exception caught");
  49       return -1;
  50     }
  51
  52   return 0;
  53 }