qadevOOo/tests/basic/ifc/lang/XInitialization/lang_XInitialization.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="lang_XInitialization" script:language="StarBasic">
   4
   5
   6 '*************************************************************************
   7 '
   8 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   9 '
  10 ' Copyright 2008 by Sun Microsystems, Inc.
  11 '
  12 ' OpenOffice.org - a multi-platform office productivity suite
  13 '
  14 ' $RCSfile: lang_XInitialization.xba,v $
  15 '
  16 ' $Revision: 1.3 $
  17 '
  18 ' This file is part of OpenOffice.org.
  19 '
  20 ' OpenOffice.org is free software: you can redistribute it and/or modify
  21 ' it under the terms of the GNU Lesser General Public License version 3
  22 ' only, as published by the Free Software Foundation.
  23 '
  24 ' OpenOffice.org is distributed in the hope that it will be useful,
  25 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  26 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27 ' GNU Lesser General Public License version 3 for more details
  28 ' (a copy is included in the LICENSE file that accompanied this code).
  29 '
  30 ' You should have received a copy of the GNU Lesser General Public License
  31 ' version 3 along with OpenOffice.org.  If not, see
  32 ' <http://www.openoffice.org/license.html>
  33 ' for a copy of the LGPLv3 License.
  34 '
  35 '*************************************************************************
  36 '*************************************************************************
  37
  38
  39
  40 ' Be sure that all variables are dimensioned:
  41 option explicit
  42
  43 '*************************************************************************
  44 ' This Interface/Service test depends on the following GLOBAL variables,
  45 ' which must be specified in the object creation:
  46
  47 '     - Global aInitArgs() As Variant
  48 '       Global aNoInit() As Variant [optional]
  49 '       if the variable defined as Array the method initialize() isnt called.
  50
  51 '*************************************************************************
  52
  53
  54
  55
  56
  57 Sub RunTest()
  58
  59 '*************************************************************************
  60 ' INTERFACE:
  61 ' com.sun.star.lang.XInitialization
  62 '*************************************************************************
  63 On Error Goto ErrHndl
  64     Dim bOK As Boolean
  65     Dim bInit As Boolean
  66
  67     bInit = true
  68
  69     Test.StartMethod("initialize()")
  70     bOK = true
  71
  72     if NOT isArray(aNoInit) then
  73         if NOT isArray(aInitArgs) then
  74             Out.Log("aInitArgs is NULL ... trying with no arguments")
  75             oObj.initialize(DimArray())
  76         else
  77             oObj.initialize(aInitArgs())
  78         end if
  79     else
  80         Out.Log("The object already initialized ... OK")
  81     end if
  82
  83     Test.MethodTested("initialize()", bOK)
  84 Exit Sub
  85 ErrHndl:
  86     Test.Exception()
  87     bOK = false
  88     resume next
  89 End Sub
  90 </script:module>