testautomation/framework/optional/includes/basic_package_import.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Import BASIC library via Package Manager GUI as UNO Package
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicPackageImport
  35
  36     ' Assumption: All actions take place in the user/work directory
  37     ' macro taken from global/input/macros.txt::tBasicLibraryExport
  38
  39     printlog( "Import BASIC library via Package Manager GUI as UNO Package" )
  40
  41     dim package_name as string : package_name = "tBasicExport.oxt"
  42
  43     const LIBRARY_NAME = "tBasicExport"
  44     const MY_MACROS = 1
  45     const LIBRARIES_TAB = 3
  46     const SHORT_WAIT = 1
  47
  48     dim cDocumentName as string
  49     dim cLibraryName as string
  50
  51     dim iNodeCount as integer
  52     dim iCurrentLib as integer
  53     dim iStatus as integer
  54
  55     dim cFile as string : cFile = hGetWorkPath() & package_name
  56
  57     printlog( "Probe for test extension created by basic_packege_export" )
  58     if ( Not FileExists( cFile ) or ( FileLen( cFile ) = 0 ) ) then
  59         warnlog( "#i105719# - Test extension is missing or has zero size. This is most likely" & _
  60                  " a follow-up error from the prior test case. Test stopped." )
  61         goto endsub
  62     endif
  63
  64     gApplication = "WRITER"
  65
  66     iStatus = hExtensionAddGUI( cFile, "InstallForUser,NoLicense,NoUpdate" )
  67
  68     ' Evaluate the returncode. Anything different from 0 causes the test to end.
  69     if ( iStatus <= 0 ) then
  70         warnlog( "Error adding extension. Aborting." )
  71         goto endsub
  72     endif
  73
  74     hMacroOrganizerRunMacro( LIBRARY_NAME )
  75
  76     kontext "active"
  77     if ( active.exists( 5 ) ) then
  78         active.ok()
  79     else
  80         warnlog( "The macro was not executed" )
  81     endif
  82
  83     ToolsMacro_uno
  84
  85     kontext "Makro"
  86     MakroAus.select( MY_MACROS )
  87
  88     Verwalten.click()
  89
  90     hSelectBasicObjectOrganizerTab( LIBRARIES_TAB )
  91
  92     kontext "TabBibliotheken"
  93     Bibliothek.select( SHORT_WAIT )
  94
  95     printlog( "Select the new library" )
  96     kontext "TabBibliotheken"
  97     for iCurrentLib = 1 to Bibliotheksliste.getItemCount()
  98         Bibliotheksliste.select( iCurrentLib )
  99         if ( Bibliotheksliste.getSelText() = LIBRARY_NAME ) then
 100             exit for
 101         endif
 102     next iCurrentLib
 103     cLibraryName = BibliotheksListe.getSelText()
 104
 105     hClickButton( Hinzufuegen )
 106
 107     kontext "OeffnenDlg"
 108     hCloseDialog( OeffnenDlg, "cancel" )
 109
 110     printlog( "Cleanup: Delete Library, close dialogs and remove package" )
 111
 112     ' Note: It is assumed that the library is selected
 113     kontext "TabBibliotheken"
 114     cLibraryName = BibliotheksListe.getSelText()
 115     if ( cLibraryName <> LIBRARY_NAME ) then
 116         warnlog( "Incorrect library is selected" & cLibraryName )
 117     else
 118         Loeschen.click()
 119
 120         kontext "active"
 121         if ( active.exists( SHORT_WAIT ) ) then
 122             active.yes()
 123         else
 124             warnlog( "No warning for library deletion" )
 125         endif
 126     endif
 127
 128     kontext "TabBibliotheken"
 129     hCloseDialog( TabBibliotheken, "cancel" )
 130
 131     kontext "Makro"
 132     hCloseDialog( Makro, "cancel" )
 133
 134     hExtensionRemoveGUI( package_name )
 135
 136
 137 endcase
 138