TAO/tests/Sequence_Unit_Tests/Unbounded_Octet.cpp

   1 /**
   2  * @file
   3  *
   4  * @brief Smoke test (basically just compile) the unbounded sequences
   5  *        for octets.
   6  *
   7  * @author Johnny Willemsen  <jwillemsen@remedy.nl>
   8  */
   9 #include "tao/Basic_Types.h"
  10 #include "tao/Unbounded_Octet_Sequence_T.h"
  11 #include "ace/Log_Msg.h"
  12
  13 typedef TAO::unbounded_value_sequence <CORBA::Octet> 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
  31       a[0] = 'a';
  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(64, 0, s_sequence::allocbuf(64), true);
  49
  50       CORBA::Octet 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(64));
  60       }
  61
  62       s_sequence e(c);
  63     }
  64   catch (const ::CORBA::Exception &)
  65     {
  66       ACE_ERROR ((LM_ERROR, "Caught unexpected exception\n"));
  67       return 1;
  68     }
  69
  70   return 0;
  71 }