1 files changed, 122 insertions, 0 deletions
diff --git a/TAO/tests/DynAny_Test/data.cpp b/TAO/tests/DynAny_Test/data.cpp
new file mode 100644
index 00000000000..55422d128f6
--- /dev/null
+++ b/TAO/tests/DynAny_Test/data.cpp
@@ -0,0 +1,122 @@
+//=============================================================================
+/**
+ *  @file    data.cpp
+ *
+ *  $Id$
+ *
+ *  Implementation file for the class containing test constants.
+ *
+ *
+ *  @author Jeff Parsons <parsons@cs.wustl.edu>
+ */
+//=============================================================================
+
+
+#include "data.h"
+#include "tao/AnyTypeCode/TypeCode.h"
+#include "tao/PortableServer/PortableServer.h"
+#include "ace/Log_Msg.h"
+
+Data::Data (CORBA::ORB_var orb)
+  : m_bool1 (1),                                m_bool2 (0),
+    m_octet1 (8),                               m_octet2 (0),
+    m_char1 ('z'),                              m_char2 (0),
+    m_short1 (-5),                              m_short2 (0),
+    m_long1 (-123456),                          m_long2 (0),
+    m_ushort1 (5),                              m_ushort2 (0),
+    m_ulong1 (123456),                          m_ulong2 (0),
+    m_float1 (0.142857f),                       m_float2 (0.0f),
+    m_double1 (3.14159),                        m_double2 (0.0),
+    m_ulonglong1 (654321),                      m_ulonglong2 (0),
+    m_string1 (CORBA::string_dup ("upchuck")),  m_string2 (0),
+
+    m_typecode1 (CORBA::TypeCode::_duplicate (CORBA::_tc_long)),
+    m_typecode2 (CORBA::TypeCode::_duplicate (CORBA::_tc_null)),
+
+    m_wchar1 (666),                             m_wchar2 (0),
+    orb_ (orb)
+{
+  ACE_DECLARE_NEW_CORBA_ENV;
+
+  ACE_TRY
+    {
+      m_shortseq1.length (3UL);
+      m_shortseq1[0UL] = 0;
+      m_shortseq1[1UL] = 1;
+      m_shortseq1[2UL] = 2;
+    
+      labels[0] = "type boolean";
+      labels[1] = "type octet";
+      labels[2] = "type char";
+      labels[3] = "type short";
+      labels[4] = "type long",
+      labels[5] = "type ushort";
+      labels[6] = "type ulong";
+      labels[7] = "type float";
+      labels[8] = "type double";
+      labels[9] = "type longlong";
+      labels[10] = "type ulonglong";
+      labels[11] = "type string";
+      labels[12] = "type typecode";
+      labels[13] = "type wchar";
+      labels[14] = "type any";
+      labels[15] = "type objref";
+      labels[16] = "type short sequence";
+      
+
+      // Getting the RootPOA so we can generate object references.
+      CORBA::Object_var obj =
+        this->orb_->resolve_initial_references ("RootPOA"
+                                                ACE_ENV_ARG_PARAMETER);
+
+      ACE_TRY_CHECK;
+
+      if (CORBA::is_nil (obj.in ()))
+        {
+          ACE_ERROR ((LM_ERROR,
+                      "(%P|%t) Unable to get root poa reference.\n"));
+        }
+
+      // Get the POA_var object from Object_var.
+      PortableServer::POA_var root_poa =
+        PortableServer::POA::_narrow (obj.in ()
+                                      ACE_ENV_ARG_PARAMETER);
+
+      ACE_TRY_CHECK;
+
+      // Generate values for the member variables.
+     this->m_objref1 =
+        root_poa->create_reference ("foo"
+                                    ACE_ENV_ARG_PARAMETER);
+
+      ACE_TRY_CHECK;
+
+      this->m_objref2 =
+        root_poa->create_reference ("foo"
+                                    ACE_ENV_ARG_PARAMETER);
+
+      ACE_TRY_CHECK;
+
+      // Clean up after the POA
+      root_poa->destroy (1,
+                         1
+                         ACE_ENV_ARG_PARAMETER);
+
+      ACE_TRY_CHECK;
+    }
+  ACE_CATCHANY
+    {
+      ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
+                           "Exception in ORB/POA init\n");
+    }
+  ACE_ENDTRY;
+  ACE_CHECK;
+}
+
+Data::~Data (void)
+{
+  CORBA::string_free (m_string1);
+  CORBA::string_free (m_string2);
+  CORBA::release (m_typecode1);
+  CORBA::release (m_typecode2);
+}