stoc/test/testcorefl.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 #include <sal/config.h>
  21
  22 #include <sal/log.hxx>
  23 #include <sal/main.h>
  24 #include <osl/diagnose.h>
  25
  26 #include <cppuhelper/servicefactory.hxx>
  27 #include <cppuhelper/weak.hxx>
  28 #include <cppuhelper/implbase.hxx>
  29
  30 #include <ModuleA/XInterface1.hpp>
  31 #include <ModuleC/XInterfaceA.hpp>
  32 #include <ModuleC/XInterfaceB.hpp>
  33 #include <ModuleC/ModuleC.hpp>
  34
  35 #include <com/sun/star/container/XHierarchicalNameAccess.hpp>
  36 #include <com/sun/star/lang/XComponent.hpp>
  37 #include <com/sun/star/reflection/XIdlReflection.hpp>
  38 #include <com/sun/star/reflection/XIdlField2.hpp>
  39 #include <com/sun/star/beans/XPropertySet.hpp>
  40 #include <com/sun/star/registry/XSimpleRegistry.hpp>
  41 #include <com/sun/star/registry/XImplementationRegistration.hpp>
  42
  43 #include <rtl/ustrbuf.hxx>
  44
  45 #include <stdio.h>
  46
  47 using namespace cppu;
  48 using namespace osl;
  49 using namespace ModuleA;
  50 using namespace ModuleB;
  51 using namespace ModuleC;
  52 using namespace ModuleA::ModuleB;
  53 using namespace com::sun::star;
  54 using namespace css::uno;
  55 using namespace css::lang;
  56 using namespace css::beans;
  57 using namespace css::registry;
  58 using namespace css::reflection;
  59 using namespace css::container;
  60
  61
  62 class OInterfaceA : public WeakImplHelper< XInterfaceA >
  63 {
  64 public:
  65
  66     virtual void SAL_CALL methodA() throw (RuntimeException)
  67         {}
  68
  69     virtual void SAL_CALL methodB(sal_Int16 /*aShort*/) throw (RuntimeException)
  70         {}
  71     virtual Sequence< StructB > SAL_CALL methodC(const StructC& /*aStructC*/, StructA& /*aStructA*/) throw (RuntimeException)
  72         { return Sequence< StructB >(); }
  73 };
  74
  75
  76 static inline bool uik_equals( const Uik & rUik1, const Uik & rUik2 )
  77 {
  78     return (rUik1.m_Data1 == rUik2.m_Data1 &&
  79             rUik1.m_Data2 == rUik2.m_Data2 &&
  80             rUik1.m_Data3 == rUik2.m_Data3 &&
  81             rUik1.m_Data4 == rUik2.m_Data4 &&
  82             rUik1.m_Data5 == rUik2.m_Data5);
  83 }
  84
  85 static sal_Bool test_corefl( const Reference< XIdlReflection > & xRefl )
  86 {
  87     Reference< XIdlClass > xClass;
  88     Reference< XHierarchicalNameAccess > xHNameAccess( xRefl, UNO_QUERY );
  89     OSL_ENSURE(xHNameAccess.is(), "### cannot get XHierarchicalNameAccess!" );
  90
  91     OSL_ENSURE(xRefl->forName("ModuleA.StructA")->getName() == "ModuleA.StructA", "test_RegCoreReflection(): error 2b");
  92     OSL_ENSURE(xRefl->forName("ModuleA.ExceptionB")->getTypeClass() == TypeClass_EXCEPTION, "test_RegCoreReflection(): error 2c");
  93     OSL_ENSURE(xRefl->forName("ModuleA.ModuleB.EnumA").is(), "test_RegCoreReflection(): error 2e");
  94
  95
  96     OSL_ENSURE(*(const sal_Bool *)xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstBoolean")).getValue() == aConstBoolean, "test_RegCoreReflection(): error 4c");
  97     OSL_ENSURE(*(const sal_Int8 *)xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstByte")).getValue() == aConstByte, "test_RegCoreReflection(): error 4e");
  98     OSL_ENSURE(xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstShort")) == aConstShort, "test_RegCoreReflection(): error 4g");
  99     OSL_ENSURE(xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstUShort")) == aConstUShort, "test_RegCoreReflection(): error 4i");
 100     OSL_ENSURE(xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstLong")) == aConstLong, "test_RegCoreReflection(): error 4k");
 101     OSL_ENSURE(xHNameAccess->getByHierarchicalName(OUString("ModuleC.aConstULong")) == aConstULong, "test_RegCoreReflection(): error 4m");
 102
 103     // Enums
 104
 105     xClass = xRefl->forName("ModuleA.ModuleB.EnumA");
 106
 107     OSL_ENSURE(xClass.is(), "test_RegCoreReflection(): error 5");
 108
 109     Sequence<Reference< XIdlField > > fields = xClass->getFields();
 110
 111     OSL_ENSURE(
 112         (fields.getLength() == 3) &&
 113         (fields.getArray()[0]->getName() == "VAL_1" ) &&
 114         (*(EnumA*)fields.getArray()[0]->get(Any()).getValue() == EnumA_VAL_1) &&
 115         (fields.getArray()[1]->getName() == "VAL_2" ) &&
 116         (*(EnumA*)fields.getArray()[1]->get(Any()).getValue() == EnumA_VAL_2) &&
 117         (fields.getArray()[2]->getName() == "VAL_3" ) &&
 118         (*(EnumA*)fields.getArray()[2]->get(Any()).getValue() == EnumA_VAL_3),
 119         "test_RegCoreReflection(): error 6");
 120
 121
 122     // Interface
 123
 124     Reference< XIdlClass > xA = xRefl->forName("ModuleC.XInterfaceB");
 125
 126     xClass = xRefl->forName("ModuleC.XInterfaceB");
 127
 128     OSL_ENSURE(xClass == xA, "test_RegCoreReflection(): error 7");
 129     OSL_ENSURE(xClass.is(), "test_RegCoreReflection(): error 7a");
 130
 131     typelib_TypeDescription * pTD = 0;
 132     OUString aModuleName( "ModuleC.XInterfaceB" );
 133     typelib_typedescription_getByName( &pTD, aModuleName.pData );
 134     OSL_ENSURE( pTD, "### cannot get typedescription for ModuleC.XInterfaceB!" );
 135
 136     OSL_ENSURE( uik_equals( *(Uik *)&((typelib_InterfaceTypeDescription *)pTD)->aUik,
 137                               xClass->getUik() ),
 138                   "test_RegCoreReflection(): error 8" );
 139     typelib_typedescription_release( pTD );
 140
 141     OSL_ENSURE(xClass->getSuperclasses().getLength() == 1, "test_RegCoreReflection(): error 9");
 142     OSL_ENSURE(xClass->getSuperclasses().getArray()[0]->getName() == "ModuleC.XInterfaceA", "test_RegCoreReflection(): error 10");
 143     OSL_ENSURE(xClass->getMethods().getLength() == 7, "test_RegCoreReflection(): error 11");
 144     OSL_ENSURE(xA->getMethods().getLength() == 7, "test_RegCoreReflection(): error 11a");
 145     OSL_ENSURE(xClass->getMethods().getArray()[3]->getName() == "methodA", "test_RegCoreReflection(): 12");
 146     OSL_ENSURE(xClass->getMethods().getArray()[3]->getReturnType()->getTypeClass() == TypeClass_VOID, "test_RegCoreReflection(): error 13");
 147     OSL_ENSURE(xClass->getMethods().getArray()[3]->getParameterTypes().getLength() == 0, "test_RegCoreReflection(): error 14");
 148     OSL_ENSURE(xClass->getMethods().getArray()[3]->getExceptionTypes().getLength() == 0, "test_RegCoreReflection(): error 15");
 149     OSL_ENSURE(xClass->getMethods().getArray()[4]->getName() == "methodB", "test_RegCoreReflection(): error 16");
 150     OSL_ENSURE(xClass->getMethods().getArray()[4]->getMode() == MethodMode_ONEWAY, "test_RegCoreReflection(): error 16a");
 151     OSL_ENSURE(xClass->getMethods().getArray()[4]->getReturnType()->getTypeClass() == TypeClass_VOID, "test_RegCoreReflection(): error 16");
 152     OSL_ENSURE(xClass->getMethods().getArray()[4]->getParameterTypes().getLength() == 1, "test_RegCoreReflection(): error 17");
 153     OSL_ENSURE(xClass->getMethods().getArray()[4]->getParameterTypes().getArray()[0]->getTypeClass() == TypeClass_SHORT, "test_RegCoreReflection(): error 18");
 154     OSL_ENSURE(xClass->getMethods().getArray()[4]->getParameterInfos().getArray()[0].aName == "aShort", "test_RegCoreReflection(): error 18a");
 155     OSL_ENSURE(xClass->getMethods().getArray()[4]->getParameterInfos().getArray()[0].aType == xRefl->forName("short"), "test_RegCoreReflection(): error 18b");
 156     OSL_ENSURE(xClass->getMethods().getArray()[4]->getParameterInfos().getArray()[0].aMode == ParamMode_IN, "test_RegCoreReflection(): error 18c");
 157     OSL_ENSURE(xClass->getMethods().getArray()[4]->getExceptionTypes().getLength() == 0, "test_RegCoreReflection(): error 19");
 158     OSL_ENSURE(xClass->getMethods().getArray()[5]->getName() == "methodC", "test_RegCoreReflection(): error 20");
 159     OSL_ENSURE(xClass->getMethods().getArray()[5]->getMode() == MethodMode_TWOWAY, "test_RegCoreReflection(): error 20a");
 160     OSL_ENSURE(xClass->getMethods().getArray()[5]->getReturnType()->getTypeClass() == TypeClass_SEQUENCE, "test_RegCoreReflection(): error 21");
 161     OSL_ENSURE(xClass->getMethods().getArray()[5]->getReturnType()->getComponentType()->getTypeClass() == TypeClass_STRUCT, "test_RegCoreReflection(): error 22");
 162     OSL_ENSURE(xClass->getMethods().getArray()[5]->getReturnType()->getComponentType()->getName() == "ModuleA.StructB", "test_RegCoreReflection(): error 23");
 163     OSL_ENSURE(xClass->getMethods().getArray()[5]->getParameterTypes().getLength() == 2, "test_RegCoreReflection(): error 24");
 164     OSL_ENSURE(xClass->getMethods().getArray()[5]->getParameterTypes().getArray()[0]->getTypeClass() == TypeClass_STRUCT, "test_RegCoreReflection(): error 25");
 165     OSL_ENSURE(xClass->getMethods().getArray()[5]->getParameterTypes().getArray()[0]->getName() == "ModuleA.StructC", "test_RegCoreReflection(): error 26");
 166     OSL_ENSURE(xClass->getMethods().getArray()[5]->getParameterTypes().getArray()[1]->getTypeClass() == TypeClass_STRUCT, "test_RegCoreReflection(): error 27");
 167     OSL_ENSURE(xClass->getMethods().getArray()[5]->getParameterTypes().getArray()[1]->getName() == "ModuleA.StructA", "test_RegCoreReflection(): error 28");
 168     OSL_ENSURE(xClass->getMethods().getArray()[5]->getExceptionTypes().getLength() == 0, "test_RegCoreReflection(): error 29");
 169     OSL_ENSURE(xClass->getMethods().getArray()[6]->getName() == "methodD", "test_RegCoreReflection(): error 30");
 170     OSL_ENSURE(xClass->getMethods().getArray()[6]->getReturnType()->getTypeClass() == TypeClass_INTERFACE, "test_RegCoreReflection(): error 31");
 171     OSL_ENSURE(xClass->getMethods().getArray()[6]->getReturnType()->getName() == "ModuleC.XInterfaceA", "test_RegCoreReflection(): error 32");
 172     OSL_ENSURE(xClass->getMethods().getArray()[6]->getParameterTypes().getLength() == 1, "test_RegCoreReflection(): error 33");
 173     OSL_ENSURE(xClass->getMethods().getArray()[6]->getParameterTypes().getArray()[0]->getTypeClass() == TypeClass_ENUM, "test_RegCoreReflection(): error 34");
 174     OSL_ENSURE(xClass->getMethods().getArray()[6]->getParameterTypes().getArray()[0]->getName() == "ModuleA.ModuleB.EnumA", "test_RegCoreReflection(): error 35");
 175     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getLength() == 3, "test_RegCoreReflection(): error 36");
 176     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[0]->getTypeClass() == TypeClass_EXCEPTION, "test_RegCoreReflection(): error 37");
 177     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[0]->getName() == "ModuleA.ExceptionA", "test_RegCoreReflection(): error 38");
 178     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[1]->getTypeClass() == TypeClass_EXCEPTION, "test_RegCoreReflection(): error 38");
 179     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[1]->getName() == "ModuleA.ExceptionB", "test_RegCoreReflection(): error 39");
 180     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getTypeClass() == TypeClass_EXCEPTION, "test_RegCoreReflection(): error 40");
 181     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getName() == "ModuleA.ExceptionC", "test_RegCoreReflection(): error 41");
 182     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getLength() == 3, "test_RegCoreReflection(): error 42");
 183     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[0]->getType()->getTypeClass() == TypeClass_BOOLEAN, "test_RegCoreReflection(): error 43");
 184     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[0]->getType()->getName() == "boolean", "test_RegCoreReflection(): error 43a");
 185     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[1]->getType()->getTypeClass() == TypeClass_STRUCT, "test_RegCoreReflection(): error 44");
 186     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[1]->getType()->getName() == "ModuleA.StructC", "test_RegCoreReflection(): error 45");
 187     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[2]->getType()->getTypeClass() == TypeClass_INTERFACE, "test_RegCoreReflection(): error 46");
 188     OSL_ENSURE(xClass->getMethods().getArray()[6]->getExceptionTypes().getArray()[2]->getFields().getArray()[2]->getType()->getName() == "ModuleA.XInterface1", "test_RegCoreReflection(): error 47");
 189
 190     // SequenceReflections
 191
 192     OSL_ENSURE(xRefl->forName("[]ModuleA.StructA")->getTypeClass() == TypeClass_SEQUENCE, "test_RegCoreReflection(): error 48");
 193     OSL_ENSURE(xRefl->forName("[]ModuleA.StructA")->getComponentType().is(), "test_RegCoreReflection(): error 49");
 194     OSL_ENSURE(xRefl->forName("[][]ModuleA.StructA")->getComponentType()->getComponentType()->getName() == "ModuleA.StructA", "test_RegCoreReflection(): error 50");
 195     OSL_ENSURE(xRefl->forName("[]com.sun.star.uno.XInterface") == xRefl->forName("ModuleA.StructC")->getField(OUString("aInterfaceSeq"))->getType(), "test_RegCoreReflection(): error 51");
 196
 197     StructC aStructC;
 198     aStructC.aLong = aConstLong;
 199     aStructC.aShort = aConstShort;
 200     aStructC.aFloat = aConstFloat;
 201     aStructC.aDouble = aConstDouble;
 202     aStructC.aInterfaceSeq = Sequence<Reference<XInterface > >();
 203
 204     Any aAny;
 205
 206     xRefl->forName("ModuleA.StructC")->getField(OUString("aInterfaceSeq"))->getType()->createObject(aAny);
 207
 208     OSL_ENSURE(aAny.getValueType() == cppu::UnoType<Sequence<Reference< XInterface > >>::get(), "test_RegCoreReflection(): error 51a");
 209
 210     Any aStructAny(&aStructC, cppu::UnoType<StructC>::get());
 211
 212     sal_Int32 nLong = aConstLong * 2;
 213     aAny.setValue( &nLong, cppu::UnoType<sal_Int32>::get());
 214
 215     OSL_ENSURE(*(sal_Int32*)xRefl->forName("ModuleA.StructA")->getField(OUString( "aLong" ))->get(
 216         Any(&aStructC, cppu::UnoType<StructC>::get())).getValue() == aConstLong, "test_RegCoreReflection(): error 52");
 217     OSL_ENSURE(xRefl->forName("ModuleA.StructA")->getField(OUString( "aLong" ))->getAccessMode() == FieldAccessMode_READWRITE, "test_RegCoreReflection(): error 52a");
 218     Reference< XIdlField2 > rField ( xRefl->forName("ModuleA.StructC")->getField(OUString( "aLong" )) , UNO_QUERY );
 219     rField->set(aStructAny, aAny);
 220     OSL_ENSURE(*(sal_Int32*)xRefl->forName("ModuleA.StructB")->getField(OUString( "aLong" ))->get(aStructAny).getValue() == *(sal_Int32*)aAny.getValue(), "test_RegCoreReflection(): error 53");
 221
 222     xRefl->forName("[]ModuleA.StructA")->createObject(aAny);
 223
 224     OSL_ENSURE( aAny.getValueTypeName() == "[]ModuleA.StructA", "test_RegCoreReflection(): error 54" );
 225     xRefl->forName("[][]ModuleA.StructA")->createObject(aAny);
 226
 227     OSL_ENSURE( aAny.getValueTypeName() == "[][]ModuleA.StructA", "test_RegCoreReflection(): error 56" );
 228
 229     OSL_ENSURE(xRefl->forName("[][][]unsigned long")->getComponentType()->getComponentType()->getComponentType()->getTypeClass() == TypeClass_UNSIGNED_LONG, "test_RegCoreReflection(): error 62");
 230
 231     try
 232     {
 233         SAL_WARN( "stoc", "case 1" );
 234         Any bla = xRefl->forName("ModuleA.StructC")->getField(OUString("aString"))->get(Any());
 235         OSL_ENSURE(sal_False, "test_RegCoreReflection(): error 63");
 236         return sal_False;
 237     }
 238     catch (IllegalArgumentException &)
 239     {
 240     }
 241
 242     try
 243     {
 244         SAL_WARN( "stoc", "case 2" );
 245         Any blup;
 246         blup <<= aStructC;
 247         Any gulp;
 248         rField.set( xRefl->forName("ModuleA.StructC")->getField(OUString("aString")) , UNO_QUERY);
 249         rField->set( blup, gulp);
 250         OSL_ENSURE(sal_False, "test_RegCoreReflection(): error 64");
 251         return sal_False;
 252     }
 253     catch (IllegalArgumentException &)
 254     {
 255     }
 256
 257     try
 258     {
 259         SAL_WARN( "stoc", "case 3" );
 260         Any gulp;
 261         gulp <<= 3.14f;
 262         Any blup;
 263         blup <<= aStructC;
 264         rField.set( xRefl->forName("ModuleA.StructC")->getField(OUString("aString")) , UNO_QUERY);
 265         xRefl->forName("ModuleA.StructC")->getField(OUString("aString"))->set(blup, gulp);
 266         OSL_ENSURE(sal_False, "test_RegCoreReflection(): error 65");
 267         return sal_False;
 268     }
 269     catch (IllegalArgumentException &)
 270     {
 271     }
 272
 273     Any gulp;
 274     gulp <<= OUString("Test");
 275     Any blup;
 276     blup <<= aStructC;
 277     xRefl->forName("ModuleA.StructC")->getField(OUString("aString"))->set(blup, gulp);
 278
 279     Reference< XInterfaceA > xAI = new OInterfaceA();
 280
 281     try
 282     {
 283         Sequence< Any > params;
 284         SAL_WARN( "stoc", "case 4" );
 285
 286         Any a;
 287         a <<= xAI;
 288         Any bla = xRefl->forName("ModuleC.XInterfaceA")->getMethod(OUString("methodC"))->invoke(a, params);
 289         OSL_ENSURE(sal_False, "test_RegCoreReflection(): error 66");
 290         return sal_False;
 291     }
 292     catch (IllegalArgumentException &)
 293     {
 294     }
 295
 296     StructA aStructA;
 297
 298     {
 299         Sequence< Any > params(2);
 300
 301         params.getArray()[0].setValue(&aStructC, cppu::UnoType<StructC>::get());
 302         params.getArray()[1].setValue(&aStructC, cppu::UnoType<StructC>::get());
 303
 304         Any a;
 305         a <<= xAI;
 306         Any bla = xRefl->forName("ModuleC.XInterfaceA")->getMethod(OUString("methodC"))->invoke(a, params);
 307     }
 308     try
 309     {
 310         Sequence< Any > params(2);
 311
 312         params.getArray()[0].setValue(&aStructA, cppu::UnoType<StructA>::get());
 313         params.getArray()[1].setValue(&aStructA, cppu::UnoType<StructA>::get());
 314
 315         Any a;
 316         a <<= xAI;
 317         Any bla = xRefl->forName("ModuleC.XInterfaceA")->getMethod(OUString("methodC"))->invoke(a, params);
 318         OSL_ENSURE(sal_False, "test_RegCoreReflection(): error 67");
 319         return sal_False;
 320     }
 321     catch (IllegalArgumentException &)
 322     {
 323     }
 324
 325     Sequence< Any > params(2);
 326
 327     params.getArray()[0].setValue(&aStructC, cppu::UnoType<StructC>::get());
 328     params.getArray()[1].setValue(&aStructA, cppu::UnoType<StructA>::get());
 329
 330     Any a;
 331     a <<= xAI;
 332     bool result = (xRefl->forName("ModuleC.XInterfaceA")->getMethod(OUString("methodC"))->invoke(a, params).getValueType()
 333                     == cppu::UnoType<Sequence<StructB>>::get()); (void)result;
 334     OSL_ENSURE(result, "test_RegCoreReflection(): error 68");
 335
 336     return sal_True;
 337 }
 338
 339 SAL_IMPLEMENT_MAIN()
 340 {
 341     sal_Bool bSucc = sal_False;
 342     try
 343     {
 344         OUString aLibName( "reflection.uno" SAL_DLLEXTENSION );
 345
 346         Reference< XMultiServiceFactory > xMgr(
 347             createRegistryServiceFactory(
 348                 OUString( "stoctest.rdb" ) ) );
 349         Reference< XComponentContext > xContext;
 350         Reference< beans::XPropertySet > xProps( xMgr, UNO_QUERY );
 351         OSL_ASSERT( xProps.is() );
 352         xProps->getPropertyValue(
 353             OUString( "DefaultContext" ) ) >>=
 354             xContext;
 355         OSL_ASSERT( xContext.is() );
 356
 357         Reference< XIdlReflection > xRefl;
 358         xContext->getValueByName(
 359             OUString( "/singletons/com.sun.star.reflection.theCoreReflection") )
 360                         >>= xRefl;
 361         OSL_ENSURE(
 362             xRefl.is(), "### CoreReflection singleton not accessible!?" );
 363
 364         bSucc = test_corefl( xRefl );
 365
 366         Reference< XComponent >( xContext, UNO_QUERY )->dispose();
 367     }
 368     catch (const Exception & rExc)
 369     {
 370         DBG_UNHANDLED_EXCEPTION("stoc", "### exception occurred: " << rExc );
 371     }
 372
 373     printf( "testcorefl %s !\n", (bSucc ? "succeeded" : "failed") );
 374     return (bSucc ? 0 : -1);
 375 }
 376
 377 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */