TAO/tests/ClientPortSpan/client.cpp

   1 #include "TestC.h"
   2 #include "ace/Get_Opt.h"
   3 #include "ace/OS_NS_unistd.h"
   4
   5 const ACE_TCHAR *ior = ACE_TEXT ("file://test.ior");
   6
   7 int
   8 parse_args (int argc, ACE_TCHAR *argv[])
   9 {
  10   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  11   int c;
  12
  13   while ((c = get_opts ()) != -1)
  14     switch (c)
  15       {
  16       case 'k':
  17         ior = get_opts.opt_arg ();
  18         break;
  19
  20       case '?':
  21       default:
  22         ACE_ERROR_RETURN ((LM_ERROR,
  23                            "usage:  %s "
  24                            "-k <ior> "
  25                            "\n",
  26                            argv [0]),
  27                           -1);
  28       }
  29   // Indicates successful parsing of the command line
  30   return 0;
  31 }
  32
  33 int
  34 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  35 {
  36   int result = 0;
  37   try
  38     {
  39       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  40
  41       if (parse_args (argc, argv) != 0)
  42         return 1;
  43
  44       CORBA::Object_var tmp = orb->string_to_object(ior);
  45
  46       Test::Hello_var hello = Test::Hello::_narrow(tmp.in ());
  47
  48       if (CORBA::is_nil (hello.in ()))
  49         {
  50           ACE_ERROR_RETURN ((LM_DEBUG,
  51                              "Nil Test::Hello reference <%s>\n",
  52                              ior),
  53                             1);
  54         }
  55
  56       try
  57         {
  58           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - calling get_string\n"));
  59           CORBA::String_var the_string = hello->get_string ();
  60           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - string returned <%C>\n",
  61                       the_string.in ()));
  62           ACE_OS::sleep (1);
  63           hello->shutdown ();
  64         }
  65       catch (const CORBA::TRANSIENT& )
  66         {
  67           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - caught expected transient\n"));
  68           result = 1;
  69         }
  70       catch (const CORBA::COMM_FAILURE& )
  71         {
  72           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - caught expected comm failure\n"));
  73         }
  74
  75       orb->destroy ();
  76     }
  77   catch (const CORBA::Exception& ex)
  78     {
  79       ex._tao_print_exception ("Exception caught:");
  80       result = 100;
  81     }
  82
  83   return result;
  84 }