summaryrefslogtreecommitdiff
path: root/extensions/test/ole/unloading
diff options
context:
space:
mode:
authorJoachim Lingner <jl@openoffice.org>2001-06-27 12:08:44 +0000
committerJoachim Lingner <jl@openoffice.org>2001-06-27 12:08:44 +0000
commitd2c8e36b32d200705fefec455208417eb097fbcb (patch)
tree2beccfa0351f453bdbcf5f05c8ed5de5f38365c8 /extensions/test/ole/unloading
parent1390fc5c7f89f92320f894df50bba12faf01180e (diff)
*** empty log message ***
Diffstat (limited to 'extensions/test/ole/unloading')
-rw-r--r--extensions/test/ole/unloading/makefile.mk137
-rw-r--r--extensions/test/ole/unloading/readme.txt6
-rw-r--r--extensions/test/ole/unloading/unloadTest.cxx192
3 files changed, 335 insertions, 0 deletions
diff --git a/extensions/test/ole/unloading/makefile.mk b/extensions/test/ole/unloading/makefile.mk
new file mode 100644
index 000000000000..c6c1eb69ba13
--- /dev/null
+++ b/extensions/test/ole/unloading/makefile.mk
@@ -0,0 +1,137 @@
+#*************************************************************************
+#
+# $RCSfile: makefile.mk,v $
+#
+# $Revision: 1.1 $
+#
+# last change: $Author: jl $ $Date: 2001-06-27 13:08:19 $
+#
+# 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): _______________________________________
+#
+#
+#
+#*************************************************************************
+PRJ=..$/..$/..
+
+PRJNAME= ole
+TARGET= unloadtest
+#LIBTARGET=NO
+TARGETTYPE=CUI
+COMP1TYPELIST=$(TARGET1)
+
+NO_BSYMBOLIC= TRUE
+ENABLE_EXCEPTIONS=TRUE
+
+USE_DEFFILE= TRUE
+
+# --- Settings -----------------------------------------------------
+
+.INCLUDE : settings.mk
+
+# --- Files --------------------------------------------------------
+
+UNOUCRDEP=$(SOLARBINDIR)$/udkapi.rdb
+UNOUCRRDB=$(SOLARBINDIR)$/udkapi.rdb
+
+CPPUMAKERFLAGS =
+
+.IF "$(BOOTSTRAP_SERVICE)" == "TRUE"
+UNOUCROUT= $(OUT)$/inc$/bootstrap
+INCPRE+= $(OUT)$/inc$/bootstrap
+.ELSE
+.IF "$(COM)" == "MSC"
+CPPUMAKERFLAGS = -L
+.ENDIF
+UNOUCROUT= $(OUT)$/inc$/light
+INCPRE+= $(OUT)$/inc$/light
+.ENDIF
+
+# ------------------------------------------------------------------
+UNOTYPES= com.sun.star.uno.XComponentContext \
+ com.sun.star.lang.XSingleComponentFactory \
+ com.sun.star.lang.XMultiComponentFactory \
+ com.sun.star.lang.XServiceInfo \
+ com.sun.star.lang.XComponent \
+ com.sun.star.container.XHierarchicalNameAccess \
+ com.sun.star.registry.XSimpleRegistry
+
+APP1NOSAL=TRUE
+
+APP1TARGET= $(TARGET)
+
+APP1OBJS= $(OBJ)$/unloadTest.obj
+
+APP1STDLIBS= \
+ $(SALLIB) \
+ $(CPPUHELPERLIB) \
+ $(CPPULIB)
+
+
+
+
+LIBCIMT=MSVCPRTD.lib
+
+# all: \
+# $(BINDIR) \
+# $(BINDIR)$/test.ini \
+# ALLTAR
+
+# $(BINDIR) :
+# @+-$(MKDIR) $(BINDIR) >& $(NULLDEV)
+
+# $(BINDIR)$/test.ini : .$/unloadtest.ini
+# +-$(GNUCOPY) .$/unloadtest.ini $(BINDIR)
+
+# --- Targets ------------------------------------------------------
+
+.INCLUDE : target.mk
+
+
diff --git a/extensions/test/ole/unloading/readme.txt b/extensions/test/ole/unloading/readme.txt
new file mode 100644
index 000000000000..4320b1d0c3e7
--- /dev/null
+++ b/extensions/test/ole/unloading/readme.txt
@@ -0,0 +1,6 @@
+This project builds a unloadtest.exe.
+
+Function: Tests if the unloading mechanism works with the olebrdg.dll.
+In several tests, all services are created and destroyed and rtl_unloadUnusedModules is called.
+
+Usage: copy into the <Office>\program directory and run there. \ No newline at end of file
diff --git a/extensions/test/ole/unloading/unloadTest.cxx b/extensions/test/ole/unloading/unloadTest.cxx
new file mode 100644
index 000000000000..4c33b70e3145
--- /dev/null
+++ b/extensions/test/ole/unloading/unloadTest.cxx
@@ -0,0 +1,192 @@
+
+#include<osl/module.hxx>
+#include <osl/time.h>
+#include <rtl/ustring.hxx>
+#include <stdio.h>
+#include <cppuhelper/factory.hxx>
+#include <cppuhelper/servicefactory.hxx>
+#include <cppuhelper/bootstrap.hxx>
+#include <com/sun/star/lang/XMultiComponentFactory.hpp>
+#include <com/sun/star/lang/XSingleServiceFactory.hpp>
+#include <com/sun/star/lang/XServiceInfo.hpp>
+#include <com/sun/star/lang/XComponent.hpp>
+#include <com/sun/star/uno/XComponentContext.hpp>
+#include <com/sun/star/registry/XSimpleRegistry.hpp>
+
+#include <stdio.h>
+using namespace ::rtl;
+using namespace ::osl;
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::lang;
+using namespace ::cppu;
+using namespace ::com::sun::star::registry;
+
+
+sal_Bool test1();
+sal_Bool test2();
+sal_Bool test3();
+sal_Bool test4();
+
+int main(int argc, char* argv[])
+{
+ sal_Bool bTest1= test1();
+ sal_Bool bTest2= test2();
+ sal_Bool bTest3= test3();
+ sal_Bool bTest4= test4();
+
+ if( bTest1 && bTest2 && bTest3 && bTest4)
+ printf("\n#########################\n Test was successful\n#######################\n");
+
+ return 0;
+}
+
+sal_Bool test1()
+{
+ printf("\n Test1: com.sun.star.bridge.OleBridgeSupplier2\n");
+ Reference<XSimpleRegistry> xreg= createSimpleRegistry();
+ xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb")),
+ sal_False, sal_False );
+
+ Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
+ Reference<XMultiComponentFactory> fac= context->getServiceManager();
+ OUString sService1( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.OleBridgeSupplier2"));
+ Reference<XInterface> xint1= fac->createInstanceWithContext( sService1, context);
+
+ OUString sModule( RTL_CONSTASCII_USTRINGPARAM("olebrdg.dll"));
+ oslModule hMod= osl_loadModule( sModule.pData, 0);
+ osl_unloadModule( hMod);
+
+ rtl_unloadUnusedModules( NULL);
+
+ OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
+ void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ // true, instance alive
+ sal_Bool bTest1= pSymbol ? sal_True : sal_False;
+
+ xint1=0;
+ rtl_unloadUnusedModules( NULL);
+ pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ sal_Bool bTest2= pSymbol ? sal_False : sal_True;
+
+ Reference<XComponent> xcomp( context, UNO_QUERY);
+ xcomp->dispose();
+
+ return bTest2 && bTest1;
+}
+
+sal_Bool test2()
+{
+ printf("Test2: com.sun.star.bridge.OleBridgeSupplierVar1\n");
+ Reference<XSimpleRegistry> xreg= createSimpleRegistry();
+ xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb")),
+ sal_False, sal_False );
+
+ Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
+ Reference<XMultiComponentFactory> fac= context->getServiceManager();
+ OUString sService2( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.OleBridgeSupplierVar1"));
+ Reference<XInterface> xint= fac->createInstanceWithContext( sService2, context);
+
+ OUString sModule( RTL_CONSTASCII_USTRINGPARAM("olebrdg.dll"));
+ oslModule hMod= osl_loadModule( sModule.pData, 0);
+ osl_unloadModule( hMod);
+
+ rtl_unloadUnusedModules( NULL);
+ OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
+ void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ // true, instance alive
+ sal_Bool bTest1= pSymbol ? sal_True : sal_False;
+
+ xint=0;
+ rtl_unloadUnusedModules( NULL);
+ pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ sal_Bool bTest2= pSymbol ? sal_False : sal_True;
+
+ Reference<XComponent> xcomp( context, UNO_QUERY);
+ xcomp->dispose();
+ return bTest1 && bTest2;
+}
+
+sal_Bool test3()
+{
+ printf("Test3: com.sun.star.bridge.OleObjectFactory\n");
+ Reference<XSimpleRegistry> xreg= createSimpleRegistry();
+ xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb")),
+ sal_False, sal_False );
+
+ Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
+
+ Reference<XMultiComponentFactory> fac= context->getServiceManager();
+ OUString sService( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.OleObjectFactory"));
+ Reference<XInterface> xint= fac->createInstanceWithContext( sService, context);
+
+
+ OUString sModule( RTL_CONSTASCII_USTRINGPARAM("olebrdg.dll"));
+ oslModule hMod= osl_loadModule( sModule.pData, 0);
+ osl_unloadModule( hMod);
+
+ rtl_unloadUnusedModules( NULL);
+ OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
+ void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ // true, instance alive
+ sal_Bool bTest1= pSymbol ? sal_True : sal_False;
+
+ xint=0;
+ rtl_unloadUnusedModules( NULL);
+ pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ sal_Bool bTest2= pSymbol ? sal_False : sal_True;
+
+ Reference<XComponent> xcomp( context, UNO_QUERY);
+ xcomp->dispose();
+
+// for (int i=0; i < 10; i++)
+// {
+// Reference<XSimpleRegistry> xreg= createSimpleRegistry();
+// xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb")),
+// sal_False, sal_False );
+// Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
+// Reference<XComponent> xcomp( context, UNO_QUERY);
+// xcomp->dispose();
+//
+// }
+
+// return sal_True;
+ return bTest1 && bTest2;
+}
+
+sal_Bool test4()
+{
+ void* pSymbol= NULL;
+ sal_Bool bTest1= sal_False;
+ sal_Bool bTest2= sal_False;
+ oslModule hMod= NULL;
+ OUString sModule( RTL_CONSTASCII_USTRINGPARAM("olebrdg.dll"));
+ OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
+ {
+ printf("Test4: com.sun.star.bridge.OleApplicationRegistration\n");
+ Reference<XSimpleRegistry> xreg= createSimpleRegistry();
+ xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb")),
+ sal_False, sal_False );
+
+ Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
+ Reference<XMultiComponentFactory> fac= context->getServiceManager();
+ OUString sService4( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.OleApplicationRegistration"));
+ Reference<XInterface> xint= fac->createInstanceWithContext( sService4, context);
+
+ hMod= osl_loadModule( sModule.pData, 0);
+ osl_unloadModule( hMod);
+
+ rtl_unloadUnusedModules( NULL);
+ void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ // true, instance alive
+ bTest1= pSymbol ? sal_True : sal_False;
+ // OleApplicationRegistration is a one-instance-service, therefore kill service manager first
+ Reference<XComponent> xcomp( context, UNO_QUERY);
+ xcomp->dispose();
+
+ }
+ rtl_unloadUnusedModules( NULL);
+ pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
+ bTest2= pSymbol ? sal_False : sal_True;
+
+ return bTest1 && bTest2;
+}