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   try
  23     {
  24       // Initialize the ORB first.
  25       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  26
  27       CORBA::Object_var object;
  28
  29       object = orb->resolve_initial_references ("POACurrent");
  30
  31       PortableServer::Current_var current =
  32         PortableServer::Current::_narrow (object.in ());
  33
  34       object = orb->resolve_initial_references ("RootPOA");
  35
  36       PortableServer::POA_var root_poa =
  37         PortableServer::POA::_narrow (object.in ());
  38
  39       orb->destroy ();
  40
  41       ACE_DEBUG ((LM_DEBUG,
  42                   "%s successful\n",
  43                   argv[0]));
  44     }
  45   catch (const CORBA::Exception& ex)
  46     {
  47       ex._tao_print_exception ("Exception caught");
  48       return -1;
  49     }
  50
  51   return 0;
  52 }