diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
commit | 6b846cf03c0bcbd8c276cb0af61a181e5f98eaae (patch) | |
tree | da50d054f9c761c3f6a5923f6979e93306c56d68 /TAO/tests/Param_Test/ub_wstr_seq.cpp | |
parent | 0e555b9150d38e3b3473ba325b56db2642e6352b (diff) | |
download | ATCD-6b846cf03c0bcbd8c276cb0af61a181e5f98eaae.tar.gz |
Repo restructuring
Diffstat (limited to 'TAO/tests/Param_Test/ub_wstr_seq.cpp')
-rw-r--r-- | TAO/tests/Param_Test/ub_wstr_seq.cpp | 170 |
1 files changed, 0 insertions, 170 deletions
diff --git a/TAO/tests/Param_Test/ub_wstr_seq.cpp b/TAO/tests/Param_Test/ub_wstr_seq.cpp deleted file mode 100644 index e082cc19817..00000000000 --- a/TAO/tests/Param_Test/ub_wstr_seq.cpp +++ /dev/null @@ -1,170 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Param_Test -// -// = FILENAME -// ub_wstr_seq.cpp -// -// = DESCRIPTION -// tests unbounded wide string sequences -// -// = AUTHORS -// Jeff Parsons -// -// ============================================================================ - -#include "helper.h" -#include "ub_wstr_seq.h" -#include "ace/OS_NS_wchar.h" - -ACE_RCSID (Param_Test, - ub_wstr_seq, - "$Id$") - -// ************************************************************************ -// Test_WString_Sequence -// ************************************************************************ - -Test_WString_Sequence::Test_WString_Sequence (void) - : opname_ (CORBA::string_dup ("test_wstrseq")), - in_ (new CORBA::WStringSeq), - inout_ (new CORBA::WStringSeq), - out_ (new CORBA::WStringSeq), - ret_ (new CORBA::WStringSeq) -{ -} - -Test_WString_Sequence::~Test_WString_Sequence (void) -{ - CORBA::string_free (this->opname_); - this->opname_ = 0; -} - -const char * -Test_WString_Sequence::opname (void) const -{ - return this->opname_; -} - -void -Test_WString_Sequence::dii_req_invoke (CORBA::Request *req - ACE_ENV_ARG_DECL) -{ - req->add_in_arg ("s1") <<= this->in_.in (); - req->add_inout_arg ("s2") <<= this->inout_.in (); - req->add_out_arg ("s3") <<= this->out_.in (); - - req->set_return_type (CORBA::_tc_WStringSeq); - - req->invoke (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK; - - CORBA::WStringSeq *tmp; - req->return_value () >>= tmp; - this->ret_ = new CORBA::WStringSeq (*tmp); - - CORBA::NamedValue_ptr o2 = - req->arguments ()->item (1 ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - *o2->value () >>= tmp; - this->inout_ = new CORBA::WStringSeq (*tmp); - - CORBA::NamedValue_ptr o3 = - req->arguments ()->item (2 ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - *o3->value () >>= tmp; - this->out_ = new CORBA::WStringSeq (*tmp); -} - -int -Test_WString_Sequence::init_parameters (Param_Test_ptr - ACE_ENV_ARG_DECL_NOT_USED) -{ - Generator *gen = GENERATOR::instance (); // value generator - - CORBA::ULong len = 2; - - // set the length of the sequences - this->in_->length (len); - this->inout_->length (len); - - // now set each individual element - for (CORBA::ULong i = 0; i < this->in_->length (); i++) - { - this->in_[i] = gen->gen_wstring (); - this->inout_[i] = gen->gen_wstring (); - } - - return 0; -} - -int -Test_WString_Sequence::reset_parameters (void) -{ - this->inout_ = new CORBA::WStringSeq; // delete the previous ones - this->out_ = new CORBA::WStringSeq; - this->ret_ = new CORBA::WStringSeq; - return 0; -} - -int -Test_WString_Sequence::run_sii_test (Param_Test_ptr objref - ACE_ENV_ARG_DECL) -{ - ACE_TRY - { - CORBA::WStringSeq_out out (this->out_.out ()); - - this->ret_ = objref->test_wstrseq (this->in_.in (), - this->inout_.inout (), - out - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - return 0; - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, - "Test_WString_Sequence::run_sii_test\n"); - - } - ACE_ENDTRY; - return -1; -} - -CORBA::Boolean -Test_WString_Sequence::check_validity (void) -{ - CORBA::Boolean flag = 0; - if ((this->in_->length () == this->inout_->length ()) && - (this->in_->length () == this->out_->length ()) && - (this->in_->length () == this->ret_->length ())) - { - flag = 1; // assume all are equal - // lengths are same. Now compare the contents - for (CORBA::ULong i=0; i < this->in_->length () && flag; i++) - { - if (ACE_OS::wscmp (this->in_[i], this->inout_[i]) || - ACE_OS::wscmp (this->in_[i], this->out_[i]) || - ACE_OS::wscmp (this->in_[i], this->ret_[i])) - // not equal - flag = 0; - } - } - return flag; -} - -CORBA::Boolean -Test_WString_Sequence::check_validity (CORBA::Request_ptr ) -{ - return this->check_validity (); -} - -void -Test_WString_Sequence::print_values (void) -{ -} |