TAO/tests/CORBA_e_Implicit_Activation/server.cpp

   1 #include "Hello.h"
   2 #include "ace/OS_NS_stdio.h"
   3
   4 int
   5 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
   6 {
   7   int status = 1;
   8   try
   9     {
  10       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  11
  12       CORBA::Object_var poa_object =
  13         orb->resolve_initial_references("RootPOA");
  14
  15       PortableServer::POA_var root_poa =
  16         PortableServer::POA::_narrow (poa_object.in ());
  17
  18       if (CORBA::is_nil (root_poa.in ()))
  19         ACE_ERROR_RETURN ((LM_ERROR,
  20                            " (%P|%t) Panic: nil RootPOA\n"),
  21                           1);
  22
  23       Hello *hello_impl = 0;
  24       ACE_NEW_RETURN (hello_impl,
  25                       Hello (),
  26                       1);
  27       PortableServer::ServantBase_var owner_transfer(hello_impl);
  28
  29       Test::Hello_var hello = hello_impl->_this ();
  30
  31       ACE_ERROR ((LM_ERROR,
  32                   "ERROR: Implicit activation should have "
  33                   "thrown an exception with CORBA e compact.\n"));
  34
  35       root_poa->destroy (true, true);
  36       orb->destroy ();
  37     }
  38   catch (const PortableServer::POA::WrongPolicy&)
  39     {
  40       ACE_DEBUG ((LM_DEBUG, "This test passes.\n"));
  41       status = 0;
  42     }
  43   catch (const CORBA::Exception& ex)
  44     {
  45       ex._tao_print_exception ("Exception caught:");
  46     }
  47
  48   return status;
  49 }