TAO/tests/Bug_2826_Regression/bug_2826_regression.cpp

   1 #include "tao/ORB_Core.h"
   2 #include "tao/PortableServer/PortableServer.h"
   3 #include "fooS.h"
   4
   5 namespace
   6 {
   7 class Foo_i : public virtual POA_foo
   8 {
   9 public:
  10   virtual void check ()
  11   {
  12     ACE_DEBUG ((LM_DEBUG, "(%P|%t) checking\n"));
  13   }
  14 };
  15
  16 int vc_check(foo_ptr ff, bool active=true)
  17 {
  18   try
  19   {
  20     CORBA::PolicyList_var policies;
  21     CORBA::Boolean rv=ff->_validate_connection (policies.out());
  22     if (!rv)
  23     {
  24       ACE_ERROR_RETURN ((LM_ERROR,
  25                            " (%P|%t) got false from _validate_connection\n"),
  26                           1);
  27     }
  28   }
  29   catch (const CORBA::INV_POLICY&)
  30   {
  31     if (!active)
  32       ACE_ERROR_RETURN ((LM_ERROR,
  33                              " (%P|%t) unexpect inlaid policies\n"),
  34                               2);
  35   }
  36   catch (const CORBA::OBJECT_NOT_EXIST&)
  37   {
  38     if (active)
  39       ACE_ERROR_RETURN ((LM_ERROR,
  40                              " (%P|%t) unexpect object not exists\n"),
  41                               3);
  42   }
  43   catch (const CORBA::Exception&)
  44   {
  45     ACE_ERROR_RETURN ((LM_ERROR,
  46                            " (%P|%t) unexpect exception\n"),
  47                           4);
  48   }
  49   return 0;
  50 }
  51 }
  52
  53 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  54 {
  55   CORBA::ORB_var orb;
  56   try
  57   {
  58     orb = CORBA::ORB_init (argc, argv);
  59
  60     CORBA::Object_var root_poa_o =
  61       orb->resolve_initial_references ("RootPOA");
  62
  63     PortableServer::POA_var rootPOA =
  64       PortableServer::POA::_narrow (root_poa_o.in ());
  65
  66     if (CORBA::is_nil (rootPOA.in ()))
  67       {
  68         ACE_ERROR_RETURN ((LM_ERROR,
  69         " (%P|%t) Panic: nil RootPOA\n"), 1);
  70       }
  71
  72     PortableServer::POAManager_var poaMgr = rootPOA->the_POAManager ();
  73
  74     poaMgr->activate ();
  75
  76     CORBA::PolicyList policies;
  77     policies.length (3);
  78     policies[0] = rootPOA->create_id_assignment_policy (
  79       PortableServer::SYSTEM_ID);
  80     policies[1] = rootPOA->create_implicit_activation_policy (
  81       PortableServer::NO_IMPLICIT_ACTIVATION);
  82     policies[2] = rootPOA->create_lifespan_policy (
  83       PortableServer::TRANSIENT);
  84
  85     PortableServer::POA_var fooPoa = rootPOA->create_POA (
  86       "FOO_POA", poaMgr.in (), policies);
  87
  88     for (CORBA::ULong i = 0; i < policies.length (); ++i)
  89     {
  90       policies[i]->destroy ();
  91     }
  92
  93     Foo_i servant;
  94     PortableServer::ObjectId_var oid = fooPoa->activate_object( &servant);
  95
  96     CORBA::Object_var obj = fooPoa->id_to_reference (oid.in ());
  97
  98     foo_var client = foo::_narrow (obj.in());
  99
 100     client->check();
 101
 102     if (vc_check(client.in()))
 103     {
 104       orb->destroy();
 105       return 1;
 106     }
 107
 108     fooPoa->deactivate_object (oid.in ());  //servant is gone
 109
 110     if (vc_check(client.in(), false))  //exception expected
 111     {
 112       orb->destroy();
 113       return 2;
 114     }
 115   }
 116   catch(...)
 117   {
 118     return 3;
 119   }
 120   return 0;
 121 }