replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster

1 files changed, 0 insertions, 1319 deletions

diff --git a/extensions/test/ole/OleClient/clientTest.cxx b/extensions/test/ole/OleClient/clientTest.cxx
deleted file mode 100644
index 8277bd89d..000000000
--- a/extensions/test/ole/OleClient/clientTest.cxx
+++ /dev/null
@@ -1,1319 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- * 
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org.  If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include <atlbase.h>
-
-CComModule _Module;
-#include<atlcom.h>
-#include <comdef.h>
-
-#include "axhost.hxx"
-
-#include <stdio.h>
-#include "typelib/typedescription.hxx"
-#include <com/sun/star/bridge/oleautomation/Date.hpp>
-#include <com/sun/star/bridge/oleautomation/Currency.hpp>
-#include <com/sun/star/bridge/oleautomation/Decimal.hpp>
-#include <com/sun/star/bridge/oleautomation/SCode.hpp>
-#include <com/sun/star/bridge/oleautomation/NamedArgument.hpp>
-#include <com/sun/star/bridge/oleautomation/PropertyPutArgument.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/script/XInvocation.hpp>
-#include <com/sun/star/uno/Reference.h>
-#include <cppuhelper/servicefactory.hxx>
-#include <rtl/string.h>
-
-#define OUSTR(x) ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(x) )
-BEGIN_OBJECT_MAP(ObjectMap)
-END_OBJECT_MAP()
-
-using namespace com::sun::star::lang;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge::oleautomation;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-Reference<XInvocation> convertComObject( IUnknown* pUnk);
-Reference<XInvocation> getComObject( OUString progId);
-bool checkOutArgs(const Sequence<Any> & outArgs,
-                  const Sequence<sal_Int16> & indices, const Sequence<Any> & values);
-
-bool doSimpleTest(const Reference<XInvocation> & inv);
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv);
-bool doParameterTest(const Reference<XInvocation> & inv);
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv);
-bool equalSequences(const Any& orig, const Any& returned);
-HRESULT doTest();
-HRESULT doTest2( Reference<XInvocation> &);
-Reference<XInvocation> getComObject(OUString& );
-
-HRESULT InitializeParameter();
-void printResultVariantArray( VARIANT & var);
-void printVariant( VARIANT & var);
-void printSequence( Sequence<Any>& val);
-
-extern "C" int SAL_CALL main( int , char **)
-{
-    HRESULT hr;
-    if( FAILED( hr=CoInitialize(NULL)))
-    {
-        _tprintf(_T("CoInitialize failed \n"));
-        return -1;
-    }
-
-    
-    _Module.Init( ObjectMap, GetModuleHandle( NULL));
-
-    if( FAILED(hr=doTest()))
-    {
-        _com_error err( hr);
-        const TCHAR * errMsg= err.ErrorMessage();
-        MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
-    }
-    else
-    {
-        MessageBox( NULL,NULL , "Test succeeded", MB_ICONINFORMATION);
-    }
-
-
-    _Module.Term();
-    CoUninitialize();
-    return 0;
-}
-//Also supports named args
-
-bool doParameterTest(const Reference<XInvocation> & inv)
-{
-    Sequence< sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-
-    Any arArgs[2];
-    Any arValue[2];
-    Any arArgs1[4];
-
-    NamedArgument arg1(OUString(L"val1"), makeAny((sal_Int32) 123));
-    NamedArgument arg2(OUString(L"val2"), makeAny((sal_Int32) 456));
-    NamedArgument arg3(OUString(L"val3"), makeAny((sal_Int32) 0xff));
-    NamedArgument arg4(OUString(L"val4"), makeAny((sal_Int32) 0xffff));
-
-    NamedArgument argOut1(OUString(L"val1"), Any());
-    NamedArgument argOut2(OUString(L"val2"), Any());
-    Sequence<Any> seqNoArgs;
-    arArgs[0] <<= (sal_Int32) 0;
-    arArgs[1] <<= (sal_Int32) 0;
-    Sequence<Any> seqPositional0(arArgs, 2);
-
-
-    arArgs[0] <<= arg1;
-    arArgs[1] <<= arg2;
-    Sequence<Any> seqNamed(arArgs, 2);
-    arArgs[0] <<= arg2;
-    arArgs[1] <<= arg1;
-    Sequence<Any> seqNamed2(arArgs, 2);
-    arArgs[0] <<= argOut1;
-    arArgs[1] <<= argOut2;
-    Sequence<Any> seqNamed3(arArgs, 2);
-    arArgs[0] <<= argOut2;
-    arArgs[1] <<= argOut1;
-    Sequence<Any> seqNamed4(arArgs, 2);
-
-    arArgs[0] <<= arg1;
-    Sequence<Any> seqNamed5(arArgs, 1);
-    arArgs[0] <<= arg2;
-    Sequence<Any> seqNamed6(arArgs, 1);
-    
-    arArgs[0] <<= (sal_Int32) 123;
-    arArgs[1] <<= (sal_Int32) 456;
-    Sequence<Any> seqPositional(arArgs, 2);
-    arArgs[0] <<= (sal_Int32) 123;
-    Sequence<Any> seqPositional2(arArgs, 1);
-    
-    arArgs[0] <<= Any();
-    arArgs[1] <<= Any();
-    Sequence<Any> seqPositional3(arArgs, 2);
-    
-    arArgs[0] <<= (sal_Int32) 123;
-    arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
-    Sequence<Any> seqOutOpt1(arArgs, 2);
-
-    arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
-    arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
-    Sequence<Any> seqOutOpt2(arArgs, 2);
-
-    arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
-    arArgs[1] <<= (sal_Int32) 456;
-    Sequence<Any> seqOutOpt3(arArgs, 2);
-
-    arArgs1[0] <<= (sal_Int32) 0;
-    arArgs1[1] <<= (sal_Int32) 0;
-    arArgs1[2] <<= (sal_Int32) 0;
-    arArgs1[3] <<= (sal_Int32) 0;
-    Sequence<Any> seqMix0(arArgs1, 4);
-    
-    arArgs1[0] <<= (sal_Int32) 123;
-    arArgs1[1] <<= (sal_Int32) 456;
-    arArgs1[2] <<= arg3;
-    arArgs1[3] <<= arg4;
-    Sequence<Any> seqMix(arArgs1, 4);
-
-    arArgs1[0] <<= Any();
-    arArgs1[1] <<= (sal_Int32) 456;
-    arArgs1[2] <<= arg4;
-    Sequence<Any> seqMix2(arArgs1, 3);
-
-    arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
-    arArgs1[1] <<= (sal_Int32) 456;
-    arArgs1[2] <<= SCode(DISP_E_PARAMNOTFOUND);
-    arArgs1[3] <<= arg4.Value;
-    Sequence<Any> seqMixOut(arArgs1, 4);
-
-    arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
-    arArgs1[1] <<= Any();
-    arArgs1[2] <<= arg4;
-    Sequence<Any> seqMix2Out(arArgs1, 3);
-
-
-
-    //in args + out, optional, positional-----------------------------------------
-    //first general test
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
-        return false;
-    
-    //2 optional args, 1 provided
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional2, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
-        return false;
-
-    //2 optional args, 0 provided
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNoArgs, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional3, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt2))
-        return false;
-    
-    //named args --------------------------------------------
-
-    // 2 named args, correct position
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional0, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
-        return false;
-
-    // 2named args, position differs
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed2, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
-        return false;
-
-    //named out args, 2 named args with correct position
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqIndices.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqNamed3, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqNamed ))
-        return false;
-
-    //named out args, 2 named args with different position
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqIndices.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqNamed4, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqNamed2 ))
-        return false;
-    
-
-    //2 args, 1 provided (correct order)
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed5, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
-        return false;
-    //2 args, 1 provided (incorrect order)
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional3"), seqNamed6, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt3))
-        return false;
-
-    //2position + 2 2named args, correct order
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional6"), seqMix, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional7"), seqMix, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqMix))
-         return false;
-
-    // 4 in args, 1 positional, 1 named, 1 positional omitted
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional7"), seqMix0, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqMixOut))
-         return false;
-
-    // 4 out args, 1 positional, 1 named, 1 positional omitted
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"optional7"), seqMix2Out, seqIndices, seqOut);
-    if ( ! checkOutArgs(seqOut, seqIndices, seqMix2Out))
-         return false;
- 
-    
-    return true;
-}
-bool doPropertyTest(const Reference<XInvocation> & inv)
-{
-    Sequence< sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-
-    Any inBool, outBool;
-    Any inByte, outByte;
-    Any inShort, outShort;
-    Any inLong,  outLong;
-    Any inString,  outString;
-    Any inFloat, outFloat;
-    Any inDouble, outDouble;
-    Any inVariant, outVariant;
-    Any inObject, outObject;
-    Any inUnknown, outUnknown;
-    Any inCY, outCY;
-    Any inDate, outDate;
-    Any inDecimal, outDecimal;
-    Any inSCode, outSCode;
-    Any inrefLong, outrefLong;
-    Any inrefVariant, outrefVariant;
-    Any inrefDecimal, outrefDecimal;
-    Any inParamsLong, outParamsLong;
-    Reference<XInterface> xintUnknown(getComObject(L"AxTestComponents.Foo"));
-    
-    inBool <<= (sal_Bool) sal_True;
-    inv->setValue(OUString(L"prpBool"), inBool);
-    outBool = inv->getValue(OUString(L"prpBool"));
-
-    inByte <<= (sal_Int8) 100;
-    inv->setValue(OUString(L"prpByte"), inByte);
-    outByte = inv->getValue(OUString(L"prpByte"));
-
-    inShort <<= static_cast<sal_Int16>( -1);
-    inv->setValue(OUString(L"prpShort"), inShort);
-    outShort = inv->getValue(OUString(L"prpShort"));
-
-    inLong <<= ( sal_Int32) 1234567;
-    inv->setValue(OUString(L"prpLong"), inLong	// TODO: Add your implementation code here
-);
-    outLong = inv->getValue(OUString(L"prpLong"));
-
-    inString <<= OUString(L" this is clientTest.exe");
-    inv->setValue(OUString(L"prpString"), inString);
-    outString = inv->getValue(OUString(L"prpString"));
-
-    inFloat <<=  3.14f;
-    inv->setValue(OUString(L"prpFloat"), inFloat);
-    outFloat = inv->getValue(OUString(L"prpFloat"));
-
-    inDouble <<= ( double) 3.145;
-    inv->setValue(OUString(L"prpDouble"), inDouble);
-    outDouble = inv->getValue(OUString(L"prpDouble"));
-
-    inVariant <<= OUString(L"A string in an any");
-    inv->setValue(OUString(L"prpVariant"), inVariant);
-    outVariant = inv->getValue(OUString(L"prpVariant"));
-
-    inObject <<= inv;
-    inv->setValue(OUString(L"prpObject"), inObject);
-    outObject = inv->getValue(OUString(L"prpObject"));
-
-    inUnknown <<= xintUnknown;
-    inv->setValue(OUString(L"prpUnknown"), inUnknown);
-    outUnknown = inv->getValue(OUString(L"prpUnknown"));
-    
-    Currency cur(99999);
-    inCY <<= cur;
-    inv->setValue(OUString(L"prpCurrency"), inCY);
-    outCY = inv->getValue(OUString(L"prpCurrency"));
-
-    Date d(37889.0);
-    inDate <<= d;
-    inv->setValue(OUString(L"prpDate"), inDate);
-    outDate = inv->getValue(OUString(L"prpDate"));
-
-    Decimal dec(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
-    inDecimal <<= dec;
-    inv->setValue(OUString(L"prpDecimal"), inDecimal);
-    outDecimal = inv->getValue(OUString(L"prpDecimal"));
-
-    SCode code(DISP_E_BADVARTYPE);
-    inSCode <<= code;
-    inv->setValue(OUString(L"prpSCode"), inSCode);
-    outSCode = inv->getValue(OUString(L"prpSCode"));
-
-    inrefLong <<= (sal_Int32) 123456;
-    inv->setValue(OUString(L"prprefLong"), inrefLong);
-    outrefLong = inv->getValue(OUString(L"prprefLong"));
-    
-    inrefVariant <<= OUString(L"A string in an any");
-    inv->setValue(OUString(L"prprefVariant"), inrefVariant);
-    outrefVariant = inv->getValue(OUString(L"prprefVariant"));
-
-    Decimal decref(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
-    inrefDecimal <<= decref;
-    inv->setValue(OUString(L"prprefDecimal"), inrefDecimal);
-    outrefDecimal = inv->getValue(OUString(L"prprefDecimal"));
-
-    if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
-         || inFloat != outFloat || inDouble != outDouble || inString != outString
-         || inVariant != outVariant || inObject != outObject 
-        || inUnknown != outUnknown || inCY != outCY
-        || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode
-        || inrefLong != outrefLong ||inrefVariant != outrefVariant
-        || inrefDecimal != outrefDecimal)
-        return false;
-    return true;
-}
-
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv)
-{
-    Sequence< sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-
-    Any arMultiArgs[3];
-    arMultiArgs[0] <<= makeAny((sal_Int32) 0);
-    arMultiArgs[1] <<= makeAny((sal_Int32) 0);
-    arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
-    Sequence<Any> seqMultiArgPut0(arMultiArgs, 3);
-
-    arMultiArgs[0] <<= makeAny((sal_Int32) 1);
-    arMultiArgs[1] <<= makeAny((sal_Int32) 2);
-    arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
-    Sequence<Any> seqMultiArgPut1(arMultiArgs, 3);
-
-    arMultiArgs[0] <<= makeAny((sal_Int32) 1);
-    arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
-    Sequence<Any> seqMultiArgPut2(arMultiArgs, 2);
-
-    arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
-    arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));   
-    Sequence<Any> seqMultiArgPut3(arMultiArgs, 2);
-
-    arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
-    arMultiArgs[1] <<= NamedArgument(OUString(L"val3"), makeAny((sal_Int32) 3));
-    Sequence<Any> seqMultiArgPut4(arMultiArgs, 2);
-
-    arMultiArgs[0] <<= makeAny((sal_Int32) 0);
-    arMultiArgs[1] <<= makeAny((sal_Int32) 0);
-    Sequence<Any> seqMultiArgGet0(arMultiArgs, 2);
-
-    arMultiArgs[0] <<= makeAny((sal_Int32) 1);
-    arMultiArgs[1] <<= makeAny((sal_Int32) 2);
-    Sequence<Any> seqMultiArgGet1(arMultiArgs, 2);
-    Sequence<Any> seqMultiArgGet2(arMultiArgs, 1);
-    
-
-    arMultiArgs[0] <<= makeAny((sal_Int32) 0);
-    arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
-    Sequence<Any> seqMultiArgPut5(arMultiArgs, 2);
-    
-    arMultiArgs[0] <<= makeAny((sal_Int32) 1);
-    arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 2));
-    Sequence<Any> seqMultiArgPut6(arMultiArgs, 2);
-
-    arMultiArgs[0] <<= Any();
-    arMultiArgs[1] <<= Any();
-    Sequence<Any> seqMultiVoid(arMultiArgs, 2);
-
-    arMultiArgs[0] = makeAny((sal_Int32) 0);
-    arMultiArgs[1] = makeAny((sal_Int32) 0);
-    Sequence<Any> seqMultiVoid2(arMultiArgs, 2);
-    
-    //[propput, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [in] VARIANT* newVal);
-    //[propget, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [out, optional, retval] VARIANT* pVal);
-    seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut1, seqIndices, seqOut);
-    //check in/out args
-       seqIndices.realloc( 0);
-    seqOut.realloc(0);
-     Any anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
-                             seqIndices, seqOut);
-
-    if (anyRet != ((PropertyPutArgument const *)seqMultiArgPut1[2].getValue())->Value
-        || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(seqMultiArgPut1.getArray(), 2)))
-    {
-       return false;
-    }
-    // test optional (one arg omitted
-    seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut2, seqIndices, seqOut);
-       seqIndices.realloc( 0);
-    seqOut.realloc(0);
-     anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
-                             seqIndices, seqOut);
-
-    arMultiArgs[0] = makeAny((sal_Int32) 1);
-    arMultiArgs[1] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
-                          
-    if (anyRet != ((PropertyPutArgument const *) seqMultiArgPut2[1].getValue())->Value
-        || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
-    {
-       return false;
-    }
-
-    //test one named arg and one omitted
-    seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut3, seqIndices, seqOut);
-       seqIndices.realloc( 0);
-    seqOut.realloc(0);
-     anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
-                             seqIndices, seqOut);
-
-    arMultiArgs[0] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
-    arMultiArgs[1] = ((NamedArgument const*) seqMultiArgPut3[0].getValue())->Value;
-    if (anyRet !=  ((PropertyPutArgument const*) seqMultiArgPut3[1].getValue())->Value
-        || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
-    {
-       return false;
-    }
-
-//    [propget,...] HRESULT prpMultiArg2([in] VARIANT val1, [out, retval] VARIANT* pVal);
-//    [propput,...] HRESULT prpMultiArg2([in] VARIANT val1, [in] VARIANT newVal);
-    seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut5, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid, seqIndices, seqOut);
-
-    if ( ! checkOutArgs(seqOut, seqIndices, seqMultiVoid2))
-        return false;
-       seqIndices.realloc( 0);
-    seqOut.realloc(0);
-     anyRet = inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut6,
-                             seqIndices, seqOut);
-       seqIndices.realloc( 0);
-    seqOut.realloc(0);
-     anyRet = inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid,
-                             seqIndices, seqOut);
-
-// [propget,...] HRESULT prpMultiArg3([in,out] LONG* val1, [out, retval] LONG* pVal);
-// [propput,...] HRESULT prpMultiArg3([in,out] LONG* val1, [in] LONG newVal);
-
-    if ( ! checkOutArgs(seqOut, seqIndices, seqMultiArgGet1 ))
-         return false;
-    seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut5, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut6, seqIndices, seqOut);
-     seqIndices.realloc( 0);
-     seqOut.realloc(0);
-    anyRet = inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgGet2, seqIndices, seqOut);
-
-    if ( anyRet !=  ((PropertyPutArgument const*) seqMultiArgPut6[1].getValue())->Value
-         || !checkOutArgs(seqOut, seqIndices, seqMultiArgGet2))
-        return false;
-    
-
-    //hasProperty, hasMethod
-    if (inv->hasProperty(OUSTR("prpMultiArg1")))
-        return false;
-    if ( ! inv->hasMethod(OUSTR("prpMultiArg1")))
-        return false;
-    if ( ! inv->hasProperty(OUSTR("prprefLong")))
-        return false;
-    if (inv->hasMethod(OUSTR("prprefLong")))
-        return false;
-    if ( ! inv->hasMethod(OUSTR("inLong")))
-        return false;
-
-    return true;    
-}
-bool doSimpleTest(const Reference<XInvocation> & inv)
-{
-    Sequence< sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-
-    Any inBool, outBool;
-    Any inByte, outByte;
-    Any inShort, outShort;
-    Any inLong,  outLong;
-    Any inString,  outString;
-    Any inFloat, outFloat;
-    Any inDouble, outDouble;
-    Any inVariant, outVariant;
-    Any inObject, outObject;
-    Any inUnknown, outUnknown;
-    Any inCY, outCY;
-    Any inDate, outDate;
-    Any inDecimal, outDecimal;
-    Any inSCode, outSCode;
-    Any inrefLong, outrefLong;
-    Any inrefVariant, outrefVariant;
-    Any inrefDecimal, outrefDecimal;
-
-    Reference<XInterface> xIntFoo(getComObject(L"AxTestComponents.Foo"));	
-    //###################################################################################
-    //	in and out parameter
-    //###################################################################################
-    sal_Bool aBool = sal_True;
-    inBool.setValue(&aBool, getCppuBooleanType());
-    inv->invoke(OUString(L"inBool"), Sequence< Any > ( &inBool, 1), seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outBool"), Sequence< Any > ( & outBool, 1), seqIndices, seqOut);
-    outBool <<= seqOut[0];
-
-    inByte <<= (sal_Int8) 127;
-    inv->invoke(OUString(L"inByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outByte"), Sequence< Any > ( & outByte, 1), seqIndices, seqOut);
-    outByte <<= seqOut[0];
-
-    inShort <<= static_cast<sal_Int16>(-1);
-    inv->invoke(OUString(L"inShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outShort"), Sequence< Any > ( & outShort, 1), seqIndices, seqOut);
-    outShort <<= seqOut[0];
-
-    inLong <<= ( sal_Int32) 1234567;
-    inv->invoke(OUString(L"inLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outLong"), Sequence< Any > ( & outLong, 1 ), seqIndices, seqOut);
-    outLong <<= seqOut[0];
-
-    inString <<= OUString(L" this is clientTest.exe");
-    inv->invoke(OUString(L"inString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outString"), Sequence< Any > ( & outString, 1 ), seqIndices, seqOut);
-    outString <<= seqOut[0];
-
-    inFloat <<=  3.14f;
-    inv->invoke(OUString(L"inFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outFloat"), Sequence< Any > ( & outFloat, 1 ), seqIndices, seqOut);
-    outFloat <<= seqOut[0];
-
-    inDouble <<= ( double) 3.145;
-    inv->invoke(OUString(L"inDouble"), Sequence< Any > ( & inDouble, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outDouble"), Sequence< Any > ( & outDouble, 1 ), seqIndices, seqOut);
-    outDouble <<= seqOut[0];
-
-    inVariant <<= OUString(L" A string in an any");
-    inv->invoke(OUString(L"inVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outVariant, 1), seqIndices, seqOut);
-    outVariant <<= seqOut[0];
-
-    inObject <<= inv;
-    inv->invoke(OUString(L"inObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outObject"), Sequence< Any > (& outObject, 1), seqIndices, seqOut);
-    outObject <<= seqOut[0];
-
-    inUnknown <<= xIntFoo;
-    inv->invoke(OUString(L"inUnknown"), Sequence< Any > ( & inUnknown, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outUnknown"), Sequence< Any > (& outUnknown, 1), seqIndices, seqOut);
-    outUnknown <<= seqOut[0];
-
-    Currency cur(999999);
-    inCY <<= cur;
-    inv->invoke(OUString(L"inCurrency"), Sequence<Any>( & inCY, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outCurrency"), Sequence< Any > (& outCY, 1), seqIndices, seqOut);
-    outCY <<= seqOut[0];
-
-    Date dDate(37889.0);
-    inDate <<= dDate;
-    inv->invoke(OUString(L"inDate"), Sequence<Any>( & inDate, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outDate"), Sequence< Any > (& outDate, 1), seqIndices, seqOut);
-    outDate <<= seqOut[0];
-    
-    Decimal dec(3, 0, 0xffffffff, 0xffffffff, 0xfffffff0);
-    inDecimal <<= dec;
-    inv->invoke(OUString(L"inDecimal"), Sequence<Any>( & inDecimal, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outDecimal"), Sequence< Any > (& outDecimal, 1), seqIndices, seqOut);
-    outDecimal <<= seqOut[0];
-
-    SCode code(DISP_E_BADVARTYPE);
-    inSCode <<= code;
-    inv->invoke(OUString(L"inSCode"), Sequence<Any>( & inSCode, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSCode"), Sequence< Any > (& outSCode, 1), seqIndices, seqOut);
-    outSCode <<= seqOut[0];
-
-    if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
-        || inFloat != outFloat || inDouble != outDouble || inString != outString
-        || inVariant != outVariant || inObject != outObject || inUnknown != outUnknown 
-        || inCY != outCY
-        || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
-        return false;
-    //###################################################################################
-    //	in/out parameter
-    //###################################################################################
-    outBool = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutBool"), Sequence< Any > ( & inBool, 1), seqIndices, seqOut);
-    outBool <<= seqOut[0];
-
-    outByte = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
-    outByte <<= seqOut[0];
-    
-    outShort = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
-    outShort <<= seqOut[0];
-
-    outLong = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
-    outLong <<= seqOut[0];
-
-    outString = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
-    outString <<= seqOut[0];
-    
-    outFloat = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
-    outFloat <<= seqOut[0];
-
-    outDouble = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutDouble"), Sequence< Any > ( &inDouble, 1), seqIndices, seqOut);
-    outDouble <<= seqOut[0];
-
-    outVariant = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
-    outVariant <<= seqOut[0];
-
-    outObject = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
-    outObject <<= seqOut[0];
-
-    outCY = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutCurrency"), Sequence< Any > ( & inCY, 1), seqIndices, seqOut);
-    outCY <<= seqOut[0];
-
-    outDate = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutDate"), Sequence< Any > ( & inDate, 1), seqIndices, seqOut);
-    outDate <<= seqOut[0];
-    
-    outDecimal = Any();
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutDecimal"), Sequence< Any > (& inDecimal, 1), seqIndices, seqOut);
-    outDecimal <<= seqOut[0];
-
-    outSCode = Any();
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutSCode"), Sequence< Any > (& inSCode, 1), seqIndices, seqOut);
-    outSCode <<= seqOut[0];
-
-    if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
-        || inFloat != outFloat || inDouble != outDouble || inString != outString
-        || inVariant != outVariant || inObject != outObject || inCY != outCY
-        || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
-        return false;
-
-    //###################################################################################
-    //	in byref parameters
-    //###################################################################################
-
-    inrefLong <<= (sal_Int32) 1234;
-    inv->invoke(OUString(L"inrefLong"), Sequence<Any>( & inrefLong, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outLong"), Sequence< Any > (& outrefLong, 1), seqIndices, seqOut);
-    outrefLong <<= seqOut[0];
-    
-    inrefVariant <<= OUString(L" A string in an any");
-    inv->invoke(OUString(L"inrefVariant"), Sequence< Any > ( & inrefVariant, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outrefVariant, 1), seqIndices, seqOut);
-    outrefVariant <<= seqOut[0];
-
-    Decimal refdec(5, 1, 0xffff, 0xff, 0x1);
-    inrefDecimal <<= refdec;
-    inv->invoke(OUString(L"inrefDecimal"), Sequence< Any > ( & inrefDecimal, 1), seqIndices, seqOut);
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outDecimal"), Sequence< Any > (&outrefDecimal, 1), seqIndices, seqOut);
-    outrefDecimal <<= seqOut[0];
-
-    if (inrefLong != outrefLong || inrefVariant != outrefVariant
-        || inrefDecimal != outrefDecimal)
-        return false;
-
-
-    //###################################################################################
-    //	mixed parameter
-    //###################################################################################
-    // mixed1
-    seqIndices.realloc( 0);
-    seqOut.realloc(0);
-    Any param[3];
-    param[0] = inByte;
-    param[1] = inFloat;
-    param[2] = inVariant;
-    inv->invoke(OUString(L"mixed1"), Sequence< Any >(param, 3), seqIndices, seqOut);
-    
-    if (seqOut.getLength() != 3 || inByte != seqOut[0] || inFloat != seqOut[1]
-        || inVariant != seqOut[2])
-            return false;
-    return true;
-}
-
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv)
-{
-    bool ret = true;
-    Sequence<sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-    Any voidAny;
-    Any inArAny; 
-    Any outArray;
-    Any inArBool, outArBool;
-    Any inArByte, outArByte;
-    Any inArShort, outArShort;
-    Any inArLong, outArLong;
-    Any inArString, outArString;
-    Any inArFloat, outArFloat;
-    Any inArDouble, outArDouble;
-    Any inArObject, outArObject;
-    Any outVariant;
-
-    //Initialize arrays
-    OUString arStr[]= {L"string0", L"string1", L"string2"};
-    Sequence<OUString> seq( arStr, 3);
-    inArString <<= seq;
-
-    Any arAnyStrTmp[3];
-    arAnyStrTmp[0]<<= arStr[0];
-    arAnyStrTmp[1]<<= arStr[1];
-    arAnyStrTmp[2]<<= arStr[2];
-    Sequence<Any> seq_1( arAnyStrTmp, 3);
-    inArAny <<= seq_1;
-    //###################################################################################
-    //	in, out Sequences
-    //###################################################################################
-    //Test sequence containing Anys of Strings
-    inv->invoke(OUString(L"inArray"), Sequence< Any > ( & inArAny, 1), seqIndices, seqOut);
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outArray"), Sequence<Any>( & voidAny, 1), seqIndices, seqOut);
-    if (inArAny != seqOut[0])
-        return false;
-
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
-    inv->invoke(OUString(L"outArray"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArray <<= seqOut[0];
-
-    sal_Int8 arByte[]={1,2,3};
-    Sequence<sal_Int8> seqByte(arByte, 3);
-    inArByte <<= seqByte;
-    inv->invoke(OUString(L"inSequenceByte"),Sequence<Any>( & inArByte, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceByte"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArByte <<= seqOut[0];
-
-    sal_Int16 arShort[]={4,5,6};
-    Sequence<sal_Int16> seqShort(arShort, 3);
-    inArShort<<= seqShort;
-    inv->invoke(OUString(L"inSequenceShort"),Sequence< Any >( & inArShort, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceShort"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArShort <<= seqOut[0];
-
-    sal_Int32 arLong[] = {7,8,9};
-    Sequence<sal_Int32> seqLong(arLong, 3);
-    inArLong <<= seqLong;
-    inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArLong <<= seqOut[0];
-
-    inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArLong <<= seqOut[0];
-
-    inv->invoke( OUString(L"inSequenceString"),Sequence< Any > ( & inArString, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceString"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArString <<= seqOut[0];
-
-    float arFloat[]={3.14f, 31.4f, 314.f};
-    Sequence<float> seqFloat( arFloat, 3);
-    inArFloat <<= seqFloat;
-    inv->invoke( OUString(L"inSequenceFloat"),Sequence< Any > ( & inArFloat, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceFloat"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArFloat <<= seqOut[0];
-
-    double arDouble[]={3.145, 31.45, 3145.};
-    Sequence<double> seqDouble( arDouble, 3);
-    inArDouble <<= seqDouble;
-    inv->invoke(OUString(L"inSequenceDouble"),Sequence< Any >( & inArDouble, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceDouble"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArDouble <<= seqOut[0];
-
-    Sequence<Reference<XInvocation> > seqObj(2);
-    seqObj[0]= 	getComObject(L"AxTestComponents.Basic");	
-    seqObj[1]= 	getComObject(L"AxTestComponents.Basic");
-    inArObject <<= seqObj;
-    inv->invoke(OUString(L"inSequenceObject"),Sequence< Any >( & inArObject, 1), seqIndices, seqOut);	
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"outSequenceObject"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
-    outArObject <<= seqOut[0];
-    
-    if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort) 
-        || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
-        || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
-        || ! equalSequences(inArString, outArString)  || ! equalSequences(inArObject, outArObject))
-        return false;
-
-    //###################################################################################
-    //	in/out Sequences
-    //###################################################################################
-    seqIndices.realloc(0);
-    seqOut.realloc(0);
-    inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
-    inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
-    outArray <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
-    outArByte <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);
-    outArShort <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceLong"), Sequence<Any>( & inArLong, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceLong"), Sequence< Any >( & inArLong, 1), seqIndices, seqOut);
-    outArLong <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);
-    outArString <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);
-    outArFloat <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);
-    outArDouble <<= seqOut[0];
-
-    inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);	
-    inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);
-    outArObject <<= seqOut[0];
-
-    if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort) 
-        || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
-        || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
-        || ! equalSequences(inArString, outArString)  || ! equalSequences(inArObject, outArObject))
-        return false;
-
-    return ret;
-}
-
-HRESULT doTest()
-{
-    HRESULT hr= S_OK;
-    USES_CONVERSION;
-    Reference<XInvocation> inv= getComObject( L"AxTestComponents.Basic");
-
-    HostWin* pWin= new HostWin( L"MFCCONTROL.MfcControlCtrl.1");
-    CComPtr<IUnknown> spUnk= pWin->GetHostedControl();
-    Reference<XInvocation> invMfc= convertComObject( spUnk.p);
-
-    Sequence< sal_Int16> seqIndices;
-    Sequence<Any> seqOut;
-    
-    Any aAny;
-    Any anyOut;
-    char buff[1024];
-    Any seqAny;
-
-    if (! doSimpleTest(inv))
-    {
-        fprintf(stdout, "### Test failed!\n");
-        return E_FAIL;
-    }
-
-    if (! doPropertyTest(inv))
-    {
-        fprintf(stdout, "### Test failed!\n");
-        return E_FAIL;        
-    }
-    
-    if ( ! doSimpleSequenceTest(inv))
-    {
-        fprintf(stdout, "### Test failed! \n");
-        return E_FAIL;
-    }
-
-    if ( ! doParameterTest(inv))
-    {
-        fprintf(stdout, "### Test failed! \n");
-        return E_FAIL;
-    }
-
-    if ( ! doPropertyWithArgumentTest(inv))
-    {
-        fprintf(stdout, "### Test failed! \n");
-        return E_FAIL;
-    }
-
-    
-
-
-
-//
-//	//###################################################################################
-//	//	in multi Sequences
-//	//###################################################################################
-//	// inMulDimArrayLong
-    sal_Int32 arLongi[]={1,2,3};
-    sal_Int32 arLongi2[]={4,5,6,7};
-    sal_Int32 arLongi3[]={8,9,10,11,12};
-
-    Sequence<sal_Int32> seqLongi1( arLongi, 3);
-    Sequence<sal_Int32> seqLongi2( arLongi2, 4);
-    Sequence<sal_Int32> seqLongi3( arLongi3, 5);
-
-    Sequence< Sequence< sal_Int32 > > seq2i(3);
-    seq2i[0]= seqLongi1;
-    seq2i[1]= seqLongi2;
-    seq2i[2]= seqLongi3;
-    seqAny<<= seq2i;
-    // dimension length 3,5
-    inv->invoke( OUString(L"inMulDimArrayLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);	
-//	
-    //inMulDimArrayVariant
-    inv->invoke( OUString(L"inMulDimArrayVariant"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);	
-
-    //inMulDimArrayLong2
-    sal_Int32 arLongii1[]={1,2,3};
-    sal_Int32 arLongii2[]={4,5,6,7};
-    sal_Int32 arLongii3[]={8,9,10,11,12};
-    sal_Int32 arLongii4[]={13,14,15,16};
-    sal_Int32 arLongii5[]={17,18,19};
-
-    Sequence<sal_Int32> seqLongii1( arLongii1, 3);
-    Sequence<sal_Int32> seqLongii2( arLongii2, 4);
-    Sequence<sal_Int32> seqLongii3( arLongii3, 5);
-    Sequence<sal_Int32> seqLongii4( arLongii4, 4);
-    Sequence<sal_Int32> seqLongii5( arLongii5, 3);
-
-    Sequence< Sequence< sal_Int32 > > seq2ii(3);
-    Sequence< Sequence< sal_Int32> > seq2ii2(2);
-    seq2ii[0]= seqLongii1;
-    seq2ii[1]= seqLongii2;
-    seq2ii[2]= seqLongii3;
-
-    seq2ii2[0]= seqLongii4;
-    seq2ii2[1]= seqLongii5;
-    
-    Sequence< Sequence< Sequence< sal_Int32> > >  seq3ii(2);
-    seq3ii[0]=seq2ii;
-    seq3ii[1]=seq2ii2;
-    seqAny<<= seq3ii;
-    inv->invoke( OUString(L"inMulDimArrayLong2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);	
-
-    // inMulDimArrayByte2
-    sal_Int8 arByteii1[]={1,2,3};
-    sal_Int8 arByteii2[]={4,5,6,7};
-    sal_Int8 arByteii3[]={8,9,10,11,12};
-    sal_Int8 arByteii4[]={13,14,15,16};
-    sal_Int8 arByteii5[]={17,18,19};
-
-    Sequence<sal_Int8> seqByteii1( arByteii1, 3);
-    Sequence<sal_Int8> seqByteii2( arByteii2, 4);
-    Sequence<sal_Int8> seqByteii3( arByteii3, 5);
-    Sequence<sal_Int8> seqByteii4( arByteii4, 4);
-    Sequence<sal_Int8> seqByteii5( arByteii5, 3);
-
-    Sequence< Sequence< sal_Int8 > > seq2Byteii(3);
-    Sequence< Sequence< sal_Int8> > seq2Byteii2(2);
-    seq2Byteii[0]= seqByteii1;
-    seq2Byteii[1]= seqByteii2;
-    seq2Byteii[2]= seqByteii3;
-
-    seq2Byteii2[0]= seqByteii4;
-    seq2Byteii2[1]= seqByteii5;
-    
-    Sequence< Sequence< Sequence< sal_Int8> > >  seq3Byteii(2);
-    seq3Byteii[0]=seq2Byteii;
-    seq3Byteii[1]=seq2Byteii2;
-    seqAny<<= seq3Byteii;
-    inv->invoke( OUString(L"inMulDimArrayByte2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);	
-
-
-
-    //###################################################################################
-    //###################################################################################
-    //###################################################################################
-    //	Tests with a MFC ActiveX control, ( pure dispinterface)
-    //###################################################################################
-
-    //###################################################################################
-    //	in parameter MFC ActiveX
-    //###################################################################################
-    // unsigned char is not supported by MFC
-    //	aAny <<= ( sal_Int8) 127;
-    //	invMfc->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    if ( ! invMfc.is())
-        return hr;
-    aAny <<= static_cast<sal_Int16>(-1);
-    aAny= invMfc->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-//
-    aAny <<= ( sal_Int32) 1234567;
-    aAny=invMfc->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    sal_Int32 retLong= *(sal_Int32*)aAny.getValue();
-
-    OUString str_1(L" this is clientTest.exe");
-    aAny <<= str_1;
-    aAny=invMfc->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    aAny>>= str_1;
-
-    aAny <<= ( float) 3.14;
-    aAny=invMfc->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-    aAny <<= ( double) 3.145;
-    aAny=invMfc->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-    aAny <<= OUString( L" A string in an any");
-    aAny=invMfc->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    
-
-    Reference < XInvocation > inv5= getComObject(L"AxTestComponents.Basic");
-    Any anyVal4;
-    anyVal4 <<= OUString(L"this is the value of prpString");
-    inv5->setValue( OUString(L"prpString"), anyVal4);
-    aAny <<= inv5;
-    aAny=invMfc->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-//
-//	//###################################################################################
-//	//	out parameter MFC ActiveX
-//	//###################################################################################
-//	
-//	// outShort
-    aAny= invMfc->invoke( OUString(L"outShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outShort %d",  *(sal_Int16*)anyOut.getValue());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outLong
-    aAny= invMfc->invoke( OUString(L"outLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outLong %d",  *(sal_Int32*)anyOut.getValue());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outString
-    aAny= invMfc->invoke( OUString(L"outString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outString %S",  ((OUString*)anyOut.getValue())->getStr());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outFloat
-    aAny= invMfc->invoke( OUString(L"outFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outFloat %f",  *(float*)anyOut.getValue());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outDouble
-    aAny= invMfc->invoke( OUString(L"outDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outFloat %f",  *(double*)anyOut.getValue());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outVariant
-    // we expect a string!! ( VT_BSTR)
-    aAny= invMfc->invoke( OUString(L"outVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    anyOut<<= seqOut[0];
-    sprintf(buff, "MFC outVariant %S", ((OUString*)anyOut.getValue())->getStr());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-    // outDouble
-    aAny= invMfc->invoke( OUString(L"outObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-    Reference<XInvocation> invOut5;
-    seqOut[0]>>= invOut5;
-    // we assume that an object of AxTestControls.Basic is being returned.
-    anyOut= invOut5->getValue( OUString(L"prpString"));
-    OUString tmpStr;
-    anyOut>>=tmpStr;
-    sprintf(buff, "MFC outObject, property:  %S",  tmpStr.getStr());
-    MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-
-    //###################################################################################
-    //	Sequence parameter MFC ActiveX
-    //###################################################################################
-    // Sequences are not directly supported. 
-
-
-    delete pWin;
-    return hr;
-
-}
-
-
-
-//VARIANT_TRUE VT_UI1
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */