diff options
Diffstat (limited to 'testautomation/framework/optional/includes/filedlg_autocomplete.inc')
| -rw-r--r-- | testautomation/framework/optional/includes/filedlg_autocomplete.inc | 207 |
1 files changed, 207 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/filedlg_autocomplete.inc b/testautomation/framework/optional/includes/filedlg_autocomplete.inc new file mode 100644 index 000000000000..e49bdfb98551 --- /dev/null +++ b/testautomation/framework/optional/includes/filedlg_autocomplete.inc @@ -0,0 +1,207 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/****************************************************************************** +'* +'* owner : gregor.hartmann@oracle.com +'* +'* short description : Autocompletion feature +'* +'\****************************************************************************** + +testcase tAutocomplete + + printlog( "Autocompletion in the OpenOffice.org file picker" ) + + ' IMPORTANT NOTE: Autocompletion is asynchronous. This means that no rule + ' exists when exactly it is going to strike. If you are + ' using a networked environment you have to make sure that + ' all network ressources deliver a decent performance as + ' this seriously influences the speed of the autocompletion. + + ' Assemble a work directory path + const WORKDIR = "autocomplete" + dim cBasePath as string : cBasePath = hGetWorkPath() + dim cWorkDir as string : cWorkDir = cBasePath & WORKDIR + + ' These are the files we create in the users homedirectory + dim aWorkFile( 3 ) as string + aWorkFile( 1 ) = "autocomplete_a.odt" + aWorkFile( 2 ) = "autocomplete_b.odt" + aWorkFile( 3 ) = "autocomplete_bb.odt" + + ' These are the full paths to the files + dim aFullPath( 3 ) as string + + ' These are the wildcarded filter strings + dim aWildCard( 3 ) + aWildCard( 1 ) = "autocomplete_?.odt" + aWildCard( 2 ) = "autocomplete_b?.odt" + aWildCard( 3 ) = "autocomplete_*.odt" + + dim cCurrentPath as string + dim cAutocomplete as string + + dim iCurrentDocument as integer + + dim cLeft as string + dim iLeft as integer + iLeft = 4 + + dim cEFString as string + + dim slot + + printlog( "Close all open documents" ) + hFileCloseAll() + + printlog( "Assemble 3 filenames for workfiles" ) + aFullPath( 1 ) = cWorkDir & gPathSigne & aWorkFile( 1 ) + aFullPath( 2 ) = cWorkDir & gPathSigne & aWorkFile( 2 ) + aFullPath( 3 ) = cWorkDir & gPathSigne & aWorkFile( 3 ) + + printlog( "Delete the 3 workfiles if they exist" ) + hDeleteFile( aFullPath( 1 ) ) + hDeleteFile( aFullPath( 2 ) ) + hDeleteFile( aFullPath( 3 ) ) + + printlog( "Try to remove conflicting work directories" ) + if ( dir( cBasePath & WORKDIR ) <> "" ) then + rmdir( cWorkDir ) + endif + + printlog( "Create workdirectory: " & cWorkDir ) + mkdir( cWorkDir ) + if ( NOT FileExists( cWorkDir ) ) then + warnlog( "Failed to create work directory, aborting" ) + goto endsub + endif + + gApplication = "WRITER" + printlog( "Create the workfiles - 3 writer files with minimum content" ) + for iCurrentDocument = 1 to 3 + call hCreateDocument() + kontext "DocumentWriter" + DocumentWriter.typeKeys( aWorkFile( iCurrentDocument ) ) + hFileSaveAs( aFullPath( iCurrentDocument ) ) + hUseAsyncSlot( "FileClose" ) + next iCurrentDocument + + printlog( "Open the File Open dialog" ) + hUseAsyncSlot( "FileOpen" ) + + kontext "OeffnenDlg" + printlog( "Click the <Standard> button to get to the default work directory" ) + Standard.click() + + cLeft = left( WORKDIR, iLeft ) + cEFString = convertpath( WORKDIR & "/" ) + printlog( "Type """ & cLeft & """ into the filename entryfield" ) + DateiName.typeKeys( cLeft ) + + printlog( "Press the <END> key and wait for two seconds" ) + DateiName.typeKeys( "<END>" ) + sleep( 1 ) ' Required, do not remove + + cAutocomplete = DateiName.getSelText() + if ( cEFString = cAutocomplete ) then + printlog( "Autocompletion succeeded for workdirectory" ) + else + warnlog( "Autocompletion failed" ) + printlog( "Expected: " & cEFString ) + printlog( "Found...: " & cAutocomplete ) + endif + + printlog( "Press <RETURN> on the file open dialog -> Open" + kontext "OeffnenDlg" + OeffnenDlg.typeKeys( "<RETURN>" ) + + printlog( "Type "" auto "" into the entryfield" ) + cLeft = left( aWorkFile( 1 ), 4 ) + DateiName.typeKeys( cLeft ) + sleep( 1 ) + + cAutocomplete = DateiName.getSelText() + if ( aWorkFile( 1 ) = cAutocomplete ) then + printlog( "Autocompletion succeeded for first file" ) + else + warnlog( "Autocompletion failed" ) + printlog( "Expected: " & cEFString ) + printlog( "Found...: " & cAutocomplete ) + endif + + printlog( "Press down key in entry field" ) + DateiName.typeKeys( "<DOWN>" ) + sleep( 1 ) + + cAutocomplete = DateiName.getSelText() + if ( aWorkFile( 2 ) = cAutocomplete ) then + printlog( "Autocompletion succeeded for second file" ) + else + warnlog( "Autocompletion failed" ) + printlog( "Expected: " & cEFString ) + printlog( "Found...: " & cAutocomplete ) + endif + + printlog( "Enter autocomplete_?.odt -> 2 matches expected" ) + Dateiname.setText( aWildCard( 1 ) ) + Oeffnen.click() + if ( DateiAuswahl.getItemCount() <> 2 ) then + warnlog( "Incorrect number of files displayed, 2 expected" ) + else + printlog( "Correct number of files listed in files-list" ) + endif + + printlog( "Enter autocomplete_b?.odt -> 1 match expected" ) + Dateiname.setText( aWildCard( 2 ) ) + Oeffnen.click() + if ( DateiAuswahl.getItemCount() <> 1 ) then + warnlog( "Incorrect number of files displayed, 1 expected" ) + else + printlog( "Correct number of files listed in files-list" ) + endif + + printlog( "Enter autocomplete_*.odt -> 3 matches expected" ) + Dateiname.setText( aWildCard( 3 ) ) + Oeffnen.click() + if ( DateiAuswahl.getItemCount() <> 3 ) then + warnlog( "Incorrect number of files displayed, 3 expected" ) + else + printlog( "Correct number of files listed in files-list" ) + endif + + + printlog( "Close File Open dialog" ) + kontext "OeffnenDlg" + OeffnenDlg.cancel() + + printlog( "Delete workfiles and -directory" ) + hDeleteFile( aFullPath( 1 ) ) + hDeleteFile( aFullPath( 2 ) ) + hDeleteFile( aFullPath( 3 ) ) + rmdir( cBasePath & WORKDIR ) + +endcase + |