stoc/test/testregistry.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: testregistry.cxx,v $
  10  * $Revision: 1.21.16.2 $
  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 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_stoc.hxx"
  33
  34 #include <stdio.h>
  35 #include <stdlib.h>
  36 #include <string.h>
  37
  38 #include <sal/main.h>
  39 #include <osl/module.hxx>
  40 #include <osl/diagnose.h>
  41 #include <osl/process.h>
  42 #include <registry/registry.hxx>
  43
  44
  45 #include <com/sun/star/registry/XSimpleRegistry.hpp>
  46 #include <com/sun/star/lang/XServiceInfo.hpp>
  47 #include <com/sun/star/lang/XSingleServiceFactory.hpp>
  48 #include <com/sun/star/beans/XPropertySet.hpp>
  49 #include <cppuhelper/factory.hxx>
  50 #include <cppuhelper/bootstrap.hxx>
  51 #include <cppuhelper/servicefactory.hxx>
  52
  53 #include <com/sun/star/lang/XComponent.hpp>
  54
  55 #if defined ( UNX )
  56 #include <limits.h>
  57 #define _MAX_PATH PATH_MAX
  58 #endif
  59
  60 using namespace com::sun::star;
  61 using namespace com::sun::star::uno;
  62 using namespace com::sun::star::registry;
  63 using namespace com::sun::star::lang;
  64 using namespace com::sun::star::beans;
  65 using namespace rtl;
  66 using namespace osl;
  67
  68 #if OSL_DEBUG_LEVEL > 0
  69 #define TEST_ENSHURE(c, m)   OSL_ENSURE(c, m)
  70 #else
  71 #define TEST_ENSHURE(c, m)   OSL_VERIFY(c)
  72 #endif
  73
  74 namespace stoc_impreg
  75 {
  76 void SAL_CALL mergeKeys(
  77     Reference< registry::XRegistryKey > const & xDest,
  78     Reference< registry::XRegistryKey > const & xSource )
  79     SAL_THROW( (registry::InvalidRegistryException, registry::MergeConflictException) );
  80 }
  81 static void mergeKeys(
  82     Reference< registry::XSimpleRegistry > const & xDest,
  83     OUString const & rBaseNode,
  84     OUString const & rURL )
  85     SAL_THROW( (registry::InvalidRegistryException, registry::MergeConflictException) )
  86 {
  87     Reference< registry::XRegistryKey > xDestRoot( xDest->getRootKey() );
  88     Reference< registry::XRegistryKey > xDestKey;
  89     if (rBaseNode.getLength())
  90     {
  91         xDestKey = xDestRoot->createKey( rBaseNode );
  92         xDestRoot->closeKey();
  93     }
  94     else
  95     {
  96         xDestKey = xDestRoot;
  97     }
  98     Reference< registry::XSimpleRegistry > xSimReg( ::cppu::createSimpleRegistry() );
  99     xSimReg->open( rURL, sal_True, sal_False );
 100     OSL_ASSERT( xSimReg->isValid() );
 101     Reference< registry::XRegistryKey > xSourceKey( xSimReg->getRootKey() );
 102     ::stoc_impreg::mergeKeys( xDestKey, xSourceKey );
 103     xSourceKey->closeKey();
 104     xSimReg->close();
 105     xDestKey->closeKey();
 106 }
 107
 108
 109 OString userRegEnv("STAR_USER_REGISTRY=");
 110
 111 OUString getExePath()
 112 {
 113     OUString            exe;
 114     OSL_VERIFY( osl_getExecutableFile( &exe.pData ) == osl_Process_E_None);
 115 #if defined(WIN32) || defined(__OS2__) || defined(WNT)
 116     exe = exe.copy(0, exe.getLength() - 16);
 117 #else
 118     exe = exe.copy(0, exe.getLength() - 12);
 119 #endif
 120     return exe;
 121 }
 122
 123 void setStarUserRegistry()
 124 {
 125     Registry *myRegistry = new Registry();
 126
 127     RegistryKey rootKey, rKey, rKey2;
 128
 129     OUString userReg = getExePath();
 130     userReg += OUString::createFromAscii("user.rdb");
 131     if(myRegistry->open(userReg, REG_READWRITE))
 132     {
 133         TEST_ENSHURE(!myRegistry->create(userReg), "setStarUserRegistry error 1");
 134     }
 135
 136     TEST_ENSHURE(!myRegistry->close(), "setStarUserRegistry error 9");
 137     delete myRegistry;
 138
 139     userRegEnv += OUStringToOString(userReg, RTL_TEXTENCODING_ASCII_US);
 140     putenv((char *)userRegEnv.getStr());
 141 }
 142
 143 void setLinkInDefaultRegistry(const OUString& linkName, const OUString& linkTarget)
 144 {
 145     Registry *myRegistry = new Registry();
 146
 147     RegistryKey rootKey;
 148
 149     OUString appReg = getExePath();
 150     appReg += OUString::createFromAscii("stoctest.rdb");
 151
 152     TEST_ENSHURE(!myRegistry->open(appReg, REG_READWRITE), "setLinkInDefaultRegistry error 1");
 153     TEST_ENSHURE(!myRegistry->openRootKey(rootKey), "setLinkInDefaultRegistry error 2");
 154
 155     TEST_ENSHURE(!rootKey.createLink(linkName, linkTarget), "setLinkInDefaultRegistry error 3");
 156
 157     TEST_ENSHURE(!rootKey.closeKey(),  "setLinkInDefaultRegistry error 4");
 158     TEST_ENSHURE(!myRegistry->close(), "setLinkInDefaultRegistry error 5");
 159
 160     delete myRegistry;
 161 }
 162
 163
 164 void test_SimpleRegistry(
 165     OUString const & testreg,
 166     OUString const & testreg2,
 167     bool bMergeDifferently = true )
 168 {
 169     Reference<XInterface> xIFace;
 170     Module module;
 171
 172     OUString dllName(
 173         RTL_CONSTASCII_USTRINGPARAM("simplereg.uno" SAL_DLLEXTENSION) );
 174
 175     if (module.load(dllName))
 176     {
 177         // try to get provider from module
 178         component_getFactoryFunc pCompFactoryFunc = (component_getFactoryFunc)
 179             module.getFunctionSymbol( OUString::createFromAscii(COMPONENT_GETFACTORY) );
 180
 181         if (pCompFactoryFunc)
 182         {
 183             XSingleServiceFactory * pRet = (XSingleServiceFactory *)
 184                 (*pCompFactoryFunc)(
 185                     "com.sun.star.comp.stoc.SimpleRegistry", 0, 0 );
 186             if (pRet)
 187             {
 188                 xIFace = pRet;
 189                 pRet->release();
 190             }
 191         }
 192     }
 193
 194     TEST_ENSHURE( xIFace.is(), "test_SimpleRegistry error1");
 195
 196     Reference<XSingleServiceFactory> xFactory( Reference<XSingleServiceFactory>::query(xIFace) );
 197      xIFace.clear();
 198
 199     TEST_ENSHURE( xFactory.is(), "testloader error11");
 200
 201     Reference<XInterface> xIFace2 = xFactory->createInstance();
 202     xFactory.clear();
 203
 204     TEST_ENSHURE( xIFace2.is(), "testloader error12");
 205
 206     Reference<XServiceInfo> xServInfo( Reference<XServiceInfo>::query(xIFace2) );
 207
 208     TEST_ENSHURE( xServInfo.is(), "test_SimpleRegistry error2");
 209
 210     TEST_ENSHURE( xServInfo->getImplementationName().equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("com.sun.star.comp.stoc.SimpleRegistry") ), "test_SimpleRegistry error3");
 211     TEST_ENSHURE( xServInfo->supportsService(OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.registry.SimpleRegistry"))), "test_SimpleRegistry error4");
 212     TEST_ENSHURE( xServInfo->getSupportedServiceNames().getLength() == 1, "test_SimpleRegistry error5");
 213     xServInfo.clear();
 214
 215     Reference<XSimpleRegistry> xReg( Reference<XSimpleRegistry>::query(xIFace2) );
 216     xIFace2.clear();
 217
 218     TEST_ENSHURE( xReg.is(), "test_SimpleRegistry error6");
 219
 220     try
 221     {
 222         xReg->open(testreg, sal_False, sal_True);
 223
 224         TEST_ENSHURE( xReg->isValid() != sal_False, "test_SimpleRegistry error 7" );
 225         TEST_ENSHURE( xReg->isReadOnly() == sal_False, "test_SimpleRegistry error 8" );
 226
 227         Reference<XRegistryKey> xRootKey(xReg->getRootKey());
 228         TEST_ENSHURE( xRootKey->isValid(), "test_SimpleRegistry error 9" );
 229
 230         Reference<XRegistryKey> xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FirstKey") ));
 231
 232         Reference<XRegistryKey> xSubKey = xKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FirstSubKey") ));
 233         xSubKey->setLongValue(123456789);
 234
 235         xSubKey = xKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SecondSubKey") ));
 236         xSubKey->setAsciiValue(OUString( RTL_CONSTASCII_USTRINGPARAM("ich bin ein acsii value") ));
 237
 238         xSubKey = xKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("ThirdSubKey") ));
 239         xSubKey->setStringValue(OUString( RTL_CONSTASCII_USTRINGPARAM("ich bin ein unicode value") ));
 240
 241         xSubKey = xKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FourthSubKey") ));
 242         Sequence<sal_Int8> aSeq((sal_Int8*)"ich bin ein binary value", 25);
 243         xSubKey->setBinaryValue(aSeq);
 244
 245         Sequence<OUString> seqNames = xKey->getKeyNames();
 246         Sequence< Reference<XRegistryKey> > seqKeys = xKey->openKeys();
 247
 248         OUString name;
 249         for (sal_Int32 i=0; i < seqNames.getLength(); i++)
 250         {
 251             name = seqNames.getArray()[i];
 252             xSubKey = seqKeys.getArray()[i];
 253
 254             if (name == OUString( RTL_CONSTASCII_USTRINGPARAM("/FirstKey/FirstSubKey") ))
 255             {
 256                 TEST_ENSHURE( xSubKey->getLongValue() == 123456789,
 257                             "test_SimpleRegistry error 10" );
 258             } else
 259             if (name == OUString( RTL_CONSTASCII_USTRINGPARAM("/FirstKey/SecondSubKey") ))
 260             {
 261                 TEST_ENSHURE( xSubKey->getAsciiValue() == OUString( RTL_CONSTASCII_USTRINGPARAM("ich bin ein acsii value") ),
 262                             "test_SimpleRegistry error 11" );
 263             } else
 264             if (name == OUString( RTL_CONSTASCII_USTRINGPARAM("/FirstKey/ThirdSubKey") ))
 265             {
 266                 TEST_ENSHURE( xSubKey->getStringValue() == OUString( RTL_CONSTASCII_USTRINGPARAM("ich bin ein unicode value") ),
 267                             "test_SimpleRegistry error 12" );
 268             } else
 269             if (name == OUString( RTL_CONSTASCII_USTRINGPARAM("/FirstKey/FourthSubKey") ))
 270             {
 271                 Sequence<sal_Int8> seqByte = xSubKey->getBinaryValue();
 272                 TEST_ENSHURE(!strcmp(((const char*)seqByte.getArray()), "ich bin ein binary value"),
 273                             "test_SimpleRegistry error 13" );
 274             }
 275
 276             seqKeys.getArray()[i]->closeKey();
 277         }
 278
 279         xKey->closeKey();
 280
 281         xRootKey->deleteKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FirstKey") ));
 282         xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SecondFirstKey" )));
 283
 284         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SecondKey") ));
 285         sal_Int32 pLongs[3] = {123, 456, 789};
 286         Sequence<sal_Int32> seqLongs(pLongs, 3);
 287         xKey->setLongListValue(seqLongs);
 288
 289         Sequence<sal_Int32> seqLongs2;
 290         seqLongs2 = xKey->getLongListValue();
 291         TEST_ENSHURE( seqLongs.getLength() == 3, "test_SimpleRegistry error 14" );
 292         TEST_ENSHURE( seqLongs.getArray()[0] == 123, "test_SimpleRegistry error 15" );
 293         TEST_ENSHURE( seqLongs.getArray()[1] == 456, "test_SimpleRegistry error 16" );
 294         TEST_ENSHURE( seqLongs.getArray()[2] == 789, "test_SimpleRegistry error 17" );
 295
 296
 297         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("ThirdKey") ));
 298         OUString pAscii[3];
 299         pAscii[0] = OUString( RTL_CONSTASCII_USTRINGPARAM("Hallo") );
 300         pAscii[1] = OUString( RTL_CONSTASCII_USTRINGPARAM("jetzt komm") );
 301         pAscii[2] = OUString( RTL_CONSTASCII_USTRINGPARAM("ich") );
 302
 303         Sequence<OUString> seqAscii(pAscii, 3);
 304         xKey->setAsciiListValue(seqAscii);
 305
 306         Sequence<OUString> seqAscii2;
 307         seqAscii2 = xKey->getAsciiListValue();
 308         TEST_ENSHURE( seqAscii2.getLength() == 3, "test_SimpleRegistry error 18" );
 309         TEST_ENSHURE( seqAscii2.getArray()[0] == OUString( RTL_CONSTASCII_USTRINGPARAM("Hallo") ), "test_SimpleRegistry error 19");
 310         TEST_ENSHURE( seqAscii2.getArray()[1] == OUString( RTL_CONSTASCII_USTRINGPARAM("jetzt komm") ), "test_SimpleRegistry error 20");
 311         TEST_ENSHURE( seqAscii2.getArray()[2] == OUString( RTL_CONSTASCII_USTRINGPARAM("ich") ), "test_SimpleRegistry error 21");
 312
 313         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FourthKey") ));
 314         OUString pUnicode[3];
 315         pUnicode[0] = OUString( RTL_CONSTASCII_USTRINGPARAM("Hallo") );
 316         pUnicode[1] = OUString( RTL_CONSTASCII_USTRINGPARAM("jetzt komm") );
 317         pUnicode[2] = OUString( RTL_CONSTASCII_USTRINGPARAM("ich als unicode") );
 318
 319         Sequence<OUString> seqUnicode(pUnicode, 3);
 320         xKey->setStringListValue(seqUnicode);
 321
 322         Sequence<OUString> seqUnicode2;
 323         seqUnicode2 = xKey->getStringListValue();
 324         TEST_ENSHURE( seqUnicode2.getLength() == 3, "test_SimpleRegistry error 22" );
 325         TEST_ENSHURE( seqUnicode2.getArray()[0] == OUString( RTL_CONSTASCII_USTRINGPARAM("Hallo") ), "test_SimpleRegistry error 23");
 326         TEST_ENSHURE( seqUnicode2.getArray()[1] == OUString( RTL_CONSTASCII_USTRINGPARAM("jetzt komm") ), "test_SimpleRegistry error 24");
 327         TEST_ENSHURE( seqUnicode2.getArray()[2] == OUString( RTL_CONSTASCII_USTRINGPARAM("ich als unicode") ), "test_SimpleRegistry error 25");
 328
 329
 330         xReg->open(testreg2, sal_False, sal_True);
 331         TEST_ENSHURE( xReg->isValid() != sal_False, "test_SimpleRegistry error 25" );
 332         xRootKey = xReg->getRootKey();
 333         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("ThirdKey/FirstSubKey/WithSubSubKey") ));
 334         xKey->closeKey();
 335         TEST_ENSHURE(
 336             xRootKey->createLink(
 337                 OUString( RTL_CONSTASCII_USTRINGPARAM("LinkTest") ),
 338                 OUString( RTL_CONSTASCII_USTRINGPARAM("/ThirdKey/FirstSubKey/WithSubSubKey") )),
 339             "test_SimpleRegistry error 1212" );
 340         xRootKey->closeKey();
 341         xReg->close();
 342
 343         xReg->open(testreg, sal_False, sal_False);
 344         TEST_ENSHURE( xReg->isValid() != sal_False, "test_SimpleRegistry error 26" );
 345
 346         if (bMergeDifferently)
 347         {
 348             mergeKeys(
 349                 xReg,
 350                 OUString(),
 351                 testreg2 );
 352         }
 353         else
 354         {
 355             xReg->mergeKey(OUString(), testreg2);
 356         }
 357
 358         xRootKey = xReg->getRootKey();
 359         xKey = xRootKey->openKey( OUString( RTL_CONSTASCII_USTRINGPARAM("LinkTest") ) );
 360         TEST_ENSHURE(
 361             xKey.is() && xKey->isValid() &&
 362             xKey->getKeyName().equalsAsciiL( RTL_CONSTASCII_STRINGPARAM("/ThirdKey/FirstSubKey/WithSubSubKey") ),
 363             "test_SimpleRegistry error 1213" );
 364         xKey->closeKey();
 365         TEST_ENSHURE(
 366             xRootKey->getKeyType( OUString( RTL_CONSTASCII_USTRINGPARAM("LinkTest") ) ) ==
 367             registry::RegistryKeyType_LINK,
 368             "test_SimpleRegistry error 1214" );
 369
 370         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FirstKey/SecondSubKey") ));
 371         TEST_ENSHURE( !xKey.is(), "test_SimpleRegistry error 27" );
 372
 373         // Test Links
 374         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("FifthKey") ));
 375         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("MyFirstLink") ),
 376                          OUString( RTL_CONSTASCII_USTRINGPARAM("/ThirdKey/FirstSubKey") ));
 377
 378         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/FifthKey/MyFirstLink") ));
 379         TEST_ENSHURE( xKey->isValid(), "test_SimpleRegistry error 27" );
 380         TEST_ENSHURE( xKey->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/ThirdKey/FirstSubKey") ), "test_SimpleRegistry error 28" );
 381
 382         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink") ),
 383                          OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ));
 384
 385         TEST_ENSHURE( xKey->getLinkTarget(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink") ))
 386                      == OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ), "test_SimpleRegistry error 29" );
 387
 388         try
 389         {
 390             TEST_ENSHURE( xKey->getResolvedName(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink/BlaBlaBla") ))
 391                          == OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink/BlaBlaBla") ), "test_SimpleRegistry error 30" );
 392         }
 393         catch(InvalidRegistryException&)
 394         {
 395         }
 396
 397         xRootKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ),
 398                              OUString( RTL_CONSTASCII_USTRINGPARAM("/SixthKey/MyThirdLink") ));
 399         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SixthKey") ));
 400         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("MyThirdLink") ),
 401                          OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ));
 402
 403         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/SixthKey/SixthSubKey") ));
 404
 405         try
 406         {
 407             xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ));
 408         }
 409         catch(InvalidRegistryException&)
 410         {
 411         }
 412
 413         TEST_ENSHURE( xRootKey->getLinkTarget(OUString( RTL_CONSTASCII_USTRINGPARAM("/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ))
 414                      == OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ), "test_SimpleRegistry error 31" );
 415
 416         xRootKey->deleteLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ));
 417
 418         xRootKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ),
 419                              OUString( RTL_CONSTASCII_USTRINGPARAM("/ThirdKey/FirstSubKey/WithSubSubKey") ));
 420
 421         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SixthKey") ));
 422         seqNames = xKey->getKeyNames();
 423         seqKeys = xKey->openKeys();
 424
 425         TEST_ENSHURE( seqNames.getArray()[0] == OUString( RTL_CONSTASCII_USTRINGPARAM("/SixthKey/SixthSubKey") ),
 426                       "test_SimpleRegistry error 32" );
 427         TEST_ENSHURE( seqNames.getArray()[1] == OUString( RTL_CONSTASCII_USTRINGPARAM("/SixthKey/MyThirdLink") ),
 428                       "test_SimpleRegistry error 33" );
 429
 430         TEST_ENSHURE( seqKeys.getArray()[0]->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/SixthKey/SixthSubKey") ),
 431                       "test_SimpleRegistry error 34" );
 432         TEST_ENSHURE( seqKeys.getArray()[1]->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/ThirdKey/FirstSubKey/WithSubSubKey") ),
 433                       "test_SimpleRegistry error 35" );
 434
 435         xRootKey->deleteLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/FourthKey/MySecondLink") ));
 436         xRootKey->closeKey();
 437     }
 438     catch(InvalidRegistryException&)
 439     {
 440         TEST_ENSHURE(0, "exception InvalidRegistryExcption raised while doing test_SimpleRegistry");
 441     }
 442     catch(InvalidValueException&)
 443     {
 444         TEST_ENSHURE(0, "exception InvalidValueExcption raised while doing test_SimpleRegistry()");
 445     }
 446
 447     xReg.clear();
 448
 449     printf("Test SimpleRegistry, OK!\n");
 450 }
 451
 452
 453 void test_DefaultRegistry(
 454     OUString const & testreg,
 455     OUString const & testreg2,
 456     bool bMergeDifferently = false )
 457 {
 458     // Test NestedRegistry
 459     OUString exePath( getExePath() );
 460     OUString userRdb(exePath);
 461     OUString applicatRdb(exePath);
 462
 463     userRdb += OUString::createFromAscii("user.rdb");
 464     applicatRdb += OUString::createFromAscii("stoctest.rdb");
 465
 466     Reference < XMultiServiceFactory > rSMgr  = ::cppu::createRegistryServiceFactory( userRdb, applicatRdb, sal_False, OUString());
 467                                                                                       //OUString::createFromAscii("//./e:/src596/stoc/wntmsci3/bin") );
 468
 469     Reference< XPropertySet > xPropSet( rSMgr, UNO_QUERY);
 470     TEST_ENSHURE( xPropSet.is(), "test_DefaultRegistry error0");
 471
 472     Any aPropertyAny( xPropSet->getPropertyValue( OUString(RTL_CONSTASCII_USTRINGPARAM("Registry")) ) );
 473     TEST_ENSHURE( aPropertyAny.hasValue(), "test_DefaultRegistry error1");
 474
 475     Reference<XSimpleRegistry> xReg;
 476     aPropertyAny >>= xReg;
 477     TEST_ENSHURE( xReg.is(), "test_DefaultRegistry error1a");
 478
 479     Reference<XServiceInfo> xServInfo( Reference<XServiceInfo>::query(xReg) );
 480
 481     TEST_ENSHURE( xServInfo.is(), "test_DefaultRegistry error2");
 482
 483     TEST_ENSHURE( xServInfo->getImplementationName() == OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.stoc.NestedRegistry") ), "test_DefualtRegistry error3");
 484     TEST_ENSHURE( xServInfo->supportsService(OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.registry.NestedRegistry") )), "test_DefaultRegistry error4");
 485     TEST_ENSHURE( xServInfo->getSupportedServiceNames().getLength() == 1, "test_DefaultRegistry error5");
 486     xServInfo.clear();
 487
 488     TEST_ENSHURE( xReg.is(), "test_DefaultRegistry error6");
 489
 490     try
 491     {
 492         Reference<XRegistryKey> xRootKey(xReg->getRootKey());
 493
 494         Reference<XRegistryKey> xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/UCR/com/sun/star/registry/XSimpleRegistry") ));
 495
 496         TEST_ENSHURE( xKey->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/UCR/com/sun/star/registry/XSimpleRegistry") ),
 497                      "test_DefaultRegistry error 7" );
 498
 499         if (bMergeDifferently)
 500         {
 501             mergeKeys(
 502                 xReg,
 503                 OUString( RTL_CONSTASCII_USTRINGPARAM("Test") ),
 504                 testreg );
 505         }
 506         else
 507         {
 508             xReg->mergeKey(OUString( RTL_CONSTASCII_USTRINGPARAM("Test") ), testreg );
 509         }
 510
 511         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("Test/ThirdKey/FirstSubKey/WithSubSubKey") ));
 512         if (xKey.is())
 513             xKey->setLongValue(123456789);
 514
 515         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("Test/ThirdKey/FirstSubKey") ));
 516         if (xKey.is())
 517         {
 518             xKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("SecondSubSubKey") ));
 519
 520             Sequence<OUString> seqNames = xKey->getKeyNames();
 521
 522             TEST_ENSHURE( seqNames.getLength() == 2, "test_DefaultRegistry error 8" );
 523         }
 524
 525         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/ThirdKey") ));
 526         if (xKey.is())
 527         {
 528             RegistryValueType valueType = xKey->getValueType();
 529             TEST_ENSHURE( valueType == RegistryValueType_ASCIILIST, "test_DefaultRegistry error 9" );
 530
 531             Sequence<OUString> seqValue = xKey->getAsciiListValue();
 532
 533             TEST_ENSHURE( seqValue.getLength() == 3, "test_DefaultRegistry error 10" );
 534             TEST_ENSHURE( seqValue.getArray()[0] == OUString( RTL_CONSTASCII_USTRINGPARAM("Hallo") ),
 535                           "test_DefaultRegistry error 11" );
 536             TEST_ENSHURE( seqValue.getArray()[1] == OUString( RTL_CONSTASCII_USTRINGPARAM("jetzt komm") ),
 537                           "test_DefaultRegistry error 12" );
 538             TEST_ENSHURE( seqValue.getArray()[2] == OUString( RTL_CONSTASCII_USTRINGPARAM("ich") ),
 539                           "test_DefaultRegistry error 13" );
 540
 541             Sequence<sal_Int32> seqLong(3);
 542             seqLong.getArray()[0] = 1234;
 543             seqLong.getArray()[1] = 4567;
 544             seqLong.getArray()[2] = 7890;
 545
 546             xKey->setLongListValue(seqLong);
 547
 548             Sequence<sal_Int32> seqLongValue = xKey->getLongListValue();
 549
 550             TEST_ENSHURE( seqLongValue.getLength() == 3, "test_DefaultRegistry error 14" );
 551             TEST_ENSHURE( seqLongValue.getArray()[0] == 1234, "test_DefaultRegistry error 15" );
 552             TEST_ENSHURE( seqLongValue.getArray()[1] == 4567, "test_DefaultRegistry error 16" );
 553             TEST_ENSHURE( seqLongValue.getArray()[2] == 7890, "test_DefaultRegistry error 17" );
 554         }
 555
 556         // Test Links
 557         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FifthKey") ));
 558         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("MyFirstLink") ),
 559                          OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/ThirdKey/FirstSubKey") ));
 560
 561         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FifthKey/MyFirstLink") ));
 562         TEST_ENSHURE( xKey->isValid(), "test_DefaultRegistry error 18" );
 563         TEST_ENSHURE( xKey->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/ThirdKey/FirstSubKey") ),
 564                       "test_DefaultRegistry error 19" );
 565
 566         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink") ),
 567                          OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink") ));
 568
 569         TEST_ENSHURE( xKey->getLinkTarget(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink") ))
 570                      == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink") ),
 571                       "test_DefaultRegistry error 20" );
 572
 573         try
 574         {
 575             TEST_ENSHURE( xKey->getResolvedName(OUString( RTL_CONSTASCII_USTRINGPARAM("/WithSubSubKey/MyFourthLink/BlaBlaBla") ))
 576                           == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink/BlaBlaBla") ),
 577                           "test_DefaultRegistry error 21" );
 578         }
 579         catch(InvalidRegistryException&)
 580         {
 581         }
 582
 583         xRootKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink") ),
 584                              OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/SixthKey/MyThirdLink") ));
 585         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/SixthKey") ));
 586         xKey->createLink(OUString( RTL_CONSTASCII_USTRINGPARAM("MyThirdLink") ),
 587                          OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink") ));
 588
 589         try
 590         {
 591             xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ));
 592         }
 593         catch(InvalidRegistryException&)
 594         {
 595             printf("test InvalidRegistryExcption OK!\n");
 596         }
 597
 598         TEST_ENSHURE( xRootKey->getLinkTarget(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ))
 599                      == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FourthKey/MySecondLink") ),
 600                       "test_DefaultRegistry error 22" );
 601
 602         xRootKey->deleteLink(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/FifthKey/MyFirstLink/WithSubSubKey/MyFourthLink") ));
 603
 604         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/DefaultLink/SecondSubSubKey") ));
 605         if (xKey.is())
 606         {
 607             TEST_ENSHURE( xKey->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/ThirdKey/FirstSubKey/SecondSubSubKey") ), "test_DefaultRegistry error 23" );
 608         }
 609         xKey = xRootKey->createKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/DefaultLink/ThirdSubSubKey") ));
 610         if (xKey.is())
 611         {
 612             TEST_ENSHURE( xKey->getKeyName() == OUString( RTL_CONSTASCII_USTRINGPARAM("/Test/ThirdKey/FirstSubKey/ThirdSubSubKey") ),
 613                           "test_DefaultRegistry error 24" );
 614         }
 615
 616         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("Test") ));
 617         TEST_ENSHURE( xKey->isValid(), "test_DefaultRegistry error 25" );
 618
 619         xRootKey->deleteKey(OUString( RTL_CONSTASCII_USTRINGPARAM("Test") ));
 620
 621         if (bMergeDifferently)
 622         {
 623             mergeKeys(
 624                 xReg,
 625                 OUString( RTL_CONSTASCII_USTRINGPARAM("AllFromTestreg2") ),
 626                 testreg2);
 627         }
 628         else
 629         {
 630             xReg->mergeKey(OUString( RTL_CONSTASCII_USTRINGPARAM("AllFromTestreg2") ),
 631                            testreg2);
 632         }
 633
 634         xKey = xRootKey->openKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/AllFromTestreg2/ThirdKey/FirstSubKey") ));
 635         if (xKey.is())
 636         {
 637             xRootKey->deleteKey(OUString( RTL_CONSTASCII_USTRINGPARAM("/AllFromTestreg2") ));
 638         }
 639
 640     }
 641     catch(InvalidRegistryException&)
 642     {
 643         TEST_ENSHURE(0, "exception InvalidRegistryExcption raised while doing test_DefaultRegistry");
 644     }
 645     catch(InvalidValueException&)
 646     {
 647         TEST_ENSHURE(0, "exception InvalidValueExcption raised while doing test_DefaultRegistry()");
 648     }
 649     try
 650     {
 651         xReg->close();
 652     }
 653     catch(InvalidRegistryException& e)
 654     {
 655         (void)e;
 656         TEST_ENSHURE(0, OUStringToOString(e.Message,RTL_TEXTENCODING_ASCII_US).getStr());
 657     }
 658
 659
 660     xReg.clear();
 661
 662     // shutdown
 663     Reference< ::com::sun::star::lang::XComponent > xComp( rSMgr, UNO_QUERY );
 664     OSL_ENSURE( xComp.is(), "### serivce manager has to implement XComponent!" );
 665     xComp->dispose();
 666
 667     printf("Test DefaultRegistry, OK!\n");
 668 }
 669
 670
 671 SAL_IMPLEMENT_MAIN()
 672 {
 673 //      setStarUserRegistry();
 674      setLinkInDefaultRegistry(OUString::createFromAscii("/Test/DefaultLink"),
 675                               OUString::createFromAscii("/Test/FifthKey/MyFirstLink"));
 676
 677     OUString reg1( RTL_CONSTASCII_USTRINGPARAM("testreg1.rdb") );
 678     OUString reg2( RTL_CONSTASCII_USTRINGPARAM("testreg2.rdb") );
 679     OUString areg1( RTL_CONSTASCII_USTRINGPARAM("atestreg1.rdb") );
 680     OUString areg2( RTL_CONSTASCII_USTRINGPARAM("atestreg2.rdb") );
 681
 682       test_SimpleRegistry( reg1, reg2 );
 683       test_DefaultRegistry( reg1, reg2 );
 684       test_SimpleRegistry( areg1, areg2, true ); // use different merge
 685       test_DefaultRegistry( areg1, areg2, true );
 686
 687     Reference< XSimpleRegistry > xSimReg( ::cppu::createSimpleRegistry() );
 688     xSimReg->open( reg1, sal_False, sal_True );
 689     xSimReg->destroy();
 690     xSimReg->open( reg2, sal_False, sal_True );
 691     xSimReg->destroy();
 692     xSimReg->open( areg1, sal_False, sal_True );
 693     xSimReg->destroy();
 694     xSimReg->open( areg2, sal_False, sal_True );
 695     xSimReg->destroy();
 696     return(0);
 697 }
 698
 699