TAO/tests/Sequence_Unit_Tests/Bounded_String.cpp

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