testautomation/framework/optional/includes/basic_documents.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 : BASIC organizers and documents
  31 '*
  32 '\******************************************************************************
  33
  34 private const IDOCS = 5
  35
  36 testcase tBasicDocuments
  37
  38     const CFN = "tBasicDocuments::"
  39
  40     dim sFileWriter as string
  41     dim sFileCalc as string
  42     dim iDocumentCount as integer
  43     dim cNodeListA( 10 ) as string
  44     dim cNodeListB( 10 ) as string
  45     dim iSecLevel as integer
  46     dim iHitCount as integer
  47
  48     ' NOTE: hCreateBasicWorkFiles() creates files of the naming scheme
  49     ' basic.odt, ...odc etc. All these files will show up with just "basic"
  50     ' in the Macro Organizer
  51     const DOC_NAME = "basic"
  52
  53     printlog( "Set macro security level to medium" )
  54     iSecLevel = hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_MEDIUM )
  55
  56     printlog( "Open one single unchanged Writer document" )
  57     hInitSingleDoc()
  58
  59     kontext "DocumentWriter"
  60     DocumentWriter.typeKeys( "tBasicDocuments - initial document - discard after test" )
  61
  62     gApplication = "WRITER"
  63     printlog( "Create a Writer workfilename (build path and filename)" )
  64     hCreateBasicWorkFiles()
  65     sFileWriter = hGetBasicWorkFile( "current" )
  66
  67     gApplication = "CALC"
  68     printlog( "Create a Calc workfilename (build path and filename)" )
  69     hCreateBasicWorkFiles()
  70     sFileCalc = hGetBasicWorkFile( "current" )
  71
  72     printlog( "Open the writer file" )
  73     hFileOpen( sFileWriter )
  74     if ( not hAllowMacroExecution() ) then
  75         warnlog( "Missing Macro execution dialog. Please check the file/security settings" )
  76     endif
  77
  78     printlog( "Open the Calc file" )
  79     hFileOpen( sFileCalc )
  80     if ( not hAllowMacroExecution() ) then
  81         warnlog( "Missing Macro execution dialog. Please check the file/security settings" )
  82     endif
  83
  84     printlog( "Open the BASIC organizer" )
  85     ToolsMacro_uno
  86     WaitSlot()
  87
  88     printlog( "Retreive the names of all nodes from the treelist" )
  89     kontext "Makro"
  90     hGetVisibleNodeNames( MakroAus , cNodeListA() )
  91
  92     printlog( "Verify that both documents are listed - one Writer, one Calc with identical names" )
  93     iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME )
  94     if ( iHitCount <> 2 ) then
  95         warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
  96     endif
  97
  98     printlog( "Click Manage..." )
  99     hClickButton( verwalten )
 100
 101     printlog( "Get the nodes list from the object organizer tabs - first tab" )
 102     hSelectBasicObjectOrganizerTab( 1 )
 103     ListAllDelete( cNodeListB() )
 104     hGetVisibleNodeNames( ModulListe , cNodeListB() )
 105
 106     printlog( "Verify that both documents are listed on both relevant tabpages" )
 107     iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME )
 108     if ( iHitCount <> 2 ) then
 109         warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
 110     endif
 111
 112     printlog( "Switch to second tab" )
 113     hSelectBasicObjectOrganizerTab( 2 )
 114     ListAllDelete( cNodeListB() )
 115     hGetVisibleNodeNames( ModuleList , cNodeListB() )
 116     if ( listcount( cNodeListB() ) <> 5 ) then
 117         warnlog( CFN & "#i49239# Incorrect object count in treelist" )
 118         hListPrint( cNodeListB() , "List of objects found in treelist" )
 119     endif
 120
 121     printlog( "Verify" )
 122     iHitCount = hCountMatchesInList( cNodeListB() , DOC_NAME )
 123     if ( iHitCount <> 2 ) then
 124         warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
 125     endif
 126
 127     printlog( "Third tab (should not list the document" )
 128     hSelectBasicObjectOrganizerTab( 3 )
 129     hTestLibraryListBox( cNodeListA() )
 130
 131     printlog( CFN & "Closing dialogs..." )
 132     hCloseDialog( TabBibliotheken, "cancel" )
 133
 134     printlog( "Cleanup: Close macro organizer" )
 135     Kontext "Makro"
 136     hCloseDialog( Makro, "cancel" )
 137
 138     printlog( "Cleanup: Close all files" )
 139     hFileCloseAll()
 140
 141     printlog( "Cleanup: Remove workfiles" )
 142     hDeleteFile( sFileWriter )
 143     hDeleteFile( sFileCalc )
 144
 145     printlog( "Rest macro security level" )
 146     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
 147
 148 endcase
 149
 150 '*******************************************************************************
 151
 152 function hTestLibraryListBox( cNodeList() ) as boolean
 153
 154     const CFN = "hTestLibraryListBox::"
 155     const EXACT_MATCH = 1
 156
 157     dim iEntry as integer
 158     dim cEntry as string
 159     dim irc as integer
 160
 161     hTestLibraryListBox() = true
 162
 163     if ( bibliothek.getItemCount() <> IDOCS ) then
 164         warnlog( CFN & "Incorrect number of items in listbox" )
 165         printlog( CFN & "Expected: " & bibliothek.getItemCount() )
 166         printlog( CFN & "Found...: " & listcount( cNodeList() ) )
 167         hTestLibraryListBox() = false
 168     endif
 169
 170     for iEntry = 3 to IDOCS
 171
 172         Bibliothek.select( iEntry )
 173         cEntry = Bibliothek.getSelText()
 174
 175         if ( hCompareSubStrings( cNodeList( iEntry ) , cEntry ) <> EXACT_MATCH ) then
 176             warnlog( CFN & "Comparision failed" )
 177             printlog( CFN & "Expected: " & cNodeList( iEntry ) & "<>" & cEntry )
 178             hTestLibraryListBox() = false
 179         else
 180             printlog( CFN & "Comparision succeeded:" & cEntry )
 181         endif
 182
 183     next iEntry
 184
 185 end function