From 95117e7fefa9ae82431dcdffd1e58495730f6f54 Mon Sep 17 00:00:00 2001 From: Jens-Heiner Rechtien Date: Mon, 18 Sep 2000 15:18:56 +0000 Subject: initial import --- extensions/workben/pythonautotest.cxx | 657 ++++++++++++++++++++++++++++++++++ 1 file changed, 657 insertions(+) create mode 100644 extensions/workben/pythonautotest.cxx (limited to 'extensions/workben/pythonautotest.cxx') diff --git a/extensions/workben/pythonautotest.cxx b/extensions/workben/pythonautotest.cxx new file mode 100644 index 000000000000..318fdb84dbf5 --- /dev/null +++ b/extensions/workben/pythonautotest.cxx @@ -0,0 +1,657 @@ +/************************************************************************* + * + * $RCSfile: pythonautotest.cxx,v $ + * + * $Revision: 1.1.1.1 $ + * + * last change: $Author: hr $ $Date: 2000-09-18 16:16:56 $ + * + * The Contents of this file are made available subject to the terms of + * either of the following licenses + * + * - GNU Lesser General Public License Version 2.1 + * - Sun Industry Standards Source License Version 1.1 + * + * Sun Microsystems Inc., October, 2000 + * + * GNU Lesser General Public License Version 2.1 + * ============================================= + * Copyright 2000 by Sun Microsystems, Inc. + * 901 San Antonio Road, Palo Alto, CA 94303, USA + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License version 2.1, as published by the Free Software Foundation. + * + * This library 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 for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, + * MA 02111-1307 USA + * + * + * Sun Industry Standards Source License Version 1.1 + * ================================================= + * The contents of this file are subject to the Sun Industry Standards + * Source License Version 1.1 (the "License"); You may not use this file + * except in compliance with the License. You may obtain a copy of the + * License at http://www.openoffice.org/license.html. + * + * Software provided under this License is provided on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, + * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. + * See the License for the specific provisions governing your rights and + * obligations concerning the Software. + * + * The Initial Developer of the Original Code is: Sun Microsystems, Inc. + * + * Copyright: 2000 by Sun Microsystems, Inc. + * + * All Rights Reserved. + * + * Contributor(s): _______________________________________ + * + * + ************************************************************************/ +#include +#include +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#ifdef _USE_NAMESPACE +using namespace rtl; +using namespace vos; +using namespace usr; +#endif + +#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 seq(1); + UsrAny any( (INT32) 1); + (seq.getArray())[0] = any; + + any = (*pRef)->invoke( L"count" , seq , Sequence(), Sequence() ); + int nOldSize = any.getINT32(); + + any = (*pRef)->invoke( L"append" , seq , Sequence(), Sequence() ); + any = (*pRef)->invoke( L"count" , seq , Sequence(), Sequence() ); + + 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 (); + } + + 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 () ); + + /**** + * + * 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 () ); + assert( xInvoke->hasMethod( L"foo" ) ); + UsrAny any = xInvoke->invoke( L"foo" , + Sequence(), + Sequence() , + Sequence () ); + assert( any.getString() == L"this is foo" ); + } + + + // check exception handling ! + { + TRY { + xInvoke->invoke( L"foo" , Sequence(1) , Sequence(), Sequence () ); + // 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 () , 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 () , 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 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 () ); + + 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 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; +} + -- cgit v1.2.3