cppu/test/EnvStack_tester/EnvStack.tester.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: EnvStack.tester.cxx,v $
  10  * $Revision: 1.4 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #include <iostream>
  32
  33 #include "sal/main.h"
  34
  35 #include "uno/lbnames.h"
  36 #include "uno/environment.hxx"
  37 #include "cppu/EnvDcp.hxx"
  38 #include <com/sun/star/uno/Exception.hpp>
  39
  40
  41 #define CPPU_test_EnvStack_tester_IMPL
  42 #include "EnvStack.tester.hxx"
  43
  44
  45 using namespace com::sun::star;
  46
  47
  48 static rtl::OUString s_getCurrentEnvDcp(void)
  49 {
  50     uno::Environment env(uno::Environment::getCurrent());
  51     rtl::OUString env_dcp(env.getTypeName());
  52
  53     return env_dcp;
  54 }
  55
  56 extern "C" { static void s_getCurrentEnvDcp_v(va_list * pParam)
  57 {
  58     rtl_uString ** ppEnvDcp  = va_arg(*pParam, rtl_uString **);
  59
  60     rtl::OUString env_dcp(s_getCurrentEnvDcp());
  61
  62     rtl_uString_assign(ppEnvDcp, env_dcp.pData);
  63 }}
  64
  65 static rtl::OUString s_test__uno_Environment_invoke(rtl::OUString const & src_purpose,
  66                                                     rtl::OUString const & dst_purpose,
  67                                                     rtl::OUString const & ref)
  68 {
  69     rtl::OUString result;
  70     rtl::OUString target_envDcp;
  71
  72     rtl::OUString src_envDcp(RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO));
  73     src_envDcp += src_purpose;
  74
  75     rtl::OUString dst_envDcp(RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO));
  76     dst_envDcp += dst_purpose;
  77
  78     uno::Environment cur_Env(src_envDcp.pData, NULL);
  79     uno_Environment_enter(cur_Env.get());
  80     cur_Env.clear();
  81
  82     uno::Environment dst_Env(dst_envDcp.pData, NULL);
  83     uno_Environment_invoke(dst_Env.get(), s_getCurrentEnvDcp_v, &target_envDcp.pData);
  84     dst_Env.clear();
  85
  86     uno_Environment_enter(NULL);
  87
  88
  89     if (cppu::EnvDcp::getPurpose(target_envDcp).equals(dst_purpose)
  90         && g_commentStack.equals(ref))
  91         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" PASSED\n"));
  92
  93     else
  94     {
  95         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" FAILED -> "));
  96         result += target_envDcp;
  97         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\n"));
  98         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\t\texpected: \""));
  99         result += ref;
 100         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\"\n"));
 101         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\t\tgot:      \""));
 102         result += g_commentStack;
 103         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\"\n"));
 104     }
 105
 106
 107
 108     return result;
 109 }
 110
 111 static rtl::OUString s_test__uno_Environment_invoke_v(va_list param)
 112 {
 113     rtl::OUString const * pSrc_purpose = va_arg(param, rtl::OUString const *);
 114     rtl::OUString const * pDst_purpose = va_arg(param, rtl::OUString const *);
 115     rtl::OUString const * pRef         = va_arg(param, rtl::OUString  const *);
 116
 117
 118     rtl::OUString result;
 119
 120     result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("s_test__uno_Environment_invoke_v"));
 121     result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" - \""));
 122     result += *pSrc_purpose;
 123     result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\" -> \""));
 124     result += *pDst_purpose;
 125     result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\""));
 126
 127     result += s_test__uno_Environment_invoke(*pSrc_purpose, *pDst_purpose, *pRef);
 128
 129     return result;
 130 }
 131
 132 static rtl::OUString s_do_a_test(rtl::OUString (* pTest)(va_list), ...)
 133 {
 134     rtl::OUString result;
 135
 136     va_list param;
 137
 138     va_start(param, pTest);
 139     try {
 140         result += pTest(param);
 141     }
 142     catch (uno::Exception & exception)
 143     {
 144         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" FAILED with exception: "));
 145         result += exception.Message;
 146         result += rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("\n"));
 147     }
 148     va_end(param);
 149
 150     return result;
 151 }
 152
 153 SAL_IMPLEMENT_MAIN_WITH_ARGS(argc, argv)
 154 {
 155     int result = 0;
 156     rtl::OString message;
 157
 158     if (argc >= 4 && argc <= 5)
 159     {
 160         rtl::OUString src_purpose(argv[1], rtl_str_getLength(argv[1]), RTL_TEXTENCODING_ASCII_US);
 161         rtl::OUString dst_purpose(argv[2], rtl_str_getLength(argv[2]), RTL_TEXTENCODING_ASCII_US);
 162         rtl::OUString ref        (argv[3], rtl_str_getLength(argv[3]), RTL_TEXTENCODING_ASCII_US);
 163
 164         if (argc == 5)
 165         {
 166             rtl::OUString test_env(RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO));
 167             test_env += rtl::OUString(argv[4], rtl_str_getLength(argv[4]), RTL_TEXTENCODING_ASCII_US);
 168             g_env = uno::Environment(test_env);
 169         }
 170
 171
 172         message += rtl::OUStringToOString(
 173             s_do_a_test(s_test__uno_Environment_invoke_v, &src_purpose, &dst_purpose, &ref),
 174             RTL_TEXTENCODING_ASCII_US);
 175
 176
 177         if (g_env.is())
 178             g_env.clear();
 179
 180
 181         if (message.indexOf(rtl::OString("FAILED")) == -1)
 182             message += rtl::OString("TESTS PASSED\n");
 183
 184         else
 185         {
 186             message += rtl::OString("TESTS _NOT_ PASSED\n");
 187             result = -1;
 188         }
 189     }
 190     else
 191     {
 192         message = "usage: EnvStack.tester <source purpose>"
 193             " <destination purpose>"
 194             " <reference string>"
 195             " [<reference environment>]\n\n";
 196     }
 197
 198     std::cout << message.getStr();
 199
 200
 201     return result;
 202 }
 203