TAO/tests/CSD_Collocation/Collocation_Tester.cpp

   1 //============================================================================
   2 //
   3 //  =FILENAME
   4 //     Collocation_Test.h
   5 //
   6 //  =DESCRIPTION
   7 //     Server class to perform testing of TAO's collocation mechanism.
   8 //
   9 //  =AUTHOR
  10 //     Nanbor Wang
  11 //
  12 //=============================================================================
  13
  14 #include "Collocation_Tester.h"
  15
  16 Collocation_Test::Collocation_Test (void)
  17 {
  18 }
  19
  20 void
  21 Collocation_Test::shutdown (void)
  22 {
  23   this->root_poa_->destroy (1, 1);
  24   this->orb_->destroy ();
  25 }
  26
  27 int
  28 Collocation_Test::init (int argc, ACE_TCHAR *argv[])
  29 {
  30   // Initialize the ORB.
  31   this->orb_ = CORBA::ORB_init (argc, argv);
  32
  33   int result = this->parse_args (argc, argv);
  34   if (result != 0)
  35     return result;
  36
  37   // Get an Object reference to RootPOA.
  38   CORBA::Object_var obj =
  39     this->orb_->resolve_initial_references ("RootPOA");
  40
  41   // Narrow the Object reference to a POA reference
  42   this->root_poa_ =
  43     PortableServer::POA::_narrow (obj.in ());
  44
  45   // Get the POAManager of RootPOA
  46   this->poa_manager_ =
  47     this->root_poa_->the_POAManager ();
  48
  49   // Create our own child POA
  50   // Empty sequence means all default policies
  51   int nPolicies = 0;
  52   CORBA::PolicyList policies;
  53
  54   policies.length(1);
  55   policies[nPolicies++] =
  56     this->root_poa_->create_implicit_activation_policy(PortableServer::IMPLICIT_ACTIVATION);
  57
  58   obj = this->root_poa_->create_POA("child", this->poa_manager_.in(), policies);
  59   PortableServer::POA_var childPOA = PortableServer::POA::_narrow (obj.in ());
  60
  61   // Destroy the Policy objects (before we may exit as a result of failures)
  62   for (CORBA::ULong i = 0; i < policies.length(); ++i)
  63     {
  64       policies[i]->destroy();
  65     }
  66
  67   // Activate the diamond servant and its base classes under childPOA.
  68   PortableServer::ObjectId_var id =
  69     childPOA->activate_object (&this->top_servant_);
  70
  71 //    // We only care about the most derived class here.
  72 //    this->diamond_obj_ = this->diamond_servant_._this ();
  73
  74   id =
  75     childPOA->activate_object (&this->diamond_servant_);
  76
  77   // We only care about the most derived class here.
  78   this->diamond_obj_ = childPOA->id_to_reference (id.in ());
  79
  80   id =
  81     childPOA->activate_object (&this->left_servant_);
  82
  83   id =
  84     childPOA->activate_object (&this->right_servant_);
  85
  86
  87   CORBA::String_var str =
  88     this->orb_->object_to_string (this->diamond_obj_.in ());
  89
  90   ACE_DEBUG ((LM_DEBUG, "Diamond Servant activated:\n %C\n",
  91               str.in()));
  92
  93   return 0;
  94
  95
  96 }
  97
  98 int
  99 Collocation_Test::parse_args (int /*argc*/,
 100                               ACE_TCHAR *[] /*argv*/)
 101 {
 102   return 0;
 103 }
 104
 105 int
 106 Collocation_Test::test_narrow (void)
 107 {
 108   Diamond::Top_var top =
 109     Diamond::Top::_narrow (this->diamond_obj_.in ());
 110
 111   Diamond::Left_var left =
 112     Diamond::Left::_narrow (this->diamond_obj_.in ());
 113
 114   Diamond::Right_var right =
 115     Diamond::Right::_narrow (this->diamond_obj_.in ());
 116
 117   Diamond::Buttom_var buttom =
 118     Diamond::Buttom::_narrow (this->diamond_obj_.in ());
 119
 120   CORBA::String_var str = top->shape ();
 121   ACE_DEBUG ((LM_DEBUG, "Calling top->shape: %C\n", str.in ()));
 122
 123   str = left->shape ();
 124   ACE_DEBUG ((LM_DEBUG, "Calling left->shape: %C\n", str.in ()));
 125
 126   str = right->shape ();
 127   ACE_DEBUG ((LM_DEBUG, "Calling right->shape: %C\n", str.in ()));
 128
 129   str = buttom->shape ();
 130   ACE_DEBUG ((LM_DEBUG, "Calling buttom->shape: %C\n", str.in ()));
 131
 132   return 0;
 133 }
 134
 135 int
 136 Collocation_Test::run (void)
 137 {
 138   this->poa_manager_->activate ();
 139
 140   this->test_narrow ();
 141
 142   return 0;
 143 }