TAO/tests/Bug_3746_Regression/client.cpp

   1 #include "TestC.h"
   2 #include "ace/Get_Opt.h"
   3
   4 const ACE_TCHAR *ior = ACE_TEXT ("file://test.ior");
   5
   6 int
   7 parse_args (int argc, ACE_TCHAR *argv[])
   8 {
   9   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT ("k:"));
  10   int c;
  11
  12   while ((c = get_opts ()) != -1)
  13     switch (c)
  14       {
  15       case 'k':
  16         ior = get_opts.opt_arg ();
  17         break;
  18
  19       case '?':
  20       default:
  21         ACE_ERROR_RETURN ((LM_ERROR,
  22                            "usage:  %s -k <ior> \n",
  23                            argv [0]),
  24                           -1);
  25       }
  26   // Indicates successful parsing of the command line
  27   return 0;
  28 }
  29
  30 int
  31 ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  32 {
  33   int error= 0;
  34   try
  35     {
  36       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  37
  38       if (parse_args (argc, argv) != 0)
  39         return 1;
  40
  41       CORBA::Object_var tmp = orb->string_to_object(ior);
  42
  43       Test::BoundSequences_var TestThis =
  44         Test::BoundSequences::_narrow(tmp.in ());
  45
  46       if (CORBA::is_nil (TestThis.in ()))
  47         {
  48           ACE_ERROR_RETURN ((LM_DEBUG,
  49                              "Nil Test::BoundSequences reference <%s>\n",
  50                              ior),
  51                             1);
  52         }
  53
  54       ////////////////////////////////////////////
  55       ::Test::BoundSequences::SequenceOf10Long Seq;
  56       ACE_DEBUG ((LM_DEBUG, "Client - Attempting to set length(11)\n"));
  57       try
  58         {
  59           Seq.length (11);
  60           ACE_DEBUG ((LM_DEBUG,
  61                       "Client - **FAILED** Incorrectly set length to %u\n",
  62                       Seq.length ()));
  63           error= 1;
  64         }
  65       catch (const ::CORBA::BAD_PARAM &)
  66         {
  67           ACE_DEBUG ((LM_DEBUG, "Client - Correctly threw bad_param\n"));
  68         }
  69       catch (const ::CORBA::Exception &ex)
  70         {
  71           ex._tao_print_exception ("Client - **FAILED** Incorrectly threw");
  72           error= 1;
  73         }
  74       catch (...)
  75         {
  76           ACE_DEBUG ((LM_DEBUG,
  77                       "Client - **FAILED** Incorrectly threw something else\n"));
  78           error= 1;
  79         }
  80
  81       ////////////////////////////////////////////
  82       ACE_DEBUG ((LM_DEBUG, "Client - Attempting to set length(10)\n"));
  83       try
  84         {
  85           Seq.length (10);
  86           ACE_DEBUG ((LM_DEBUG, "Client - %Correctly set length to %u\n",
  87                       ((10 == Seq.length ()) ? "C" : "**** Inc"),
  88                       Seq.length ()));
  89           if (10 != Seq.length ())
  90             error= 1;
  91         }
  92       catch (const ::CORBA::Exception &ex)
  93         {
  94           ex._tao_print_exception ("Client - **FAILED** Incorrectly threw");
  95           error= 1;
  96         }
  97       catch (...)
  98         {
  99           ACE_DEBUG ((LM_DEBUG,
 100                       "Client - **FAILED** Incorrectly threw something else\n"));
 101           error= 1;
 102         }
 103
 104       //////////////////////////////////////////
 105       ACE_DEBUG ((LM_DEBUG, "Client - Accessing [0]\n"));
 106       try
 107         {
 108           // Just to read access Seq[0] without optimizing away
 109           ACE_DEBUG ((LM_DEBUG, "", Seq[0]));
 110           ACE_DEBUG ((LM_DEBUG, "Client - Correctly allowed access to [0]\n"));
 111         }
 112       catch (const ::CORBA::Exception &ex)
 113         {
 114           ex._tao_print_exception ("Client - **FAILED** Incorrectly threw");
 115           error= 1;
 116         }
 117       catch (...)
 118         {
 119           ACE_DEBUG ((LM_DEBUG,
 120                       "Client - **FAILED** Incorrectly threw something else\n"));
 121           error= 1;
 122         }
 123
 124       ////////////////////////////////////////////
 125       ACE_DEBUG ((LM_DEBUG, "Client - Accessing [10]\n"));
 126       try
 127         {
 128           // Just to read access Seq[10] without optimizing away
 129           ACE_DEBUG ((LM_DEBUG, "", Seq[10]));
 130 #if defined (TAO_CHECKED_SEQUENCE_INDEXING) && (TAO_CHECKED_SEQUENCE_INDEXING == 1)
 131           ACE_DEBUG ((LM_DEBUG,
 132                       "Client - **** Incorrectly allowed access to [10]\n"));
 133           error= 1;
 134         }
 135       catch (const ::CORBA::BAD_PARAM &)
 136         {
 137           ACE_DEBUG ((LM_DEBUG, "Client - Correctly threw bad_param\n"));
 138 #else
 139           ACE_DEBUG ((LM_DEBUG, "Client - Correctly allowed access to [10]\n"));
 140 #endif // TAO_CHECKED_SEQUENCE_INDEXING
 141         }
 142       catch (const ::CORBA::Exception &ex)
 143         {
 144           ex._tao_print_exception ("Client - **FAILED** Incorrectly threw");
 145           error= 1;
 146         }
 147       catch (...)
 148         {
 149           ACE_DEBUG ((LM_DEBUG,
 150                       "Client - **FAILED** Incorrectly threw something else\n"));
 151           error= 1;
 152         }
 153
 154       ////////////////////////////////////////////
 155       ACE_DEBUG ((LM_DEBUG, "Client - Sending Seq\n"));
 156       ::CORBA::ULong result;
 157       try
 158         {
 159           result= TestThis->SendSequenceOf10Long (Seq.length (), Seq);
 160           if (result != Seq.length())
 161             {
 162               ACE_DEBUG ((LM_DEBUG,
 163                           "Client - **FAILED** Sent %u longs but "
 164                           "server received %u longs\n",
 165                           Seq.length(), result));
 166               error= 1;
 167             }
 168           else
 169             ACE_DEBUG ((LM_DEBUG,
 170                         "Client - **SUCCESS** Sent and Server got %u longs\n",
 171                         result));
 172         }
 173       catch (const ::CORBA::Exception &ex)
 174         {
 175           ex._tao_print_exception ("Client - **FAILED** Incorrectly threw");
 176           error= 1;
 177         }
 178       catch (...)
 179         {
 180           ACE_DEBUG ((LM_DEBUG,
 181                       "Client - **FAILED** Incorrectly threw something else\n"));
 182           error= 1;
 183         }
 184
 185       ////////////////////////////////////////////
 186       ACE_DEBUG ((LM_DEBUG, "Client - Shutting down Server\n"));
 187       TestThis->shutdown ();
 188
 189       ACE_DEBUG ((LM_DEBUG, "Client - Finishing\n"));
 190       orb->destroy ();
 191     }
 192   catch (const CORBA::Exception& ex)
 193     {
 194       ex._tao_print_exception ("Client - Exception caught:");
 195       error= 1;
 196     }
 197
 198   return error;
 199 }