TAO/tests/Smart_Proxies/Collocation/Coll_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 "Coll_Tester.h"
  15 #include "Smart_Proxy_Impl.h"
  16
  17 Collocation_Test::Collocation_Test ()
  18 {
  19 }
  20
  21 int
  22 Collocation_Test::init (int argc, ACE_TCHAR *argv[])
  23 {
  24   // Initialize the ORB.
  25   this->orb_ = CORBA::ORB_init (argc, argv);
  26
  27   int result = this->parse_args (argc, argv);
  28   if (result != 0)
  29     return result;
  30
  31   // Get an Object reference to RootPOA.
  32   CORBA::Object_var obj =
  33     this->orb_->resolve_initial_references ("RootPOA");
  34
  35   // Narrow the Object reference to a POA reference
  36   this->root_poa_ =
  37     PortableServer::POA::_narrow (obj.in ());
  38
  39   // Get the POAManager of RootPOA
  40   this->poa_manager_ =
  41     this->root_poa_->the_POAManager ();
  42
  43   // Activate the diamond servant and its base classes under RootPOA.
  44   PortableServer::ObjectId_var id =
  45     this->root_poa_->activate_object (&this->top_servant_);
  46
  47 //    // We only care about the most derived class here.
  48 //    this->diamond_obj_ = this->diamond_servant_._this ();
  49
  50   id =
  51     this->root_poa_->activate_object (&this->diamond_servant_);
  52
  53   // We only care about the most derived class here.
  54   this->diamond_obj_ = this->root_poa_->id_to_reference (id.in ());
  55
  56   id =
  57     this->root_poa_->activate_object (&this->left_servant_);
  58
  59   id =
  60     this->root_poa_->activate_object (&this->right_servant_);
  61
  62   CORBA::String_var str =
  63     this->orb_->object_to_string (this->diamond_obj_.in ());
  64
  65   ACE_DEBUG ((LM_DEBUG, "Diamond Servant activated:\n %s\n",
  66               str.in()));
  67
  68   return 0;
  69
  70 }
  71
  72 int
  73 Collocation_Test::parse_args (int, ACE_TCHAR *[])
  74 {
  75   return 0;
  76 }
  77
  78 int
  79 Collocation_Test::test_narrow ()
  80 {
  81   // Ensure that the smart proxy is the one which is used by registering
  82   // the user-defined factory. Its necessary to create one on the heap so
  83   // the lifetime of the factory object can be managed by the framework.
  84   Smart_Diamond_Top_Factory *factory = 0;
  85   ACE_NEW_RETURN (factory,
  86                   Smart_Diamond_Top_Factory,
  87                   -1);
  88
  89   Diamond::Top_var top =
  90     Diamond::Top::_narrow (this->diamond_obj_.in());
  91
  92   Diamond::Left_var left =
  93     Diamond::Left::_narrow (this->diamond_obj_.in());
  94
  95   Diamond::Right_var right =
  96     Diamond::Right::_narrow (this->diamond_obj_.in());
  97
  98   Diamond::Buttom_var buttom =
  99     Diamond::Buttom::_narrow (this->diamond_obj_.in());
 100
 101   CORBA::String_var str = top->shape ();
 102   ACE_DEBUG ((LM_DEBUG, "Calling top->shape: %s\n", str.in ()));
 103
 104   str = left->shape ();
 105   ACE_DEBUG ((LM_DEBUG, "Calling left->shape: %s\n", str.in ()));
 106
 107   str = right->shape ();
 108   ACE_DEBUG ((LM_DEBUG, "Calling right->shape: %s\n", str.in ()));
 109
 110   str = buttom->shape ();
 111   ACE_DEBUG ((LM_DEBUG, "Calling buttom->shape: %s\n", str.in ()));
 112
 113   return 0;
 114 }
 115
 116 int
 117 Collocation_Test::run ()
 118 {
 119   this->poa_manager_->activate ();
 120
 121   this->test_narrow ();
 122
 123   return 0;
 124 }