TAO/tests/Sequence_Unit_Tests/Unbounded_String.cpp

   1 /**
   2  * @file
   3  *
   4  * @brief Smoke test (basically just compile) the unbounded sequences
   5  *        for strings.
   6  *
   7  * @author Carlos O'Ryan
   8  */
   9 #include "tao/Unbounded_Basic_String_Sequence_T.h"
  10 #include "tao/CORBA_String.h"
  11 #include "ace/Log_Msg.h"
  12
  13 typedef TAO::unbounded_basic_string_sequence<char> s_sequence;
  14
  15 int ACE_TMAIN (int, ACE_TCHAR *[])
  16 {
  17   try
  18     {
  19       s_sequence a;
  20       s_sequence b(23);
  21
  22       s_sequence c(32, 0, s_sequence::allocbuf(32), true);
  23       a = b;
  24
  25       a.length(c.maximum());
  26       if (a.release())
  27       {
  28         b.length(a.length());
  29       }
  30       a[0] = const_cast<char const*>("Hello");
  31       b[0] = a[0];
  32
  33       s_sequence const & d = a;
  34       try
  35         {
  36           c[0] = d[0];
  37 #if defined (TAO_CHECKED_SEQUENCE_INDEXING) && (TAO_CHECKED_SEQUENCE_INDEXING == 1)
  38           return 1;
  39 #endif
  40         }
  41       catch (const ::CORBA::BAD_PARAM &)
  42         {
  43           // c has length = 0, so there is an exception when we try
  44           // to access element above length.
  45         }
  46
  47       b.replace(64, 0, s_sequence::allocbuf(64), true);
  48
  49       char const * const * x = d.get_buffer();
  50       if (x != 0)
  51       {
  52         s_sequence::freebuf(a.get_buffer(true));
  53       }
  54       x = b.get_buffer();
  55
  56       if (d.length())
  57       {
  58         s_sequence::freebuf(s_sequence::allocbuf(64));
  59       }
  60
  61       s_sequence e(c);
  62
  63       CORBA::String_var w(const_cast<char const*>("World"));
  64       try
  65         {
  66           e[0] = w;
  67 #if defined (TAO_CHECKED_SEQUENCE_INDEXING) && (TAO_CHECKED_SEQUENCE_INDEXING == 1)
  68           return 1;
  69 #endif
  70         }
  71       catch (const ::CORBA::BAD_PARAM &)
  72         {
  73           // e has length = 0, so there is an exception when we try
  74           // to access element above length.
  75         }
  76     }
  77   catch (const ::CORBA::Exception &)
  78     {
  79       ACE_ERROR ((LM_ERROR, "Caught unexpected exception\n"));
  80       return 1;
  81     }
  82
  83   return 0;
  84 }