TAO/tests/Bug_2795_Regression/client.cpp

   1 #include "tao/ORB_Core.h"
   2 #include "tao/StringSeqC.h"
   3
   4 void
   5 StringOutTest (CORBA::String_out so)
   6 {
   7   CORBA::String_var sv;
   8   sv = "StringOutTest";
   9   so = sv._retn ();
  10 }
  11
  12 void
  13 StringInoutTest (char *& so)
  14 {
  15   CORBA::string_free (so);
  16   so = CORBA::string_dup ("StringInoutTest");
  17 }
  18
  19 int
  20 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  21 {
  22   try
  23     {
  24       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  25
  26       CORBA::StringSeq ts;
  27       ts.length (1);
  28       ts[0] = CORBA::string_dup ("Hello World");
  29
  30       StringOutTest (ts[0].out());
  31       ACE_ASSERT (ACE_OS::strcmp (ts[0].in(), "StringOutTest") == 0);
  32
  33       StringInoutTest (ts[0].inout());
  34       ACE_ASSERT (ACE_OS::strcmp (ts[0].in(), "StringInoutTest") == 0);
  35
  36       CORBA::String_var sv = ts[0]._retn ();
  37       ACE_ASSERT (ACE_OS::strcmp (ts[0].in(), "") == 0);
  38
  39       ts[0] = CORBA::string_dup ("Hello Again");
  40     }
  41   catch (const CORBA::Exception &ex)
  42     {
  43       ACE_ERROR ((LM_ERROR, "Exception caught: %s\"%s\"\n"
  44       , ex._name(), ex._rep_id ()));
  45       return 1;
  46     }
  47
  48   return 0;
  49
  50   return 0;
  51 }