diff options
Diffstat (limited to 'extensions/workben/pythonautotest.cxx')
| -rw-r--r-- | extensions/workben/pythonautotest.cxx | 630 |
1 files changed, 630 insertions, 0 deletions
diff --git a/extensions/workben/pythonautotest.cxx b/extensions/workben/pythonautotest.cxx new file mode 100644 index 000000000000..ad38869c4c38 --- /dev/null +++ b/extensions/workben/pythonautotest.cxx @@ -0,0 +1,630 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2008 by Sun Microsystems, Inc. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * $RCSfile: pythonautotest.cxx,v $ + * $Revision: 1.7 $ + * + * 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 <stdio.h> +#include <stardiv/uno/repos/implementationregistration.hxx> +#include <stardiv/uno/script/script.hxx> +#include <stardiv/uno/beans/exactname.hxx> + +#include <rtl/ustring.hxx> +#include <vos/dynload.hxx> +#include <vos/diagnose.hxx> +#include <usr/services.hxx> +#include <vcl/svapp.hxx> +#include <usr/ustring.hxx> +#include <usr/weak.hxx> +#include <tools/string.hxx> +#include <vos/conditn.hxx> +#if OSL_DEBUG_LEVEL == 0 +#define NDEBUG +#endif +#include <assert.h> + +using namespace rtl; +using namespace vos; +using namespace usr; + +#define PCHAR_TO_USTRING(x) StringToOUString(String(x),CHARSET_SYSTEM) +#define USTRING_TO_PCHAR(x) OUStringToString(x , CHARSET_DONTKNOW ).GetCharStr() + + + + + +/***** +* +* A Test root object ! +* +*****/ +class MyPythonRoot : + public XInvokation, + public OWeakObject +{ +public: + MyPythonRoot() { m_iTestValue = 15; } + BOOL queryInterface( Uik aUik, XInterfaceRef & rOut ); + void acquire() { OWeakObject::acquire(); } + void release() { OWeakObject::release(); } + void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); } + +public: + XIntrospectionAccessRef getIntrospection(void) const THROWS( (UsrSystemException) ) + { return XIntrospectionAccessRef(); } + + UsrAny invoke( const UString& FunctionName, + const Sequence< UsrAny >& Params, + Sequence< INT16 >& OutParamIndex, + Sequence< UsrAny >& OutParam) + THROWS( ( IllegalArgumentException, + CannotConvertException, + InvocationTargetException, + UsrSystemException) ); + void setValue(const UString& PropertyName, const UsrAny& Value) + THROWS( ( UnknownPropertyException, + CannotConvertException, + InvocationTargetException, + UsrSystemException) ); + + UsrAny getValue(const UString& PropertyName) + THROWS( ( UnknownPropertyException, + UsrSystemException) ); + BOOL hasMethod(const UString& Name) const THROWS( (UsrSystemException) ); + BOOL hasProperty(const UString& Name) const THROWS( (UsrSystemException) ); + + + void getTestValueViaInout( int &inout ) + { inout = m_iTestValue; } + + INT32 getTestValue() const + { return m_iTestValue; } + + void setTestValue( INT32 i ) + { m_iTestValue = i; } + + void printTestValue() + { fprintf( stderr, "TestValue : %d\n" , getTestValue() ); } + + void addTestValue( INT32 i ) + { m_iTestValue += i; } + +private: + + INT32 m_iTestValue; +}; + +BOOL MyPythonRoot::queryInterface( Uik aUik, XInterfaceRef &rOut ) +{ + if( aUik == XInvokation::getSmartUik() ) { + rOut = ( XInvokation * ) this; + } + else { + return OWeakObject::queryInterface( aUik , rOut ); + } + return TRUE; + +} + +UsrAny MyPythonRoot::invoke( const UString& FunctionName, + const Sequence< UsrAny >& Params, + Sequence< INT16 >& OutParamIndex, + Sequence< UsrAny >& OutParam) + THROWS( ( IllegalArgumentException, + CannotConvertException, + InvocationTargetException, + UsrSystemException) ) +{ + if( L"printTestValue" == FunctionName ) { + printTestValue(); + } + else if( L"addTestValue" == FunctionName ) { + addTestValue( Params.getConstArray()[0].getINT32() ); + } + else if( L"getTestValueViaInout" == FunctionName ) { + int i = Params.getConstArray()[0].getINT32(); + getTestValueViaInout( i ); + OutParam.getArray()[0].setINT32( i ); + } + else { + THROW( InvocationTargetException() ); + } + + return UsrAny(); +} + +void MyPythonRoot::setValue(const UString& PropertyName, const UsrAny& Value) + THROWS( ( UnknownPropertyException, + CannotConvertException, + InvocationTargetException, + UsrSystemException) ) +{ + if( L"TestValue" == PropertyName ) { + setTestValue( Value.getINT32() ); + } + else { + THROW( UnknownPropertyException() ); + } +} + +UsrAny MyPythonRoot::getValue(const UString& PropertyName) + THROWS( ( UnknownPropertyException, + UsrSystemException) ) +{ + UsrAny aRet; + + if( L"TestValue" == PropertyName ) { + aRet.setINT32( getTestValue() ); + } + else { + THROW( UnknownPropertyException() ); + } + + return aRet; +} + + +BOOL MyPythonRoot::hasMethod(const UString& Name) const THROWS( (UsrSystemException) ) +{ + if( L"printTestValue" == Name ) { + return TRUE; + } + else if( L"addTestValue" == Name ) { + return TRUE; + } + else if( L"getTestValueViaInout" == Name ) { + return TRUE; + } + return FALSE; +} + + +BOOL MyPythonRoot::hasProperty(const UString& Name) const THROWS( (UsrSystemException) ) +{ + if( L"TestValue" == Name ) { + return TRUE; + } + + return FALSE; +} + + +/***** +* +* A test engine listener to check the debug interface +* +*****/ +class TestListener : + public XEngineListener, + public OWeakObject +{ +public: + + TestListener() + { + m_pDebuggingRef = 0; + } + + + TestListener( XDebuggingRef *p ) + { + attach( p ); + } + + ~TestListener() + { + if( m_pDebuggingRef ) { + detach(); + } + } + + BOOL queryInterface( Uik aUik, XInterfaceRef & rOut ); + void acquire() { OWeakObject::acquire(); } + void release() { OWeakObject::release(); } + void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); } + + + void attach( XDebuggingRef *p ) + { + m_pDebuggingRef = p; + } + + void detach( ); + + + virtual void disposing( const EventObject &o ) + { + if( m_pDebuggingRef ) { + detach(); + } + } + virtual void interrupt(const InterruptEngineEvent& Evt) THROWS( (UsrSystemException) ) + { + } + + virtual void running(const EventObject& Evt) THROWS( (UsrSystemException) ) + { + (*m_pDebuggingRef)->stop(); + + m_aDebugCondition.set(); + } + + virtual void finished(const FinishEngineEvent& Evt) THROWS( (UsrSystemException) ) + { + m_aDebugCondition.set(); + } + + + void cmdLine(); +protected: + + OCondition m_aDebugCondition; + XDebuggingRef *m_pDebuggingRef; +}; + + + +void TestListener::cmdLine() +{ + // Condition is set by running listener + m_aDebugCondition.wait(); + m_aDebugCondition.reset(); + (*m_pDebuggingRef)->doContinue(); + m_aDebugCondition.wait(); +} + +void TestListener::detach() +{ + assert( m_pDebuggingRef ); + + m_pDebuggingRef = 0; +} + +BOOL TestListener::queryInterface( Uik aUik, XInterfaceRef & rOut ) +{ + if( aUik == XEngineListener::getSmartUik() ) + rOut = (XEngineListener*)this; + else + return OWeakObject::queryInterface( aUik, rOut ); + return TRUE; +} + + +void checkInvokation( const XInvokationRef &xInvoke ) +{ + UsrAny anyList; + + // check exporting an object as an invokation + assert( xInvoke->hasProperty( L"list" ) ); + anyList = xInvoke->getValue( L"list" ); + + assert( anyList.getReflection() == XInvokation_getReflection() ); + XInvokationRef *pRef = ( XInvokationRef * ) anyList.get(); + assert( (*pRef).is() ); + + assert( (*pRef)->hasMethod( L"append" ) ); + assert( (*pRef)->hasMethod( L"count" ) ); + + Sequence<UsrAny> seq(1); + UsrAny any( (INT32) 1); + (seq.getArray())[0] = any; + + any = (*pRef)->invoke( L"count" , seq , Sequence<INT16>(), Sequence<UsrAny>() ); + int nOldSize = any.getINT32(); + + any = (*pRef)->invoke( L"append" , seq , Sequence<INT16>(), Sequence<UsrAny>() ); + any = (*pRef)->invoke( L"count" , seq , Sequence<INT16>(), Sequence<UsrAny>() ); + + assert( nOldSize + 1 == any.getINT32() ); +} + +// just for testing ! +class PythonCodeLibrary : + public XLibraryAccess, + public OWeakObject +{ + + BOOL queryInterface( Uik aUik, XInterfaceRef & rOut ); + void acquire() { OWeakObject::acquire(); } + void release() { OWeakObject::release(); } + void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); } + + + virtual BOOL isFunction(const UString& FunctionName) THROWS( (UsrSystemException) ) + { + return FALSE; + } + + virtual BOOL isValidPath(const UString& PathName) THROWS( (UsrSystemException) ) + { + return FALSE; + } + + virtual Sequence< UString > getModuleNames(void) THROWS( (UsrSystemException) ) + { + return Sequence<UString> (); + } + + virtual UString getModuleSource(const UString& ModulName) THROWS( (UsrSystemException) ) + { + if( ModulName == L"testmodul" ) { + return UString( L"def testmethod():\n" + L" return 42\n"); + } + return UString(); + } + + virtual Sequence< BYTE > getModuleCode(const UString& ModuleName) THROWS( (UsrSystemException) ) + { + return Sequence< BYTE > (); + } + + virtual UString getFunctionSource(const UString& FunctionName) THROWS( (UsrSystemException) ) + { + return UString(); + } + virtual Sequence< BYTE > getFunctionCode(const UString& FunctionName) THROWS( (UsrSystemException) ) + { + return Sequence< BYTE > (); + } +}; + +BOOL PythonCodeLibrary::queryInterface( Uik aUik, XInterfaceRef & rOut ) +{ + if( XLibraryAccess::getSmartUik() == aUik ) { + rOut = (XLibraryAccess* ) this; + } + else { + return OWeakObject::queryInterface( aUik , rOut ); + } + + return TRUE; +} + + + +/* + * main. + */ +int __LOADONCALLAPI main (int argc, char **argv) +{ + // necessary startup code + XMultiServiceFactoryRef xSMgr = createRegistryServiceManager(); + registerUsrServices( xSMgr ); + setProcessServiceManager( xSMgr ); + + XInterfaceRef x = xSMgr->createInstance( L"stardiv.uno.repos.ImplementationRegistration" ); + XImplementationRegistrationRef xReg( x, USR_QUERY ); + sal_Char szBuf[1024]; + + ORealDynamicLoader::computeModuleName( "pythonengine", szBuf, 1024 ); + UString aDllName( StringToOUString( szBuf, CHARSET_SYSTEM ) ); + xReg->registerImplementation( L"stardiv.loader.SharedLibrary", aDllName, XSimpleRegistryRef() ); + + x = xSMgr->createInstance( L"stardiv.script.Python" ); + XEngineRef xEngine( x, USR_QUERY ); + XInvokationRef xInvoke( x, USR_QUERY ); + XDebuggingRef xDebug( x , USR_QUERY ); + + XInterfaceRef rRoot( (XInvokation * )new MyPythonRoot , USR_QUERY ); + xEngine->setRoot( rRoot ); + + + // execute a simple script + xEngine->run( L"nIntTest = 5\n" + L"list = [2,3,4]\n" , XInterfaceRef(), Sequence<UsrAny> () ); + + /**** + * + * Xinvokation - Test + * + *****/ + // get/set an int ! + { + assert( xInvoke->hasProperty( L"nIntTest" ) ); + UsrAny any = xInvoke->getValue( L"nIntTest" ); + + assert( any.getReflection()->getTypeClass() == TypeClass_LONG ); + assert( any.getINT32() == 5 ); + + // simple test: set an int ! + xInvoke->setValue( L"nIntTest" , UsrAny( (INT32) 10 ) ); + any = xInvoke->getValue( L"nIntTest" ); + + assert( any.getReflection()->getTypeClass() == TypeClass_LONG ); + assert( any.getINT32() == 10 ); + } + + // call a python method ! + { + xEngine->run( L"def foo():\n" + L" return 'this is foo'\n" , XInterfaceRef() , Sequence<UsrAny> () ); + assert( xInvoke->hasMethod( L"foo" ) ); + UsrAny any = xInvoke->invoke( L"foo" , + Sequence<UsrAny>(), + Sequence<INT16>() , + Sequence<UsrAny> () ); + assert( any.getString() == L"this is foo" ); + } + + + // check exception handling ! + { + try { + xInvoke->invoke( L"foo" , Sequence<UsrAny>(1) , Sequence<INT16>(), Sequence<UsrAny> () ); + // wrong number of arguments + assert( 0 ); + } + catch ( IllegalArgumentException& e ) { + } + catch ( InvocationTargetException& e ) { + } + catch ( CannotConvertException& e ) { + // empty any cannot be converted + } + } + + // check InOut-Parameter + checkInvokation( xInvoke ); + + /******* + * + * Check Introspection Access + * + *******/ + { + XIntrospectionAccessRef xIntrospection = xInvoke->getIntrospection(); + assert( xIntrospection.is() ); + + // no further test, simply call them + xIntrospection->getMethods(0); + xIntrospection->getProperties(0); + + assert( xIntrospection->getSuppliedMethodConcepts() == 0 ); + assert( xIntrospection->getSuppliedPropertyConcepts() == 0 ); + + Property prop = xIntrospection->getProperty( L"nIntTest" ,0 ); + assert( prop.Name == L"nIntTest" ); + assert( prop.Type->getTypeClass() == TypeClass_LONG ); + + XIdlMethodRef method = xIntrospection->getMethod( L"foo" , 0 ); + assert( method->getName() == L"foo" ); + } + + + /****** + * + * Multithreading test + * + *******/ + + /****** + * + * XDebuggingTest + * + ******/ + // stop/doContinue + runAsync listener + { + // test hangs, if something is wrong + + TestListener *pListener = new TestListener( &xDebug ); + XEngineListenerRef ref( (XEngineListener * ) pListener , USR_QUERY ); + + // single listener check ! + xEngine->runAsync( L"pass\n" + , XInterfaceRef() , Sequence<UsrAny> () , ref ); + pListener->cmdLine(); + } + + // ListenerAdministration check ! + { + // test hangs, if something is wrong + + TestListener *pListener = new TestListener( &xDebug ); + XEngineListenerRef ref( (XEngineListener * ) pListener , USR_QUERY ); + + // engine listener check ! + xEngine->addEngineListener( ref ); + xEngine->runAsync( L"pass\n" + , XInterfaceRef() , Sequence<UsrAny> () , XEngineListenerRef() ); + pListener->cmdLine(); + xEngine->removeEngineListener( ref); + + } + + // check the import mechanism + { + XLibraryAccessRef xLibrary( ( XLibraryAccess * ) new PythonCodeLibrary , USR_QUERY ); + xEngine->setLibraryAccess( xLibrary ); + + xEngine->run( L"import testmodul\n" + L"x = testmodul.testmethod()\n" , XInterfaceRef() , Sequence<UsrAny>() ); + UsrAny any = xInvoke->getValue( L"x" ); + assert( any.getReflection()->getTypeClass() == TypeClass_LONG ); + assert( any.getINT32() == 42 ); + } + + // check other imports + { + // Check, if the libraries are available at run time + xEngine->run( L"import math\n" + L"dMathTest = math.exp(0)\n" , XInterfaceRef() , Sequence<UsrAny> () ); + + assert( xInvoke->hasProperty( L"dMathTest" ) ); + UsrAny any = xInvoke->getValue( L"dMathTest" ); + + assert( any.getReflection()->getTypeClass() == TypeClass_DOUBLE ); + assert( any.getDouble() == 1. ); + } + + // Test connection to root object ! + { + xEngine->run( L"x = stardiv.root.TestValue\n" + L"y = stardiv.inout(5)\n" + L"stardiv.root.getTestValueViaInout(y)\n" + L"z = y.value\n" , XInterfaceRef() , Sequence<UsrAny> () ); + + UsrAny any = xInvoke->getValue( L"x" ); + assert( any.getReflection()->getTypeClass() == TypeClass_LONG ); + assert( any.getINT32() == 15 ); + + any = xInvoke->getValue( L"z" ); + assert( any.getReflection()->getTypeClass() == TypeClass_LONG ); + assert( any.getINT32() == 15 ); + } + + // Test exactName interface + { + UsrAny any = xInvoke->getValue( L"__builtins__" ); + assert( any.getReflection()->getTypeClass() == TypeClass_INTERFACE ); + + XInvokationRef rInv( *((XInterfaceRef *) any.get() ), USR_QUERY ); + assert( rInv.is() ); + + XExactNameRef rName( *((XInterfaceRef*) any.get() ), USR_QUERY ); + assert( rName.is() ); + + UString str = rName->getExactName( L"SYNTAXERROR" ); + assert( str.len() ); + } + + + // Test exactName interface of the engine itself + { + XExactNameRef rName( xInvoke , USR_QUERY ); + assert( rName.is() ); + UString str = rName->getExactName( L"STARDIV" ); + assert( str.len() ); + } + + + return 0; +} + |