smoketest/data/Basic/Standard/Test_Ext.xml

   1 <?xml version="1.0" encoding="UTF-8"?>
   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 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test_Ext" script:language="StarBasic">REM  *****  BASIC  *****
  21
  22 const cMessageExtensionService = &quot;Extension Service&quot;
  23 const cMessageExtensionInstall = &quot;Install Extension&quot;
  24 const cMessageExtensionUninstall = &quot;Uninstall Extension&quot;
  25
  26 Sub TestExtensions
  27     Dim oTestExtension as Object, obj_null as Object
  28     Dim sCurrentMessage as String
  29     Dim bResult as Boolean
  30     Dim sImplementationNameString as String
  31     sImplementationNameString = cUnoSmoketestTestExtension + &quot;$_TestExtension&quot;
  32
  33     On Local Error GoTo EXTERROR
  34
  35     gCurrentTestCase = cLogfileFailed
  36     LocalTestLog% = OpenLogDat (GetLogFileName(gCurrentDocTest))
  37
  38     sCurrentMessage = &quot;SmokeTestCommandEnvironment (implemented in Java)&quot;
  39     gCurrentTestCase = cEXTService
  40
  41     &apos;Create an implementation of com.sun.star.ucb.XCommandEnvironment which is needed for
  42     &apos;adding the extension. The implementation is in
  43     &apos;smoketest/org/libreoffice/smoketest/SmoketestCommandEnvironment.java and the code is in smoketest.jar
  44     cmdEnv = createUnoService(cUnoSmoketestCommandEnvironment)
  45
  46     &apos;Create the component context and then get the singleton ExtensionManager
  47     &apos;A singleton cannot be created with createUnoService
  48     sCurrentMessage = cMessageExtensionService
  49     ctx = getDefaultContext
  50     ext_mgr = ctx.getValueByName(&quot;/singletons/&quot; + cExtensionManager)
  51
  52     LogTestResult( &quot;Extension &quot;+ cMessageExtensionService, not IsNull (ext_mgr) )
  53     if (IsNull(ext_mgr)) then
  54         Close #LocalTestLog%
  55         LocalTestLog = 0
  56         Exit Sub
  57     End If
  58
  59     sCurrentMessage = cMessageExtensionInstall
  60     gCurrentTestCase = cEXTInstall
  61
  62     &apos;Add the extension. We must provide a file URL here.
  63     &apos;By passing &quot;user&quot; we determine that the actions we perform on
  64     &apos;XExtensionManager only affect the user installation. To modify the share installation one would pass &quot;share&quot;.
  65
  66     Dim props() as Object
  67     ext_mgr.addExtension(sExtensionURL, props, &quot;user&quot;, obj_null, cmdEnv)
  68
  69     &apos;Check if the extension has been added by creating a service which is contained in the extension.
  70     oTestExtension = createUnoService(cUnoSmoketestTestExtension)
  71     bResult = (oTestExtension.getImplementationName = sImplementationNameString)
  72     LogTestResult( &quot;Extension &quot;+ cMessageExtensionInstall, bResult )
  73     if (not bResult) then
  74         Close #LocalTestLog%
  75         LocalTestLog = 0
  76         Exit Sub
  77     End If
  78
  79     sCurrentMessage = cMessageExtensionUninstall
  80     gCurrentTestCase = cEXTUninstall
  81
  82     &apos;Remove the package
  83     ext_mgr.removeExtension(&quot;org.libreoffice.smoketest.TestExtension&quot;, cExtensionFileName, &quot;user&quot;,obj_null, cmdEnv)
  84
  85     &apos;Try to create the service which is contained in the now removed extension.
  86     oTestExtension = createUnoService(cUnoSmoketestTestExtension)
  87
  88     &apos;The service must not be available anymore. Therefore isNull must return true.
  89     LogTestResult( &quot;Extension &quot;+ cMessageExtensionUninstall, IsNull (oTestExtension) )
  90
  91     Print #LocalTestLog, &quot;---&quot;
  92     Close #LocalTestLog%
  93     LocalTestLog = 0
  94     Exit Sub &apos; Without error
  95
  96     EXTERROR:
  97     If ( gCurrentTestCase = cLogfileFailed ) then
  98         LogTestResult( &quot; &quot;, False )
  99         Exit Sub
 100     else
 101         LogTestResult( &quot;Extension &quot;+ sCurrentMessage, False )
 102         Close #LocalTestLog%
 103         LocalTestLog = 0
 104     End If
 105     Exit Sub &apos; With error
 106
 107 End Sub
 108 </script:module>