summaryrefslogtreecommitdiff
path: root/TAO/tests/Param_Test/complex_any.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tests/Param_Test/complex_any.cpp')
-rw-r--r--TAO/tests/Param_Test/complex_any.cpp84
1 files changed, 23 insertions, 61 deletions
diff --git a/TAO/tests/Param_Test/complex_any.cpp b/TAO/tests/Param_Test/complex_any.cpp
index a9d531be88b..300d0da1e36 100644
--- a/TAO/tests/Param_Test/complex_any.cpp
+++ b/TAO/tests/Param_Test/complex_any.cpp
@@ -53,7 +53,30 @@ void
Test_Complex_Any::dii_req_invoke (CORBA::Request *req,
CORBA::Environment &ACE_TRY_ENV)
{
+ req->add_in_arg ("s1") <<= this->in_;
+ req->add_inout_arg ("s2") <<= this->inout_;
+ req->add_out_arg ("s3") <<= CORBA::Any (CORBA::_tc_any);
+
+ req->set_return_type (CORBA::_tc_any);
+
req->invoke (ACE_TRY_ENV);
+ ACE_CHECK;
+
+ const CORBA::Any *tmp;
+ req->return_value () >>= tmp;
+ this->ret_ = new CORBA::Any (*tmp);
+
+ CORBA::NamedValue_ptr o2 =
+ req->arguments ()->item (1, ACE_TRY_ENV);
+ ACE_CHECK;
+ *o2->value () >>= tmp;
+ this->inout_ = CORBA::Any (*tmp);
+
+ CORBA::NamedValue_ptr o3 =
+ req->arguments ()->item (2, ACE_TRY_ENV);
+ ACE_CHECK;
+ *o3->value () >>= tmp;
+ this->out_ = new CORBA::Any (*tmp);
}
int
@@ -162,67 +185,6 @@ Test_Complex_Any::run_sii_test (Param_Test_ptr objref,
return 0;
}
-int
-Test_Complex_Any::add_args (CORBA::NVList_ptr param_list,
- CORBA::NVList_ptr retval,
- CORBA::Environment &ACE_TRY_ENV)
-{
- ACE_TRY
- {
- CORBA::Any in_arg (CORBA::_tc_any,
- &this->in_,
- 0);
-
- CORBA::Any inout_arg (CORBA::_tc_any,
- &this->inout_,
- 0);
-
- CORBA::Any out_arg (CORBA::_tc_any,
- &this->out_.inout (), // .out () causes crash
- 0);
-
- // add parameters
- param_list->add_value ("ca1",
- in_arg,
- CORBA::ARG_IN,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- param_list->add_value ("ca2",
- inout_arg,
- CORBA::ARG_INOUT,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- param_list->add_value ("ca3",
- out_arg,
- CORBA::ARG_OUT,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- // add return value
- CORBA::NamedValue *item = retval->item (0,
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- item->value ()->replace (CORBA::_tc_any,
- &this->ret_.inout (), // see above
- 0, // does not own
- ACE_TRY_ENV);
- ACE_TRY_CHECK;
-
- return 0;
- }
- ACE_CATCHANY
- {
- ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
- "Test_Complex_Any::add_args\n");
-
- }
- ACE_ENDTRY;
- return -1;
-}
-
CORBA::Boolean
Test_Complex_Any::check_validity (void)
{