summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp')
-rw-r--r--TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp36
1 files changed, 23 insertions, 13 deletions
diff --git a/TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp b/TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp
index 360999cdb28..fffe62a0cba 100644
--- a/TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp
+++ b/TAO/orbsvcs/tests/Bug_1630_Regression/testclient.cpp
@@ -15,6 +15,7 @@ int main (int argc, char* argv[])
{
int failed = 0;
+ ACE_DEBUG((LM_DEBUG, "Start of Client\n"));
// Initialise ORB.
//
CORBA::ORB_var orb = CORBA::ORB_init( argc, argv, "" ACE_ENV_ARG_PARAMETER);
@@ -22,9 +23,11 @@ int main (int argc, char* argv[])
// Find the Interface Repository.
//
+ ACE_DEBUG((LM_DEBUG, ". Find IFR\n"));
CORBA::Object_var ifr_obj = orb->resolve_initial_references( "InterfaceRepository" ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
+ ACE_DEBUG((LM_DEBUG, ". Narrow IFR\n"));
CORBA::Repository_var ifr = CORBA::Repository::_narrow( ifr_obj.in() ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
@@ -34,6 +37,7 @@ int main (int argc, char* argv[])
return 1;
}
+ ACE_DEBUG((LM_DEBUG, ". Construct interface\n"));
// Add an interface to the repository.
//
CORBA::InterfaceDefSeq baseInterfaces(1) ;
@@ -48,19 +52,24 @@ int main (int argc, char* argv[])
// Add an operation to the interface.
// First get some useful things.
//
+ ACE_DEBUG((LM_DEBUG, ". Get primitive (void)\n"));
CORBA::PrimitiveDef_var voidPrimitive =
ifr->get_primitive( CORBA::pk_void ACE_ENV_ARG_PARAMETER) ;
ACE_TRY_CHECK;
+ ACE_DEBUG((LM_DEBUG, ". Get primitive (char)\n"));
CORBA::PrimitiveDef_var charPrimitive =
ifr->get_primitive( CORBA::pk_char ACE_ENV_ARG_PARAMETER) ;
ACE_TRY_CHECK;
+ ACE_DEBUG((LM_DEBUG, ". Get primitive (long)\n"));
CORBA::PrimitiveDef_var longPrimitive =
ifr->get_primitive( CORBA::pk_long ACE_ENV_ARG_PARAMETER) ;
ACE_TRY_CHECK;
+ ACE_DEBUG((LM_DEBUG, ". Get primitive (short)\n"));
CORBA::PrimitiveDef_var shortPrimitive =
ifr->get_primitive( CORBA::pk_short ACE_ENV_ARG_PARAMETER) ;
ACE_TRY_CHECK;
+ ACE_DEBUG((LM_DEBUG, ". create 3 parameters\n"));
// The operation has three parameters...
//
CORBA::ULong numParams = 3 ;
@@ -93,16 +102,19 @@ int main (int argc, char* argv[])
// ...and no exceptions...
//
+ ACE_DEBUG((LM_DEBUG, ". create 0 excepts\n"));
CORBA::ExceptionDefSeq exceptions( 1 ) ;
exceptions.length( 0 ) ;
// ...and no context ids
//
+ ACE_DEBUG((LM_DEBUG, ". create 0 cids\n"));
CORBA::ContextIdSeq contextIds( 1 ) ;
contextIds.length( 0 ) ;
// Create the operation, called "f".
//
+ ACE_DEBUG((LM_DEBUG, ". create_operation\n"));
CORBA::OperationDef_var operation =
interface->create_operation( "IDL:interface865/f:1.0",
"f",
@@ -121,14 +133,12 @@ int main (int argc, char* argv[])
CORBA::NVList_var opList ;
ACE_DEBUG((LM_DEBUG, "About to call create_operation_list\n"));
-
orb->create_operation_list(operation.in (),
opList.out()
ACE_ENV_ARG_PARAMETER) ;
ACE_TRY_CHECK;
ACE_DEBUG((LM_DEBUG, "Call to create_operation_list succeeded\n"));
-
CORBA::ULong count = opList->count() ;
ACE_TRY_CHECK;
@@ -143,7 +153,7 @@ int main (int argc, char* argv[])
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 1 wrong name\n"));
failed = 1 ;
- };
+ }
CORBA::Boolean const eq_char =
nv->value()->type()->equal (CORBA::_tc_char
@@ -154,19 +164,19 @@ int main (int argc, char* argv[])
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 1 wrong type\n"));
failed = 1 ;
- };
+ }
if( nv->flags() != CORBA::ARG_IN )
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 1 wrong mode\n"));
failed = 1 ;
- };
+ }
nv = opList->item( 1 ) ;
if(ACE_OS::strcmp( nv->name(), "p2") != 0 )
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 2 wrong name\n"));
failed = 1 ;
- };
+ }
CORBA::Boolean const eq_long =
nv->value()->type()->equal (CORBA::_tc_long
@@ -177,19 +187,19 @@ int main (int argc, char* argv[])
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 2 wrong type\n"));
failed = 1 ;
- };
+ }
if( nv->flags() != CORBA::ARG_OUT )
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 2 wrong mode\n"));
failed = 1 ;
- };
+ }
nv = opList->item( 2 ) ;
if(ACE_OS::strcmp( nv->name(), "p3") != 0 )
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 3 wrong name\n"));
failed = 1 ;
- };
+ }
CORBA::Boolean const eq_short =
nv->value()->type()->equal (CORBA::_tc_short
@@ -200,15 +210,14 @@ int main (int argc, char* argv[])
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 3 wrong type\n"));
failed = 1 ;
- };
+ }
if( nv->flags() != CORBA::ARG_INOUT )
{
ACE_DEBUG((LM_DEBUG, "Test failed: param 3 wrong mode\n"));
failed = 1 ;
- };
-
+ }
- // opList->free();
+ // opList->free();
//operation->destroy();
// Finally destroy the interface.
@@ -221,6 +230,7 @@ int main (int argc, char* argv[])
{
return 1 ;
}
+ ACE_DEBUG((LM_DEBUG, ". seems OK\n"));
}
ACE_CATCHANY
{