INTEGRATION: CWS bunoexttm (1.1.2.6.2); FILE ADDED

2007/02/08 13:34:02 kr 1.1.2.6.2.3: fixed: test section title
2007/02/08 10:59:56 kr 1.1.2.6.2.2: fixed: linkage
2007/01/26 09:15:14 kr 1.1.2.6.2.1: fixed: license, warning

1 files changed, 409 insertions, 0 deletions

diff --git a/cppu/test/env_tester/purpenv.test.cxx b/cppu/test/env_tester/purpenv.test.cxx
new file mode 100644
index 000000000000..8a009bd1c162
--- /dev/null
+++ b/cppu/test/env_tester/purpenv.test.cxx
@@ -0,0 +1,409 @@
+/*************************************************************************
+ *
+ *  OpenOffice.org - a multi-platform office productivity suite
+ *
+ *  $RCSfile: purpenv.test.cxx,v $
+ *
+ *  $Revision: 1.2 $
+ *
+ *  last change: $Author: kz $ $Date: 2007-05-09 13:48:35 $
+ *
+ *  The Contents of this file are made available subject to
+ *  the terms of GNU Lesser General Public License Version 2.1.
+ *
+ *
+ *    GNU Lesser General Public License Version 2.1
+ *    =============================================
+ *    Copyright 2005 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
+ *
+ ************************************************************************/
+
+#include <iostream>
+
+#include "sal/main.h"
+
+#include "uno/environment.hxx"
+#include "uno/dispatcher.h"
+
+#include "typelib/typedescription.h"
+
+#include "com/sun/star/uno/Any.h"
+
+#include "../ObjectFactory/ObjectFactory.hxx"
+
+
+using namespace com::sun::star;
+
+
+static rtl::OUString    g_usret(RTL_CONSTASCII_USTRINGPARAM("\n"));
+static rtl::OUString    g_ustab(RTL_CONSTASCII_USTRINGPARAM("\t"));
+static rtl::OUString    g_comment;
+static uno::Environment g_env;
+static bool             g_check = 0;
+
+extern "C" { static void s_callee(rtl_uString * pMethod_name)
+{
+    if (g_check)
+    {
+        g_comment += g_ustab;
+        g_comment += g_ustab;
+        g_comment += rtl::OUString(pMethod_name);
+
+        rtl::OUString reason;
+        int valid = g_env.isValid(&reason);
+
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("["));
+        g_comment += rtl::OUString::valueOf((sal_Int32)valid);
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(","));
+        g_comment += reason;
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("]"));
+
+        if (!valid)
+            g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" - FAILURE"));
+
+        g_comment += g_usret;
+    }
+}}
+
+
+static rtl::OUString s_test_registerInterface(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_registerInterface"));
+    g_comment += g_usret;
+
+    rtl::OUString id(RTL_CONSTASCII_USTRINGPARAM("blabla"));
+
+    typelib_TypeDescriptionReference * type_XInterface =
+        * typelib_static_type_getByTypeClass( typelib_TypeClass_INTERFACE );
+
+    typelib_TypeDescription * pRet = NULL;
+    typelib_typedescriptionreference_getDescription(&pRet, type_XInterface);
+
+    void * pObject = createObject(envDcp, s_callee);
+    g_check = 1;
+    g_env.get()->pExtEnv->registerInterface(g_env.get()->pExtEnv,
+                                          &pObject,
+                                          id.pData,
+                                          (struct _typelib_InterfaceTypeDescription *)pRet);
+    g_check = 0;
+
+    g_env.get()->pExtEnv->revokeInterface(g_env.get()->pExtEnv, pObject);
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+extern "C" { static void s_freeFunc(struct _uno_ExtEnvironment * /*pEnv*/, void * /*pProxy*/ )
+{
+    if (g_check)
+    {
+        g_comment += g_ustab;
+        g_comment += g_ustab;
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("s_freeFunc"));
+
+        rtl::OUString reason;
+        int valid = g_env.isValid(&reason);
+
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("["));
+        g_comment += rtl::OUString::valueOf((sal_Int32)valid);
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(","));
+        g_comment += reason;
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("]"));
+
+        if (!valid)
+            g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" - FAILURE"));
+
+        g_comment += g_usret;
+    }
+}}
+
+static rtl::OUString s_test_registerProxyInterface(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_registerProxyInterface"));
+    g_comment += g_usret;
+
+    rtl::OUString id(RTL_CONSTASCII_USTRINGPARAM("blabla"));
+
+    typelib_TypeDescriptionReference * type_XInterface =
+        * typelib_static_type_getByTypeClass( typelib_TypeClass_INTERFACE );
+
+    typelib_TypeDescription * pRet = NULL;
+    typelib_typedescriptionreference_getDescription(&pRet, type_XInterface);
+
+    void * pObject = createObject(envDcp, s_callee);
+    g_check = 1;
+    g_env.get()->pExtEnv->registerProxyInterface(g_env.get()->pExtEnv,
+                                               &pObject,
+                                               s_freeFunc,
+                                               id.pData,
+                                               (typelib_InterfaceTypeDescription *)pRet);
+    g_check = 0;
+
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+    g_check = 1;
+    g_env.get()->pExtEnv->revokeInterface(g_env.get()->pExtEnv, pObject);
+    g_check = 0;
+
+    g_env.clear();
+
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_revokeInterface(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_revokeInterface"));
+    g_comment += g_usret;
+
+    rtl::OUString id(RTL_CONSTASCII_USTRINGPARAM("blabla"));
+
+    typelib_TypeDescriptionReference * type_XInterface =
+        * typelib_static_type_getByTypeClass( typelib_TypeClass_INTERFACE );
+
+    typelib_TypeDescription * pRet = NULL;
+    typelib_typedescriptionreference_getDescription(&pRet, type_XInterface);
+
+    void * pObject = createObject(envDcp, s_callee);
+    g_env.get()->pExtEnv->registerInterface(g_env.get()->pExtEnv,
+                                          &pObject,
+                                          id.pData,
+                                          (struct _typelib_InterfaceTypeDescription *)pRet);
+
+    g_check = 1;
+    g_env.get()->pExtEnv->revokeInterface(g_env.get()->pExtEnv, pObject);
+    g_check = 0;
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_getObjectIdentifier(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_getObjectIdentifier"));
+    g_comment += g_usret;
+
+    rtl::OUString oId;
+    void * pObject = createObject(envDcp, s_callee);
+    g_check = 1;
+    g_env.get()->pExtEnv->getObjectIdentifier(g_env.get()->pExtEnv, &oId.pData, pObject);
+    g_check = 0;
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_getRegisteredInterface(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_getRegisteredInterface"));
+    g_comment += g_usret;
+
+    rtl::OUString id(RTL_CONSTASCII_USTRINGPARAM("blabla"));
+
+
+    typelib_TypeDescriptionReference * type_XInterface =
+        * typelib_static_type_getByTypeClass( typelib_TypeClass_INTERFACE );
+
+    typelib_TypeDescription * pRet = NULL;
+    typelib_typedescriptionreference_getDescription(&pRet, type_XInterface);
+
+    void * pObject = createObject(envDcp, s_callee);
+    g_env.get()->pExtEnv->registerInterface(g_env.get()->pExtEnv,
+                                            &pObject,
+                                            id.pData,
+                                            (typelib_InterfaceTypeDescription *)pRet);
+
+
+    g_check = 1;
+    g_env.get()->pExtEnv->getRegisteredInterface(g_env.get()->pExtEnv, &pObject, id.pData,
+                                                 (typelib_InterfaceTypeDescription *)pRet);
+    g_check = 0;
+
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+    g_env.get()->pExtEnv->revokeInterface(g_env.get()->pExtEnv, pObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_getRegisteredInterfaces(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_getRegisteredInterfaces"));
+    g_comment += g_usret;
+
+    rtl::OUString id(RTL_CONSTASCII_USTRINGPARAM("blabla"));
+
+
+    typelib_TypeDescriptionReference * type_XInterface =
+        * typelib_static_type_getByTypeClass( typelib_TypeClass_INTERFACE );
+
+    typelib_TypeDescription * pRet = NULL;
+    typelib_typedescriptionreference_getDescription(&pRet, type_XInterface);
+
+    void * pObject = createObject(envDcp, s_callee);
+    g_env.get()->pExtEnv->registerInterface(g_env.get()->pExtEnv,
+                                            &pObject,
+                                            id.pData,
+                                            (typelib_InterfaceTypeDescription *)pRet);
+
+    g_check = 1;
+    void ** ppObject;
+    sal_Int32 nCount;
+    g_env.get()->pExtEnv->getRegisteredInterfaces(g_env.get()->pExtEnv, &ppObject, &nCount, rtl_allocateMemory);
+    g_check = 0;
+
+
+    if (nCount != 1)
+    {
+        g_comment += g_ustab;
+        g_comment += g_ustab;
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("more than one object registered -> FAILURE"));
+        g_comment += g_usret;
+    }
+
+    if (*ppObject != pObject)
+    {
+        g_comment += g_ustab;
+        g_comment += g_ustab;
+        g_comment += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("returned object is not the registerd one -> FAILURE"));
+        g_comment += g_usret;
+    }
+
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, *ppObject);
+
+    g_env.get()->pExtEnv->revokeInterface(g_env.get()->pExtEnv, pObject);
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+
+    rtl_freeMemory(ppObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_computeObjectIdentifier(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_computeObjectIdentifier"));
+    g_comment += g_usret;
+
+    rtl::OUString oId;
+    void * pObject = createObject(envDcp, s_callee);
+    g_check = 1;
+    g_env.get()->pExtEnv->computeObjectIdentifier(g_env.get()->pExtEnv, &oId.pData, pObject);
+    g_check = 0;
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_acquire(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_acquire"));
+    g_comment += g_usret;
+    void * pObject = createObject(envDcp, s_callee);
+
+    g_check = 1;
+    g_env.get()->pExtEnv->acquireInterface(g_env.get()->pExtEnv, pObject);
+    g_check = 0;
+
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+    g_env.clear();
+
+    return g_comment;
+}
+
+static rtl::OUString s_test_release(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    g_comment = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\ts_test_release"));
+    g_comment += g_usret;
+    void * pObject = createObject(envDcp, s_callee);
+
+    g_check = 1;
+    g_env.get()->pExtEnv->releaseInterface(g_env.get()->pExtEnv, pObject);
+    g_check = 0;
+
+    g_env.clear();
+
+    return g_comment;
+}
+
+
+rtl::OUString purpenv_test(rtl::OUString const & envDcp)
+{
+    g_env = uno::Environment(envDcp);
+
+    rtl::OUString result;
+    result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("purpenv_test"));
+    result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\n"));
+
+    result += s_test_registerInterface(envDcp);
+    result += g_usret;
+
+    result += s_test_registerProxyInterface(envDcp);
+    result += g_usret;
+
+    result += s_test_revokeInterface(envDcp);
+    result += g_usret;
+
+    result += s_test_getObjectIdentifier(envDcp);
+    result += g_usret;
+
+    result += s_test_getRegisteredInterface(envDcp);
+    result += g_usret;
+
+    result += s_test_getRegisteredInterfaces(envDcp);
+    result += g_usret;
+
+    result += s_test_computeObjectIdentifier(envDcp);
+    result += g_usret;
+
+    result += s_test_acquire(envDcp);
+    result += g_usret;
+
+    result += s_test_release(envDcp);
+    result += g_usret;
+
+    return result;
+}