TAO/orbsvcs/tests/Bug_2316_Regression/client.cpp

   1 #include "Test_impl.h"
   2 #include "ace/OS_NS_stdio.h"
   3 #include "ace/Get_Opt.h"
   4
   5 const ACE_TCHAR *ior = ACE_TEXT("file://server.ior");
   6 const ACE_TCHAR *uipmc_ior = ACE_TEXT("corbaloc:miop:1.0@1.0-domain-1/127.0.0.1:23232");
   7
   8 int
   9 parse_args (int argc, ACE_TCHAR *argv[])
  10 {
  11   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  12   int c;
  13
  14   while ((c = get_opts ()) != -1)
  15     switch (c)
  16       {
  17       case 'k':
  18         ior = get_opts.opt_arg ();
  19         break;
  20
  21       case '?':
  22       default:
  23         ACE_ERROR_RETURN ((LM_ERROR,
  24                            "usage:  %s "
  25                            "-k <ior> "
  26                            "\n",
  27                            argv [0]),
  28                           -1);
  29       }
  30   // Indicates successful parsing of the command line
  31   return 0;
  32 }
  33
  34 int
  35 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  36 {
  37   int result = 0;
  38   try
  39     {
  40       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  41
  42       if (parse_args (argc, argv) != 0)
  43         return 1;
  44
  45       CORBA::Object_var poa_object =
  46       orb->resolve_initial_references("RootPOA");
  47
  48       PortableServer::POA_var root_poa =
  49       PortableServer::POA::_narrow (poa_object.in ());
  50
  51       PortableServer::POAManager_var poa_manager =
  52       root_poa->the_POAManager ();
  53       poa_manager->activate ();
  54
  55       CORBA::Object_var obj =orb->string_to_object (uipmc_ior);
  56
  57       CORBA::Object_var tmp = orb->string_to_object (ior);
  58       server_var server = server::_narrow (tmp.in ());
  59
  60       try
  61         {
  62           server->method (obj.in());
  63
  64           ACE_DEBUG ((LM_DEBUG, "Test passed !!\n"));
  65         }
  66       catch (const CORBA::SystemException& marshal)
  67         {
  68           ACE_DEBUG ((LM_ERROR, "Test Failed - Regression. "
  69                       "Sending UIPMC object ref to server failed with:\n"));
  70           marshal._tao_print_exception ("Exception :\n");
  71           result = 1;
  72         }
  73
  74       server->shutdown ();
  75     }
  76   catch(const CORBA::SystemException& e)
  77     {
  78         e._tao_print_exception ("Unexpected exception - not a regression.\n");
  79         result = 1;
  80     }
  81     return result;
  82 }