TAO/tests/Bug_4082_Regression/Bug_4082_Regression.cpp

   1 #include "Bug_4082_RegressionC.h"
   2 #include "tao/AnyTypeCode/TypeCode.h"
   3 #include "tao/AnyTypeCode/Any.h"
   4
   5 int ACE_TMAIN (int, ACE_TCHAR *[])
   6 {
   7   MyLongSeq mls (2);
   8   mls.length (2);
   9   mls[0] = 0;
  10   mls[1] = 1;
  11   CORBA::Any a;
  12   a <<= mls;
  13
  14   CORBA::TypeCode_var tc = a.type ();
  15   if (!tc->equivalent (CORBA::_tc_LongSeq) || tc->equal (CORBA::_tc_LongSeq))
  16     {
  17       ACE_DEBUG ((LM_ERROR, ACE_TEXT ("ERROR: Test precondition not met\n")));
  18       return 1;
  19     }
  20
  21   const CORBA::LongSeq *cls = 0;
  22   if (!(a >>= cls))
  23     {
  24       ACE_DEBUG ((LM_ERROR, ACE_TEXT ("ERROR: Failed to extract\n")));
  25       return 1;
  26     }
  27
  28   if (!cls || cls->length () != 2 || (*cls)[0] != 0 || (*cls)[1] != 1)
  29     {
  30       ACE_DEBUG ((LM_ERROR, ACE_TEXT ("ERROR: Extract invalid data\n")));
  31       return 1;
  32     }
  33
  34   return 0;
  35 }