TAO/tests/Bug_1670_Regression/client.cpp

   1 /**
   2  * @file client.cpp
   3  *
   4  * @author Carlos O'Ryan <coryan@atdesk.com>
   5  */
   6 #include "TestC.h"
   7
   8 #include "ace/Get_Opt.h"
   9
  10 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
  11
  12 int
  13 parse_args (int argc, ACE_TCHAR *argv[])
  14 {
  15   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  16   int c;
  17
  18   while ((c = get_opts ()) != -1)
  19     switch (c)
  20       {
  21       case 'k':
  22         ior = get_opts.opt_arg ();
  23         break;
  24
  25       case '?':
  26       default:
  27         ACE_ERROR_RETURN ((LM_ERROR,
  28                            "usage:  %s "
  29                            "-k <ior> "
  30                            "\n",
  31                            argv [0]),
  32                           -1);
  33       }
  34   // Indicates successful parsing of the command line
  35   return 0;
  36 }
  37
  38 int
  39 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  40 {
  41   try
  42     {
  43       CORBA::ORB_var orb =
  44         CORBA::ORB_init (argc, argv);
  45
  46       if (parse_args (argc, argv) != 0)
  47         return 1;
  48
  49       CORBA::Object_var object =
  50         orb->string_to_object (ior);
  51
  52       Baz::C_var cobject =
  53         Baz::C::_narrow (object.in ());
  54
  55       if (CORBA::is_nil (cobject.in ()))
  56         {
  57           ACE_ERROR_RETURN ((LM_ERROR,
  58                                 "Cannot narrow Baz::C object <%s>\n",
  59                                 ior),
  60                             1);
  61         }
  62
  63       CORBA::Long result;
  64       result = cobject->op1 ();
  65       if (result != 1)
  66         {
  67           ACE_ERROR_RETURN ((LM_ERROR,
  68                                 "Result not 1\n"),
  69                             1);
  70         }
  71
  72       result = cobject->op2 ();
  73       if (result != 2)
  74         {
  75           ACE_ERROR_RETURN ((LM_ERROR,
  76                                 "Result not 2\n"),
  77                             1);
  78         }
  79
  80       result = cobject->op3 ();
  81       if (result != 3)
  82         {
  83           ACE_ERROR_RETURN ((LM_ERROR,
  84                                 "Result not 3\n"),
  85                             1);
  86         }
  87
  88       result = cobject->op4 ();
  89       if (result != 4)
  90         {
  91           ACE_ERROR_RETURN ((LM_ERROR,
  92                                 "Result not 4\n"),
  93                             1);
  94         }
  95
  96       Foo::Bar::B_var bobject =
  97         Foo::Bar::B::_narrow (object.in ());
  98
  99       if (CORBA::is_nil (bobject.in ()))
 100         {
 101           ACE_ERROR_RETURN ((LM_ERROR,
 102                                 "Cannot narrow Foo::Bar::B object <%s>\n",
 103                                 ior),
 104                             1);
 105         }
 106
 107       result = bobject->op3 ();
 108       if (result != 3)
 109         {
 110           ACE_ERROR_RETURN ((LM_ERROR,
 111                                 "Result not 3\n"),
 112                             1);
 113         }
 114
 115       Foo::Bar::A_var aobject =
 116         Foo::Bar::A::_narrow (object.in ());
 117
 118       if (CORBA::is_nil (aobject.in ()))
 119         {
 120           ACE_ERROR_RETURN ((LM_ERROR,
 121                                 "Cannot narrow Foo::Bar::A object <%s>\n",
 122                                 ior),
 123                             1);
 124         }
 125
 126       result = aobject->op1 ();
 127       if (result != 1)
 128         {
 129           ACE_ERROR_RETURN ((LM_ERROR,
 130                                 "Result not 1\n"),
 131                             1);
 132         }
 133
 134       result = aobject->op2 ();
 135       if (result != 2)
 136         {
 137           ACE_ERROR_RETURN ((LM_ERROR,
 138                                 "Result not 2\n"),
 139                             1);
 140         }
 141
 142       cobject->shutdown ();
 143
 144       orb->destroy ();
 145     }
 146   catch (const CORBA::Exception& ex)
 147     {
 148       ex._tao_print_exception ("");
 149       return 1;
 150     }
 151
 152   return 0;
 153 }