stoc/test/testregistry.cxx

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