summaryrefslogtreecommitdiff
path: root/ACE/TAO/tests/Bug_2234_Regression/client.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/TAO/tests/Bug_2234_Regression/client.cpp')
-rw-r--r--ACE/TAO/tests/Bug_2234_Regression/client.cpp404
1 files changed, 404 insertions, 0 deletions
diff --git a/ACE/TAO/tests/Bug_2234_Regression/client.cpp b/ACE/TAO/tests/Bug_2234_Regression/client.cpp
new file mode 100644
index 00000000000..f95bc266be0
--- /dev/null
+++ b/ACE/TAO/tests/Bug_2234_Regression/client.cpp
@@ -0,0 +1,404 @@
+// $Id$
+
+// Regression test Bug 2234
+//
+// The bug manifests itself in the server.
+
+#include "TestC.h"
+#include "ace/Get_Opt.h"
+#include "ace/OS_NS_string.h"
+
+const ACE_TCHAR *ior = ACE_TEXT ("file://test.ior");
+
+int
+parse_args (int argc, ACE_TCHAR *argv[])
+{
+ ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
+ int c;
+
+ while ((c = get_opts ()) != -1)
+ switch (c)
+ {
+ case 'k':
+ ior = get_opts.opt_arg ();
+ break;
+
+ case '?':
+ default:
+ ACE_ERROR_RETURN ((LM_ERROR,
+ "usage: %s "
+ "-k <ior> "
+ "\n",
+ argv [0]),
+ -1);
+ }
+ // Indicates successful parsing of the command line
+ return 0;
+}
+
+int
+ACE_TMAIN (
+ int argc,
+ ACE_TCHAR *argv[])
+{
+
+ CORBA::Boolean testFailed= 0;
+ ACE_DEBUG( (LM_INFO, "Regression test for Bug 2234 (Interceptor arg list with var len out params)\n"));
+ try
+ {
+ CORBA::ORB_var
+ orb= CORBA::ORB_init (argc, argv);
+
+ if (parse_args (argc, argv) != 0)
+ return 1;
+
+ CORBA::Object_var
+ object= orb->string_to_object( ior );
+ Test::Foo_var
+ foo= Test::Foo::_narrow( object.in() );
+
+ //-----------------------------------------------------------------------
+ CORBA::Long
+ aL= 1,
+ bL,
+ cL= 3,
+ rL= 0;
+ ACE_DEBUG( (LM_INFO, ". Long() ") );
+ rL= foo->TestLong( aL, bL, cL);
+ ACE_DEBUG( (LM_INFO, "a is %d, b is %d, c is %d, r is %d: ", aL, bL, cL, rL) );
+ if (static_cast<CORBA::Long>(1) != aL) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(2) != bL) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(4) != cL) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(7) != rL) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ CORBA::String_var
+ aS= CORBA::string_dup("1"),
+ bS,
+ cS= CORBA::string_dup("3"),
+ rS;
+ ACE_DEBUG( (LM_INFO, ". String() ") );
+ rS= foo->TestString( aS.in(), bS.out(), cS.inout());
+ ACE_DEBUG( (LM_INFO, "a is %C, b is %C, c is %C, r is %C: ", aS.in (), bS.in (), cS.in (), rS.in ()));
+ if ((0 != *aS.in()) && (0 != ACE_OS::strcmp(aS.in(), "1"))) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if ((0 != *aS.in()) && (0 != ACE_OS::strcmp(bS.in(), "2"))) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if ((0 != *aS.in()) && (0 != ACE_OS::strcmp(cS.in(), "4"))) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if ((0 != *aS.in()) && (0 != ACE_OS::strcmp(rS.in(), "7"))) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ Test::MyNonVarStruct_var
+ aFS= new Test::MyNonVarStruct(),
+ bFS= new Test::MyNonVarStruct(),
+ cFS= new Test::MyNonVarStruct(),
+ rFS;
+ aFS->val= 1;
+ cFS->val= 3;
+ ACE_DEBUG( (LM_INFO, ". MyNonVarStruct() ") );
+ rFS= foo->TestNonVarStruct( aFS.in(), bFS.out(), cFS.inout());
+ ACE_DEBUG( (LM_INFO, "a is %d, b is %d, c is %d, r is %d: ", aFS.in().val, bFS.in().val, cFS.in().val, rFS.in().val) );
+ if (static_cast<CORBA::Long>(1) != aFS->val) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(2) != bFS->val) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(4) != cFS->val) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if (static_cast<CORBA::Long>(7) != rFS->val) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ Test::MyVarStruct_var
+ aVS= new Test::MyVarStruct(),
+ bVS,
+ cVS= new Test::MyVarStruct(),
+ rVS;
+ aVS->val= CORBA::string_dup("1");
+ cVS->val= CORBA::string_dup("3");
+ ACE_DEBUG( (LM_INFO, ". MyVarStruct() ") );
+ rVS= foo->TestVarStruct( aVS.in(), bVS.out(), cVS.inout());
+ ACE_DEBUG( (LM_INFO, "a is %C, b is %C, c is %C, r is %C: ", aVS->val.in(), bVS->val.in (), cVS->val.in (), rVS->val.in ()));
+ if ((0 != *aVS->val) && (0 != ACE_OS::strcmp(aVS->val, "1"))) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if ((0 != *bVS->val) && (0 != ACE_OS::strcmp(bVS->val, "2"))) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if ((0 != *cVS->val) && (0 != ACE_OS::strcmp(cVS->val, "4"))) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if ((0 != *rVS->val) && (0 != ACE_OS::strcmp(rVS->val, "7"))) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ Test::MyNonVarUnion_var
+ aFU= new Test::MyNonVarUnion(),
+ bFU= new Test::MyNonVarUnion(),
+ cFU= new Test::MyNonVarUnion(),
+ rFU;
+ aFU->valLong( static_cast<CORBA::Long>(1) );
+ cFU->valLong( static_cast<CORBA::Long>(3) );
+ ACE_DEBUG( (LM_INFO, ". MyNonVarUnion() ") );
+ rFU= foo->TestNonVarUnion( aFU.in(), bFU.out(), cFU.inout());
+ ACE_DEBUG( (LM_INFO, "a is ") );
+ if (static_cast<CORBA::Short>(1) != aFU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", aFU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", b is ") );
+ if (static_cast<CORBA::Short>(1) != bFU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", bFU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", c is ") );
+ if (static_cast<CORBA::Short>(1) != cFU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", cFU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", r is ") );
+ if (static_cast<CORBA::Short>(1) != rFU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", rFU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ": ") );
+ if ((static_cast<CORBA::Short>(1) != aFU->_d()) || (static_cast<CORBA::Long>(1) != aFU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != bFU->_d()) || (static_cast<CORBA::Long>(2) != bFU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != cFU->_d()) || (static_cast<CORBA::Long>(4) != cFU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != rFU->_d()) || (static_cast<CORBA::Long>(7) != rFU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ Test::MyVarUnion_var
+ aVU= new Test::MyVarUnion(),
+ bVU,
+ cVU= new Test::MyVarUnion(),
+ rVU;
+ aVU->valLong( static_cast<CORBA::Long>(1) );
+ cVU->valLong( static_cast<CORBA::Long>(3) );
+ ACE_DEBUG( (LM_INFO, ". MyVarUnion() ") );
+ rVU= foo->TestVarUnion( aVU.in(), bVU.out(), cVU.inout());
+ ACE_DEBUG( (LM_INFO, "a is ") );
+ if (static_cast<CORBA::Short>(1) != aVU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", aVU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", b is ") );
+ if (static_cast<CORBA::Short>(1) != bVU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", bVU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", c is ") );
+ if (static_cast<CORBA::Short>(1) != cVU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", cVU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ", r is ") );
+ if (static_cast<CORBA::Short>(1) != rVU->_d())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", rVU->valLong()) );
+ ACE_DEBUG( (LM_INFO, ": ") );
+ if ((static_cast<CORBA::Short>(1) != aVU->_d()) || (static_cast<CORBA::Long>(1) != aVU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != bVU->_d()) || (static_cast<CORBA::Long>(2) != bVU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != cVU->_d()) || (static_cast<CORBA::Long>(4) != cVU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if ((static_cast<CORBA::Short>(1) != rVU->_d()) || (static_cast<CORBA::Long>(7) != rVU->valLong())) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ Test::MySeqOfLong_var
+ aSL= new Test::MySeqOfLong(1),
+ bSL,
+ cSL= new Test::MySeqOfLong(1),
+ rSL;
+ aSL->length(1);
+ aSL[0]= static_cast<CORBA::Long>(1);
+ cSL->length(1);
+ cSL[0]= static_cast<CORBA::Long>(3);
+ ACE_DEBUG( (LM_INFO, ". MySeqOfLong() ") );
+ rSL= foo->TestSeqOfLong( aSL.in(), bSL.out(), cSL.inout());
+ ACE_DEBUG( (LM_INFO, "a is ") );
+ if (1u != aSL->length())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", aSL[0]) );
+ ACE_DEBUG( (LM_INFO, ", b is ") );
+ if (1u != bSL->length())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", bSL[0]) );
+ ACE_DEBUG( (LM_INFO, ", c is ") );
+ if (1u != cSL->length())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", cSL[0]) );
+ ACE_DEBUG( (LM_INFO, ", r is ") );
+ if (1u != rSL->length())
+ ACE_DEBUG( (LM_INFO, "?") );
+ else
+ ACE_DEBUG( (LM_INFO, "%d", rSL[0]) );
+ ACE_DEBUG( (LM_INFO, ": ") );
+ if ((1u != aSL->length()) || (static_cast<CORBA::Long>(1) != aSL[0])) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if ((1u != bSL->length()) || (static_cast<CORBA::Long>(2) != bSL[0])) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if ((1u != cSL->length()) || (static_cast<CORBA::Long>(4) != cSL[0])) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if ((1u != rSL->length()) || (static_cast<CORBA::Long>(7) != rSL[0])) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ CORBA::Any_var
+ aA= new CORBA::Any(),
+ bA,
+ cA= new CORBA::Any(),
+ rA;
+ aA<<= static_cast<CORBA::Long>(1);
+ cA<<= static_cast<CORBA::Long>(3);
+ ACE_DEBUG( (LM_INFO, ". Any() ") );
+ rA= foo->TestAny( aA.in(), bA.out(), cA.inout());
+ CORBA::Boolean
+ aB,
+ bB,
+ cB,
+ rB;
+ ACE_DEBUG( (LM_INFO, "a is ") );
+ if (0 != (aB= (aA>>= aL)))
+ ACE_DEBUG( (LM_INFO, "%d", aL) );
+ else
+ ACE_DEBUG( (LM_INFO, "?") );
+ ACE_DEBUG( (LM_INFO, ", b is ") );
+ if (0 != (bB= (bA>>= bL)))
+ ACE_DEBUG( (LM_INFO, "%d", bL) );
+ else
+ ACE_DEBUG( (LM_INFO, "?") );
+ ACE_DEBUG( (LM_INFO, ", c is ") );
+ if (0 != (cB= (cA>>= cL)))
+ ACE_DEBUG( (LM_INFO, "%d", cL) );
+ else
+ ACE_DEBUG( (LM_INFO, "?") );
+ ACE_DEBUG( (LM_INFO, ", r is ") );
+ if (0 != (rB= (rA>>= rL)))
+ ACE_DEBUG( (LM_INFO, "%d", rL) );
+ else
+ ACE_DEBUG( (LM_INFO, "?") );
+ ACE_DEBUG( (LM_INFO, ": ") );
+ if (!aB || (static_cast<CORBA::Long>(1) != aL)) {
+ ACE_DEBUG( (LM_ERROR, "a is wrong\n") ); testFailed= 1;}
+ else if (!bB || (static_cast<CORBA::Long>(2) != bL)) {
+ ACE_DEBUG( (LM_ERROR, "b is wrong\n") ); testFailed= 1;}
+ else if (!cB || (static_cast<CORBA::Long>(4) != cL)) {
+ ACE_DEBUG( (LM_ERROR, "c is wrong\n") ); testFailed= 1;}
+ else if (!rB || (static_cast<CORBA::Long>(7) != rL)) {
+ ACE_DEBUG( (LM_ERROR, "r is wrong\n") ); testFailed= 1;}
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+
+ //-----------------------------------------------------------------------
+ {
+ Test::MyArray arr_a;
+ arr_a[0].length (1);
+ arr_a[0][0] = 9;
+ arr_a[1].length (1);
+ arr_a[1][0] = 23;
+
+ Test::MyArray_var arr_b;
+
+ Test::MyArray arr_c;
+ arr_c[0].length (1);
+ arr_c[0][0] = 23;
+ arr_c[1].length (1);
+ arr_c[1][0] = 9;
+
+ ACE_DEBUG( (LM_INFO, ". MyArray() ") );
+ Test::MyArray_var arr_ret = foo->TestArray (arr_a, arr_b.out (), arr_c);
+ CORBA::ULong zero (0), one (1); //Use ULong to avoid ambiguity
+ if (arr_c[0].length () != 1 || arr_c[0][0] != 24)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_c[0] is wrong\n") ); testFailed = 1;
+ }
+ else if (arr_c[1].length () != 1 || arr_c[1][0] != 10)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_c[1] is wrong\n") ); testFailed = 1;
+ }
+ else if (arr_b[zero].length () != 1 || arr_b[zero][0] != 8)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_b[0] is wrong\n") ); testFailed = 1;
+ }
+ else if (arr_b[one].length () != 1 || arr_b[one][0] != 22)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_b[1] is wrong\n") ); testFailed = 1;
+ }
+ else if (arr_ret[zero].length () != 1 || arr_ret[zero][0] != 7)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_ret[0] is wrong\n") ); testFailed = 1;
+ }
+ else if (arr_ret[one].length () != 1 || arr_ret[one][0] != 21)
+ {
+ ACE_DEBUG( (LM_ERROR, "arr_ret[1] is wrong\n") ); testFailed = 1;
+ }
+ else
+ ACE_DEBUG( (LM_INFO, "OK\n") );
+ }
+
+ //-----------------------------------------------------------------------
+ {
+ CORBA::Object_var a = CORBA::Object::_duplicate (foo.in ());
+ CORBA::Object_var b;
+ CORBA::Object_var c = CORBA::Object::_duplicate (a.in ());
+ CORBA::Object_var ret = foo->TestObject (a.in (), b.out (), c.inout ());
+ }
+
+ //-----------------------------------------------------------------------
+ foo->ShutdownServer( );
+
+ //-----------------------------------------------------------------------
+ orb->shutdown( true );
+ orb->destroy( );
+ }
+ catch (const CORBA::SystemException& ex)
+ {
+ ex._tao_print_exception ("CORBA::SystemException: ");
+ testFailed= 1;
+ }
+ catch (const CORBA::Exception& ex)
+ {
+ ex._tao_print_exception ("CORBA::Exception: ");
+ testFailed= 1;
+ }
+ catch (...)
+ {
+ ACE_DEBUG( (LM_ERROR, "Unexpected general exception!\n") );
+ testFailed= 1;
+ }
+
+ ACE_DEBUG( (LM_INFO, "Regression test for Bug 2234 ") );
+ if (testFailed)
+ ACE_DEBUG( (LM_ERROR, "Failed\n") );
+ else
+ ACE_DEBUG( (LM_INFO, "Passed\n") );
+
+ return testFailed? -1 : 0;
+}
View Lorry Controller Status