TAO/tests/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   // Activate the diamond servant and its base classes under RootPOA.
  50   PortableServer::ObjectId_var id =
  51     this->root_poa_->activate_object (&this->top_servant_);
  52
  53 //    // We only care about the most derived class here.
  54 //    this->diamond_obj_ = this->diamond_servant_._this ();
  55
  56   id =
  57     this->root_poa_->activate_object (&this->diamond_servant_);
  58
  59   // We only care about the most derived class here.
  60   this->diamond_obj_ = this->root_poa_->id_to_reference (id.in ());
  61
  62   id =
  63     this->root_poa_->activate_object (&this->left_servant_);
  64
  65   id =
  66     this->root_poa_->activate_object (&this->right_servant_);
  67
  68   CORBA::String_var str =
  69     this->orb_->object_to_string (this->diamond_obj_.in ());
  70
  71   ACE_DEBUG ((LM_DEBUG, "Diamond Servant activated:\n %C\n",
  72               str.in()));
  73
  74   return 0;
  75
  76
  77 }
  78
  79 int
  80 Collocation_Test::parse_args (int /*argc*/,
  81                               ACE_TCHAR *[] /*argv*/)
  82 {
  83   return 0;
  84 }
  85
  86 int
  87 Collocation_Test::test_narrow (void)
  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: %C\n", str.in ()));
 103
 104   str = left->shape ();
 105   ACE_DEBUG ((LM_DEBUG, "Calling left->shape: %C\n", str.in ()));
 106
 107   str = right->shape ();
 108   ACE_DEBUG ((LM_DEBUG, "Calling right->shape: %C\n", str.in ()));
 109
 110   str = buttom->shape ();
 111   ACE_DEBUG ((LM_DEBUG, "Calling buttom->shape: %C\n", str.in ()));
 112
 113   return 0;
 114 }
 115
 116 int
 117 Collocation_Test::run (void)
 118 {
 119   this->poa_manager_->activate ();
 120
 121   this->test_narrow ();
 122
 123   return 0;
 124 }