testautomation/framework/optional/includes/basic_library_export.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 : Export BASIC library (flat)
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicLibraryExport
  35
  36     printlog( "Export a basic script as library (flat format)" )
  37
  38     ' Assumption: All actions take place in the user/work directory
  39     ' macro taken from framework/tools/input/macros.txt::tBasicLibraryExport
  40
  41     ' For test specific global constants (UPPERCASE) see .BAS-file
  42
  43     const LIBRARIES_TAB = 3
  44
  45     dim cDocumentName as string
  46     dim cLibraryName as string
  47     dim iNodeCount as integer
  48
  49     dim cFile as string : cFile = hGetWorkPath() & LIBRARY_NAME
  50
  51     dim cMsg as string
  52
  53     dim iCurrentLib as integer
  54
  55     printlog( "Delete potential leftovers from prior test run" )
  56     if ( dir( cFile ) <> "" ) then
  57         QAErrorLog( "Files from prior test run exist: " & cFile )
  58         hDeleteFile( hGetWorkPath() & LIBRARY_NAME & gPathSigne & "dialog.xlb"  )
  59         hDeleteFile( hGetWorkPath() & LIBRARY_NAME & gPathSigne & "Module1.xba" )
  60         hDeleteFile( hGetWorkPath() & LIBRARY_NAME & gPathSigne & "script.xlb"  )
  61         rmdir( hGetWorkPath() & LIBRARY_NAME ) : printlog( "Remove directory" )
  62     endif
  63
  64     printlog( "Open a new text document" )
  65     hInitSingleDoc()
  66     hChangeDoc()
  67
  68     printlog( "Open another text document" )
  69     gApplication = "WRITER"
  70     hCreateDocument()
  71
  72     printlog( "Open the BASIC organizer (Tools/Macros/BASIC)" )
  73     ToolsMacro_uno
  74
  75     kontext "Makro"
  76     printlog( "Select the document" )
  77     iNodeCount = hGetNodeCount( MakroAus )
  78     cDocumentName = hSelectNode( MakroAus, iNodeCount )
  79
  80     printlog( "Click <Manage...>" )
  81     Verwalten.click()
  82
  83     printlog( "Open the Libraries tabpage" )
  84     hSelectBasicObjectOrganizerTab( 3 )
  85
  86     kontext "TabBibliotheken"
  87     printlog( "Select document Untitled2" )
  88     Bibliothek.select( DOCUMENT_POSITION )
  89
  90     ' verify that the correct document is selected
  91     if ( Bibliothek.getSelText() <> cDocumentName ) then
  92         warnlog( "Incorrect document selected on libraries tab, aborting" )
  93         goto endsub
  94     endif
  95
  96     printlog( "Click <New>" )
  97     Neu.click()
  98
  99     kontext "NeueBibliothek"
 100     printlog( "Name the library: " & LIBRARY_NAME )
 101     BibliotheksName.setText( LIBRARY_NAME )
 102     NeueBibliothek.ok()
 103
 104     kontext "TabBibliotheken"
 105     printlog( "Verify that the new library is selected in the libraries list" )
 106     cLibraryName = BibliotheksListe.getSelText()
 107
 108     printlog( "Click <Edit>" )
 109     Bearbeiten.click()
 110
 111     printlog( "Insert a macro" )
 112     hInsertMacroFromFile( LIBRARY_NAME )
 113
 114     printlog( "Close the BASIC IDE" )
 115     hCloseBasicIDE()
 116
 117     printlog( "Open the BASIC macro organizer" )
 118     ToolsMacro_uno
 119
 120     kontext "Makro"
 121     printlog( "Select the work document" )
 122     iNodeCount = hGetNodeCount( MakroAus )
 123     hSelectNode( MakroAus, iNodeCount )
 124
 125     printlog( "Click <Manage...>" )
 126     Verwalten.click()
 127
 128     printlog( "Go to the libraries-tab" )
 129     hSelectBasicObjectOrganizerTab( LIBRARIES_TAB )
 130
 131     kontext "TabBibliotheken"
 132     printlog( "Select the document at pos. " & DOCUMENT_POSITION )
 133     Bibliothek.select( DOCUMENT_POSITION )
 134
 135     printlog( "Verify that the correct document is selected" )
 136     if ( Bibliothek.getSelText() <> cDocumentName ) then
 137         warnlog( "Incorrect document selected on libraries tab, aborting" )
 138         goto endsub
 139     endif
 140
 141     printlog( "Select the new library" )
 142     kontext "TabBibliotheken"
 143     for iCurrentLib = 1 to Bibliotheksliste.getItemCount()
 144         Bibliotheksliste.select( iCurrentLib )
 145         if ( Bibliotheksliste.getSelText = LIBRARY_NAME ) then
 146             exit for
 147         endif
 148     next iCurrentLib
 149
 150     printlog( "Click export" )
 151     Export.click()
 152
 153     kontext "ExportBasicLibraryDlg"
 154     if ( ExportBasicLibraryDlg.exists( 2 ) ) then
 155
 156         printlog( "Export as library" )
 157         ExportAsLibrary.check()
 158         ExportBasicLibraryDlg.ok()
 159
 160         kontext "Active"
 161         printlog( "Check for non existing directory warning" )
 162         ' Note: Querying for an Active will also find the Libraries tabpage.
 163         '       So we need to check which active we've got. RT = 373 is the tabcontrol.
 164         if ( Active.exists( 1 ) ) then
 165             if ( Active.getRT() <> 373 ) then
 166                 warnlog( "Unexpected messagebox: " & Active.getText() )
 167                 active.ok()
 168             else
 169                 printlog( "Back on tab-control, good." )
 170             endif
 171         else
 172             printlog( "No warning for non-existing directory, good." )
 173         endif
 174
 175         Kontext "OeffnenDlg"
 176         if ( Oeffnendlg.exists( 1 ) ) then
 177             Oeffnen.click()
 178         else
 179             warnlog( "File Open dialog not displayed" )
 180         endif
 181
 182     else
 183         warnlog( "The ""Export Library"" dialog was not displayed" )
 184     endif
 185
 186     kontext "TabBibliotheken"
 187     printlog( "Close the macro/libraries organizer" )
 188     if ( TabBibliotheken.exists( 1 ) ) then
 189         TabBibliotheken.cancel()
 190
 191         kontext "Makro"
 192         printlog( "Cancel macro organizer" )
 193         Makro.cancel()
 194
 195         hFileCloseAll()
 196     else
 197         warnlog( "Dialog <TabBibliotheken> could not be accessed" )
 198         call exitRestartTheOffice()
 199     endif
 200
 201 endcase
 202