TAO/tests/Bug_2134_Regression/Hello.cpp

   1 #include "tao/corba.h"
   2 #include "tao/IORTable/IORTable.h"
   3 #include "tao/Messaging/Messaging.h"
   4 #include "tao/AnyTypeCode/Any.h"
   5 #include "ace/OS_NS_string.h"
   6 #include "ace/SString.h"
   7
   8 #include "HelloS.h"
   9
  10 namespace Test
  11 {
  12 class Hello_impl: virtual public POA_Test::Hello
  13 {
  14 public:
  15   void say_hello()
  16   {
  17   };
  18 };
  19 }
  20
  21 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  22 {
  23   int status = 0;
  24   CORBA::ORB_var orb = CORBA::ORB::_nil();
  25
  26   try
  27     {
  28       // Initialize the ORB
  29       orb = CORBA::ORB_init (argc, argv);
  30
  31       // create Hello object
  32       Test::Hello_impl hello_i;
  33
  34       // Get the root POA
  35       CORBA::Object_var obj_root = orb->resolve_initial_references ("RootPOA");
  36
  37       PortableServer::POA_var rootPOA = PortableServer::POA::_narrow (obj_root.in ());
  38
  39       PortableServer::ObjectId_var id =
  40         rootPOA->activate_object (&hello_i);
  41
  42       CORBA::Object_var object = rootPOA->id_to_reference (id.in ());
  43
  44       Test::Hello_var hello = Test::Hello::_narrow (object.in ());
  45
  46       // give our object a friendly name
  47       CORBA::Object_var iorTableObj =
  48           orb->resolve_initial_references ("IORTable");
  49
  50       IORTable::Table_var iorTable
  51           = IORTable::Table::_narrow (iorTableObj.in ());
  52
  53       CORBA::String_var ior_string = orb->object_to_string (hello.in ());
  54
  55       iorTable->bind("hello", ior_string.in ());
  56
  57       ACE_DEBUG ((LM_DEBUG, "Created binding of name 'hello' in IOR table for IOR:\n%C\n", ior_string.in ()));
  58
  59       // Activate the POA manager
  60       PortableServer::POAManager_var poaManager = rootPOA->the_POAManager ();
  61
  62       poaManager->activate ();
  63
  64       // try and access the object with its friendly name
  65       ACE_CString full_corbaloc (ior_string.in (), 0, 1);
  66
  67       CORBA::ULong first_slash = full_corbaloc.find ("/", 0);
  68
  69       ACE_CString friendly_corbaloc =
  70         full_corbaloc.substring (0,
  71                                   first_slash);
  72
  73       friendly_corbaloc += "/hello";
  74
  75       ACE_DEBUG ((LM_DEBUG, "Trying to access object with object ref:\n%C\n", friendly_corbaloc.c_str ()));
  76
  77       CORBA::Object_var obj = orb->string_to_object (friendly_corbaloc.c_str ());
  78
  79       TimeBase::TimeT timeout = 10000000;
  80
  81       CORBA::Any timeout_any;
  82       timeout_any <<= timeout;
  83
  84       CORBA::PolicyList policy_list (1);
  85       policy_list.length (1);
  86
  87       policy_list[0] = orb->create_policy (
  88                               Messaging::RELATIVE_RT_TIMEOUT_POLICY_TYPE,
  89                               timeout_any);
  90
  91       CORBA::Object_var rtt_obj = obj->_set_policy_overrides (
  92                                                   policy_list,
  93                                                   CORBA::SET_OVERRIDE);
  94
  95       policy_list[0]->destroy();
  96
  97       Test::Hello_var hello2 = Test::Hello::_narrow (rtt_obj.in ());
  98
  99       if (CORBA::is_nil (hello2.in ()))
 100         {
 101           ACE_ERROR ((LM_ERROR,
 102                       "Unable to narrow from "
 103                       "corbaloc with policy override\n"));
 104           status = 1;
 105         }
 106       else
 107         {
 108           hello2->say_hello ();
 109
 110           ACE_DEBUG ((LM_DEBUG, "Test succeeded !!!\n"));
 111         }
 112
 113       orb->destroy();
 114     }
 115   catch (const CORBA::Exception& ex)
 116     {
 117       ex._tao_print_exception ("Error - test failed - exception caught:");
 118       status = 1;
 119     }
 120
 121   return status;
 122 }