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
  59           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - calling get_string\n"));
  60           CORBA::String_var the_string = hello->get_string ();
  61           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - string returned <%C>\n",
  62                       the_string.in ()));
  63           ACE_OS::sleep (1);
  64           hello->shutdown ();
  65         }
  66       catch (const CORBA::TRANSIENT& )
  67         {
  68           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - caught expected transient\n"));
  69           result = 1;
  70         }
  71       catch (const CORBA::COMM_FAILURE& )
  72         {
  73           ACE_DEBUG ((LM_DEBUG, "(%P|%t) - caught expected comm failure\n"));
  74         }
  75
  76       orb->destroy ();
  77     }
  78   catch (const CORBA::Exception& ex)
  79     {
  80       ex._tao_print_exception ("Exception caught:");
  81       result = 100;
  82     }
  83
  84   return result;
  85 }