diff options
Diffstat (limited to 'TAO/tests/Param_Test/ub_any_seq.cpp')
| -rw-r--r-- | TAO/tests/Param_Test/ub_any_seq.cpp | 385 |
1 files changed, 0 insertions, 385 deletions
diff --git a/TAO/tests/Param_Test/ub_any_seq.cpp b/TAO/tests/Param_Test/ub_any_seq.cpp deleted file mode 100644 index f49150089ff..00000000000 --- a/TAO/tests/Param_Test/ub_any_seq.cpp +++ /dev/null @@ -1,385 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Param_Test -// -// = FILENAME -// ub_any_seq.cpp -// -// = DESCRIPTION -// tests unbounded Any sequences -// -// = AUTHORS -// Aniruddha Gokhale -// -// ============================================================================ - -#include "helper.h" -#include "ub_any_seq.h" - -const CORBA::ULong TEST_SEQ_LENGTH = 5; -const CORBA::ULong NUM_TEST_TYPES = 4; - -ACE_RCSID(Param_Test, ub_any_seq, "$Id$") - -// ************************************************************************ -// Test_AnySeq -// ************************************************************************ - -Test_AnySeq::Test_AnySeq (void) - : opname_ (CORBA::string_dup ("test_anyseq")), - in_ (new Param_Test::AnySeq (TEST_SEQ_LENGTH)), - inout_ (new Param_Test::AnySeq (TEST_SEQ_LENGTH)), - out_ (new Param_Test::AnySeq), - ret_ (new Param_Test::AnySeq) -{ -} - -Test_AnySeq::~Test_AnySeq (void) -{ - CORBA::string_free (this->opname_); - this->opname_ = 0; -} - -const char * -Test_AnySeq::opname (void) const -{ - return this->opname_; -} - -void -Test_AnySeq::dii_req_invoke (CORBA::Request *req, - CORBA::Environment &ACE_TRY_ENV) -{ - req->invoke (ACE_TRY_ENV); -} - -int -Test_AnySeq::init_parameters (Param_Test_ptr objref, - CORBA::Environment &ACE_TRY_ENV) -{ - Generator *gen = GENERATOR::instance (); // value generator - - // Must be set explicitly (CORBA spec) - this->in_->length (TEST_SEQ_LENGTH); - - for (CORBA::ULong i=0; i < this->in_->length (); i++) - { - CORBA::ULong index = - (CORBA::ULong) (gen->gen_short () % NUM_TEST_TYPES); - switch (index) - { - case 0: - { - CORBA::Short s; - s = gen->gen_short (); - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, - "setting short = %d\n", s)); - this->in_[i] <<= s; - this->inout_[i] <<= 0; // different from in_ - } - break; - case 1: - { - char *str = gen->gen_string (); - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, - "setting string = %s\n", str)); - this->in_[i] <<= str; - this->inout_[i] <<= 0; // different from in_ - } - break; - case 2: - { - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, - "setting coffee object \n" )); - ACE_TRY - { - // get access to a Coffee Object - Coffee_var cobj = objref->make_coffee (ACE_TRY_ENV); - ACE_TRY_CHECK; - - // insert the coffee object into the Any - this->in_[i] <<= cobj.in (); - this->inout_[i] <<= 0; // different from in_ - } - ACE_CATCH (CORBA::SystemException, sysex) - { - ACE_PRINT_EXCEPTION (sysex, - "System Exception doing make_coffee"); - return -1; - } - ACE_ENDTRY; - } - break; - case 3: - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, - "setting constant string \n" )); - this->in_[i] <<= "Const string"; - this->inout_[i] <<= 0; // different from in_ - break; - } - } - - return 0; -} - -int -Test_AnySeq::reset_parameters (void) -{ - Generator *gen = GENERATOR::instance (); // value generator - - for (CORBA::ULong i=0; i < this->in_->length (); i++) - { - CORBA::ULong index = - (CORBA::ULong) (gen->gen_long () % NUM_TEST_TYPES); - - switch (index) - { - case 0: - { - CORBA::Short s; - s = gen->gen_short (); - this->in_[i] <<= s; - this->inout_[i] <<= s; - } - break; - case 1: - { - char *str = gen->gen_string (); - this->in_[i] <<= str; - this->inout_[i] <<= str; - } - break; - case 2: - { - this->inout_[i] = this->in_[i]; - } - break; - case 3: - this->in_[i] <<= "Const string"; - this->inout_[i] <<= "Const string"; - break; - } - } - - return 0; -} - - -int -Test_AnySeq::run_sii_test (Param_Test_ptr objref, - CORBA::Environment &ACE_TRY_ENV) -{ - ACE_TRY - { - Param_Test::AnySeq_out out (this->out_.out ()); - - this->ret_ = objref->test_anyseq (this->in_.in (), - this->inout_.inout (), - out, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - return 0; - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, - "Test_AnySeq::run_sii_test\n"); - - } - ACE_ENDTRY; - return -1; -} - -int -Test_AnySeq::add_args (CORBA::NVList_ptr param_list, - CORBA::NVList_ptr retval, - CORBA::Environment &ACE_TRY_ENV) -{ - ACE_TRY - { - CORBA::Any in_arg (Param_Test::_tc_AnySeq, - (void *) &this->in_.in (), - 0); - - CORBA::Any inout_arg (Param_Test::_tc_AnySeq, - &this->inout_.inout (), - 0); - - CORBA::Any out_arg (Param_Test::_tc_AnySeq, - &this->out_.inout (), // .out () causes crash - 0); - - // add parameters - param_list->add_value ("s1", - in_arg, - CORBA::ARG_IN, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - param_list->add_value ("s2", - inout_arg, - CORBA::ARG_INOUT, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - param_list->add_value ("s3", - out_arg, - CORBA::ARG_OUT, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - CORBA::NamedValue *item = retval->item (0, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - item->value ()->replace (Param_Test::_tc_AnySeq, - &this->ret_.inout (), - 0, // does not own - ACE_TRY_ENV); - ACE_TRY_CHECK; - - return 0; - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, - "Test_AnySeq::add_args\n"); - - } - ACE_ENDTRY; - return -1; -} - -CORBA::Boolean -Test_AnySeq::check_validity (void) -{ - CORBA::Short short_in, short_inout, short_out, short_ret; - char *str_in, *str_inout, *str_out, *str_ret; - Coffee_ptr obj_in, obj_inout, obj_out, obj_ret; - - for (CORBA::ULong i=0; i < this->in_->length (); i++) - { - if ((this->in_[i] >>= short_in) && - (this->inout_[i] >>= short_inout) && - (this->out_[i] >>= short_out) && - (this->ret_[i] >>= short_ret)) - { - ACE_DEBUG ((LM_DEBUG, - "Received shorts: in = %d, " - "inout = %d, out = %d, ret = %d\n", - short_in, - short_inout, - short_out, - short_ret)); - - if ((short_in != short_inout) || - (short_in != short_out) || - (short_in != short_ret)) - { - ACE_DEBUG ((LM_DEBUG, - "mismatch of short values\n")); - return 0; - } - else - continue; - } - else if ((this->in_[i] >>= str_in) && - (this->inout_[i] >>= str_inout) && - (this->out_[i] >>= str_out) && - (this->ret_[i] >>= str_ret)) - { - if (ACE_OS::strcmp (str_in, str_inout) || - ACE_OS::strcmp (str_in, str_out) || - ACE_OS::strcmp (str_in, str_ret)) - { - ACE_DEBUG ((LM_DEBUG, - "mismatch of string values\n")); - return 0; - } - else - continue; - } - else if ((this->in_[i] >>= obj_in) && - (this->inout_[i] >>= obj_inout) && - (this->out_[i] >>= obj_out) && - (this->ret_[i] >>= obj_ret)) - { - if (!(obj_in->_is_equivalent (obj_inout)) || - !(obj_in->_is_equivalent (obj_out)) || - !(obj_in->_is_equivalent (obj_ret))) - { - ACE_DEBUG ((LM_DEBUG, - "mismatch of Coffee values\n")); - return 0; - } - } - else - continue; - } - - // Everything checks out. - return 1; -} - -CORBA::Boolean -Test_AnySeq::check_validity (CORBA::Request_ptr) -{ - return this->check_validity (); -} - -void -Test_AnySeq::print_values (void) -{ - ACE_DEBUG ((LM_DEBUG, - "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" - "IN sequence\n")); - this->print_sequence (this->in_.in ()); - ACE_DEBUG ((LM_DEBUG, - "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" - "INOUT sequence\n")); - this->print_sequence (this->inout_.in ()); - ACE_DEBUG ((LM_DEBUG, - "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" - "OUT sequence\n")); - this->print_sequence (this->out_.in ()); - ACE_DEBUG ((LM_DEBUG, - "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" - "RET sequence\n")); - this->print_sequence (this->ret_.in ()); -} - -void -Test_AnySeq::print_sequence (const Param_Test::AnySeq &s) -{ - ACE_DEBUG ((LM_DEBUG, - "maximum = %d\n" - "length = %d\n", - s.maximum (), - s.length ())); - ACE_DEBUG ((LM_DEBUG, "Elements -\n")); - for (CORBA::ULong i=0; i < s.length (); i++) - { - /* const CORBA::Any& vs = s[i]; - - ACE_DEBUG ((LM_DEBUG, - "Element #%d\n" - "\tl = %d\n" - "\tc = %c\n" - "\ts = %d\n" - "\to = %x\n" - "\tf = %f\n" - "\tb = %d\n" - "\td = %f\n", - i, - vs.l, vs.c, vs.s, vs.o, vs.f, vs.b, vs.d)); - */ - } -} |