diff options
Diffstat (limited to 'TAO/tests/Param_Test/ub_array_seq.cpp')
-rw-r--r-- | TAO/tests/Param_Test/ub_array_seq.cpp | 253 |
1 files changed, 253 insertions, 0 deletions
diff --git a/TAO/tests/Param_Test/ub_array_seq.cpp b/TAO/tests/Param_Test/ub_array_seq.cpp new file mode 100644 index 00000000000..104c4885c74 --- /dev/null +++ b/TAO/tests/Param_Test/ub_array_seq.cpp @@ -0,0 +1,253 @@ +// $Id$ + +// ============================================================================ +// +// = LIBRARY +// TAO/tests/Param_Test +// +// = FILENAME +// ub_array_seq.cpp +// +// = DESCRIPTION +// tests unbounded array sequences +// +// = AUTHORS +// Jeff Parsons <parsons@cs.wustl.edu> +// +// ============================================================================ + +#include "helper.h" +#include "ub_array_seq.h" + +ACE_RCSID (Param_Test, + ub_array_seq, + "$Id$") + +// ************************************************************************ +// Test_Array_Sequence +// ************************************************************************ + +Test_Array_Sequence::Test_Array_Sequence (void) + : opname_ (CORBA::string_dup ("test_array_sequence")), + inout_ (new Param_Test::ArraySeq), + out_ (new Param_Test::ArraySeq), + ret_ (new Param_Test::ArraySeq) +{ +} + +Test_Array_Sequence::~Test_Array_Sequence (void) +{ + CORBA::string_free (this->opname_); + this->opname_ = 0; + // the other data members will be freed as they are "_var"s and objects + // (rather than pointers to objects) +} + +const char * +Test_Array_Sequence::opname (void) const +{ + return this->opname_; +} + +void +Test_Array_Sequence::dii_req_invoke (CORBA::Request *req + ACE_ENV_ARG_DECL) +{ + req->add_in_arg ("s1") <<= this->in_; + req->add_inout_arg ("s2") <<= this->inout_.in (); + req->add_out_arg ("s3") <<= this->out_.in (); + + req->set_return_type (Param_Test::_tc_ArraySeq); + + req->invoke (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK; + + Param_Test::ArraySeq *tmp; + req->return_value () >>= tmp; + this->ret_ = new Param_Test::ArraySeq (*tmp); + + CORBA::NamedValue_ptr o2 = + req->arguments ()->item (1 ACE_ENV_ARG_PARAMETER); + ACE_CHECK; + *o2->value () >>= tmp; + this->inout_ = new Param_Test::ArraySeq (*tmp); + + CORBA::NamedValue_ptr o3 = + req->arguments ()->item (2 ACE_ENV_ARG_PARAMETER); + ACE_CHECK; + *o3->value () >>= tmp; + this->out_ = new Param_Test::ArraySeq (*tmp); +} + +int +Test_Array_Sequence::init_parameters (Param_Test_ptr + ACE_ENV_ARG_DECL_NOT_USED) +{ + Generator *gen = GENERATOR::instance (); // value generator + + // get some sequence length (not more than 10) + CORBA::ULong len = (CORBA::ULong) (gen->gen_long () % 10) + 1; + + // set the length of the in sequence + this->in_.length (len); + // different from in_. + this->inout_->length (1); + + // now set each individual element + Param_Test::Fixed_Array tmp; + + for (CORBA::ULong j = 0; j < Param_Test::DIM1; j++) + { + tmp[j] = gen->gen_long (); + } + + Param_Test::Fixed_Array_copy (this->inout_[0], tmp); + + for (CORBA::ULong i = 0; i < this->in_.length (); i++) + { + // Generate some arbitrary array to be filled into the ith + // location in the sequence. + for (CORBA::ULong j = 0; j < Param_Test::DIM1; j++) + { + tmp[j] = gen->gen_long (); + } + + Param_Test::Fixed_Array_copy (this->in_[i], tmp); + } + + return 0; +} + +int +Test_Array_Sequence::reset_parameters (void) +{ + // Delete the previous ones. + this->inout_ = new Param_Test::ArraySeq; + this->out_ = new Param_Test::ArraySeq; + this->ret_ = new Param_Test::ArraySeq; + return 0; +} + +int +Test_Array_Sequence::run_sii_test (Param_Test_ptr objref + ACE_ENV_ARG_DECL) +{ + ACE_TRY + { + Param_Test::ArraySeq_out out (this->out_.out ()); + + this->ret_ = objref->test_array_sequence (this->in_, + this->inout_.inout (), + out + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + return 0; + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, + "Test_Array_Sequence::run_sii_test\n"); + + } + ACE_ENDTRY; + return -1; +} + +CORBA::Boolean +Test_Array_Sequence::check_validity (void) +{ + if (this->compare (this->in_, this->inout_.in ()) && + this->compare (this->in_, this->out_.in ()) && + this->compare (this->in_, this->ret_.in ())) + return 1; + else + return 0; +} + +CORBA::Boolean +Test_Array_Sequence::check_validity (CORBA::Request_ptr ) +{ + return this->check_validity (); +} + +void +Test_Array_Sequence::print_values (void) +{ + ACE_DEBUG ((LM_DEBUG, + "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" + "IN array\n")); + this->print_sequence (this->in_); + ACE_DEBUG ((LM_DEBUG, + "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" + "INOUT array\n")); + this->print_sequence (this->inout_.in ()); + ACE_DEBUG ((LM_DEBUG, + "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" + "OUT array\n")); + this->print_sequence (this->out_.in ()); + ACE_DEBUG ((LM_DEBUG, + "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n" + "RET array\n")); + this->print_sequence (this->ret_.in ()); +} + +CORBA::Boolean +Test_Array_Sequence::compare (const Param_Test::ArraySeq &s1, + const Param_Test::ArraySeq &s2) +{ + if (s1.maximum () != s2.maximum ()) + { + return 0; + } + + if (s1.length () != s2.length ()) + { + return 0; + } + + for (CORBA::ULong i = 0; i < s1.length (); i++) + { + const Param_Test::Fixed_Array& vs1 = s1[i]; + const Param_Test::Fixed_Array& vs2 = s2[i]; + + for (CORBA::ULong j = 0; j < Param_Test::DIM1; j++) + { + if (vs1[j] != vs2[j]) + { + return 0; + } + } + } + + return 1; // success +} + +void +Test_Array_Sequence::print_sequence (const Param_Test::ArraySeq &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++) + { + ACE_DEBUG ((LM_DEBUG, + "Element #%d --\n", + i)); + + const Param_Test::Fixed_Array& vs = s[i]; + + for (CORBA::ULong j = 0; j < Param_Test::DIM1; j++) + { + ACE_DEBUG ((LM_DEBUG, + "Element%d[%d] = %d\n", + i, + j, + vs[j])); + } + } +} |