diff options
Diffstat (limited to 'TAO/tests/DynAny_Test/test_dynunion.cpp')
| -rw-r--r-- | TAO/tests/DynAny_Test/test_dynunion.cpp | 371 |
1 files changed, 0 insertions, 371 deletions
diff --git a/TAO/tests/DynAny_Test/test_dynunion.cpp b/TAO/tests/DynAny_Test/test_dynunion.cpp deleted file mode 100644 index cfdde4db414..00000000000 --- a/TAO/tests/DynAny_Test/test_dynunion.cpp +++ /dev/null @@ -1,371 +0,0 @@ -//============================================================================= -/** - * @file test_dynunion.cpp - * - * $Id$ - * - * Implementation of the simple DynUnion test - * - * @author Jeff Parsons <parsons@cs.wustl.edu> - */ -//============================================================================= - -#include "test_dynunion.h" -#include "da_testsC.h" -#include "data.h" -#include "tao/DynamicAny/DynamicAny.h" -#include "analyzer.h" -#include "ace/OS_NS_string.h" - -Test_DynUnion::Test_DynUnion (CORBA::ORB_var orb, int debug) - : orb_ (orb), - test_name_ (CORBA::string_dup ("test_dynunion")), - error_count_ (0), - debug_ (debug) -{ -} - -Test_DynUnion::~Test_DynUnion (void) -{ - CORBA::string_free (this->test_name_); - this->test_name_ = 0; -} - -const char* -Test_DynUnion::test_name (void) const -{ - return this->test_name_; -} - -int -Test_DynUnion::run_test (void) -{ - Data data (this->orb_); - - DynAnyTests::test_union tu; - - ACE_TRY_NEW_ENV - { - ACE_DEBUG ((LM_DEBUG, - "\t*=*=*=*= %s =*=*=*=*\n", - data.labels[12])); - - CORBA::Object_var factory_obj = - this->orb_->resolve_initial_references ("DynAnyFactory" - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - DynamicAny::DynAnyFactory_var dynany_factory = - DynamicAny::DynAnyFactory::_narrow (factory_obj.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (CORBA::is_nil (dynany_factory.in ())) - { - ACE_ERROR_RETURN ((LM_ERROR, - "Nil dynamic any factory after narrow\n"), - -1); - } - - DynAnyAnalyzer analyzer(this->orb_.in(), dynany_factory.in(), debug_); - - ACE_DEBUG ((LM_DEBUG, - "testing: constructor(Any)/from_any/to_any with string\n")); - - DynAnyTests::test_union tstring; - tstring._d (DynAnyTests::TE_THIRD); - tstring.str (CORBA::string_dup (data.m_string1)); - CORBA::Any in_any4; - in_any4 <<= tstring; - DynamicAny::DynAny_var dp4 = - dynany_factory->create_dyn_any (in_any4 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - DynamicAny::DynUnion_var fa4 = - DynamicAny::DynUnion::_narrow (dp4.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - analyzer.analyze(fa4.in() ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Any_var out_any5 = fa4->to_any (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - DynamicAny::DynAny_var dp5 = - dynany_factory->create_dyn_any (out_any5.in() - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - ACE_DEBUG ((LM_DEBUG, - "testing: constructor(Any)/insert/get\n")); - - tu._d (DynAnyTests::TE_SECOND); - tu.tc (data.m_typecode2); - CORBA::Any in_any1; - in_any1 <<= tu; - DynamicAny::DynAny_var dp1 = - dynany_factory->create_dyn_any (in_any1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - DynamicAny::DynUnion_var fa1 = - DynamicAny::DynUnion::_narrow (dp1.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - fa1->seek (1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - fa1->insert_typecode (data.m_typecode1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::TypeCode_var s_out1 = fa1->get_typecode (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Boolean const equal_tc1 = - s_out1->equal (data.m_typecode1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (equal_tc1) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - - ACE_DEBUG ((LM_DEBUG, - "testing: constructor(TypeCode)/from_any/to_any\n")); - - analyzer.analyze(fa1.in() ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Any_var out_any1 = fa1->to_any (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - DynamicAny::DynAny_var ftc1_base = - dynany_factory->create_dyn_any_from_type_code (DynAnyTests::_tc_test_union - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - DynamicAny::DynUnion_var ftc1 = - DynamicAny::DynUnion::_narrow (ftc1_base.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (CORBA::is_nil (ftc1.in ())) - { - ACE_ERROR_RETURN ((LM_ERROR, - "DynUnion::_narrow() returned nil\n"), - -1); - } - - ftc1->from_any (out_any1.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - ftc1->seek (1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::TypeCode_var s_out2 = - ftc1->get_typecode (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Boolean const equal_tc2 = - s_out2->equal (data.m_typecode1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (equal_tc2) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - - ACE_DEBUG ((LM_DEBUG, - "testing: constructor(TypeCode alias)/from_any/to_any\n")); - - analyzer.analyze(fa1.in() ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Any_var out_any2 = fa1->to_any (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::TypeCode_var s_out3; - - ACE_TRY_EX (bad_kind) - { - DynamicAny::DynAny_var ftc2_base = - dynany_factory->create_dyn_any_from_type_code - (DynAnyTests::_tc_test_union_alias ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK_EX (bad_kind); - DynamicAny::DynUnion_var ftc2 = - DynamicAny::DynUnion::_narrow (ftc2_base.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK_EX (bad_kind); - - if (CORBA::is_nil (ftc2.in ())) - { - ACE_ERROR_RETURN ((LM_ERROR, - "DynUnion::_narrow() returned nil\n"), - -1); - } - - ftc2->from_any (out_any2.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK_EX (bad_kind); - ftc2->seek (1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK_EX (bad_kind); - s_out3 = ftc2->get_typecode (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK_EX (bad_kind); - } - ACE_CATCH (CORBA::TypeCode::BadKind, ex) - { - // Failed to create - } - ACE_ENDTRY; - ACE_TRY_CHECK; - - if (!CORBA::is_nil (s_out3.in ())) - { - CORBA::Boolean const equal_tc = - s_out3->equal (data.m_typecode1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (equal_tc) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - } - else - { - ++this->error_count_; - } - - ACE_DEBUG ((LM_DEBUG, - "testing:discriminator/discriminator_kind\n")); - - DynamicAny::DynAny_var dp2 = ftc1->get_discriminator (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::TypeCode_var tc2 = dp2->type (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::TCKind tc1kind = ftc1->discriminator_kind (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::TCKind tc2kind = tc2->kind (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (tc2kind == tc1kind) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - - ACE_DEBUG ((LM_DEBUG, - "testing:member/member_kind/member_name\n")); - - DynamicAny::DynAny_var dp3 = ftc1->member (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::String_var m_nm = ftc1->member_name (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::TCKind tk = ftc1->member_kind (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::TypeCode_var tc3 = dp3->get_typecode (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - CORBA::Boolean const equal_tc3 = - data.m_typecode1->equal (tc3.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (!ACE_OS::strcmp (m_nm.in (), "tc") - && tk == CORBA::tk_TypeCode - && equal_tc3) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - ACE_TRY_CHECK; - - ACE_DEBUG ((LM_DEBUG, - "testing: set_to_default_member\n")); - - ftc1->set_to_default_member (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - ftc1->seek (1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - ftc1->insert_short (data.m_short1 - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - DynamicAny::DynAny_var mem = ftc1->member (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - CORBA::Short out_s = mem->get_short (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (out_s == data.m_short1) - { - ACE_DEBUG ((LM_DEBUG, - "++ OK ++\n")); - } - else - { - ++this->error_count_; - } - - fa1->destroy (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - ftc1->destroy (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - - ACE_DEBUG ((LM_DEBUG, - "testing: create_dyn_any with _default()\n")); - DynAnyTests::test_implicit_def test_implicit_def_union; - CORBA::Any any_union; - - test_implicit_def_union._default(); - ACE_TRY_CHECK; - any_union <<= test_implicit_def_union; - ACE_TRY_CHECK; - - DynamicAny::DynAny_var da_union = - dynany_factory->create_dyn_any (any_union); - ACE_TRY_CHECK; - - // if we get here the create_dyn_any worked. - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, - "test_dynunion::run_test"); - return -1; - } - ACE_ENDTRY; - - ACE_DEBUG ((LM_DEBUG, - "\n%d errors\n", - this->error_count_)); - - return 0; -} |