diff options
Diffstat (limited to 'testautomation/chart2/optional/includes/loadsave/ch2_losa.inc')
-rw-r--r-- | testautomation/chart2/optional/includes/loadsave/ch2_losa.inc | 219 |
1 files changed, 0 insertions, 219 deletions
diff --git a/testautomation/chart2/optional/includes/loadsave/ch2_losa.inc b/testautomation/chart2/optional/includes/loadsave/ch2_losa.inc deleted file mode 100644 index b530b0c2a364..000000000000 --- a/testautomation/chart2/optional/includes/loadsave/ch2_losa.inc +++ /dev/null @@ -1,219 +0,0 @@ -'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 : oliver.craemer@oracle.com -'* -'* short description : Load file of one Spreadsheet format and save to another -'* -'\****************************************************************************** - -sub subLoSaFromTo - - dim sSourcePath as string - dim lsInputFileList ( 500 ) as string - dim iFilesInList as integer - dim sCurrentFileInList as string - dim iMainIndex as integer - - dim cRelativePath as string - cRelativePath = "chart2\optional\input\" & gsDirectoryInSourcePath &"\" - - '///<u><b>Load/Save files with charts</b></u> - printLog Chr(13) + "--------- Save with filter: " & gsFileFormat & " ----------" - sSourcePath = convertPath ( gtesttoolpath & cRelativePath ) - - '///+<ul><li>Determine list of files to test (All files in 'chart2\loadsave\input\<gsDirectoryInSourcePath>\')</li> - GetAllFileList( sSourcePath , "*." & gsDirectoryInSourcePath , lsInputFileList() ) - iFilesInList = ListCount( lsInputFileList() ) - '///+<li>Run testcase 'tLoadSaveFromTo' for each file in list</li></ul> - for iMainIndex = 2 to iFilesInList - - sCurrentFileInList = lsInputFileList( iMainIndex ) - printlog "* * * * * * *" - printlog "Loop " & ( iMainIndex - 1 ) & " of " & ( iFilesInList - 1 ) - printlog "Test document: " & sCurrentFileInList - call tLoadSaveFromTo ( sCurrentFileInList ) - - next iMainIndex - -end sub - -'******************************************************************************* - -function hLoSaEscape() as boolean - - ' Fine grained function to send Escape-keystroke to a spreadsheet document - - const MAX_TRIES = 12 - dim iTry as integer - - for iTry = 1 to MAX_TRIES - - wait( 250 ) - - Kontext "DocumentCalc" - try - DocumentCalc.TypeKeys( "<ESCAPE>" ) - hLoSaEscape() = true - exit for - catch - if ( iTry = MAX_TRIES ) then - warnlog( "hLoSaEscape(): Sending <ESCAPE> to document failed." ) - hLoSaEscape() = false - endif - endcatch - - next iTry - -end function - -'******************************************************************************* - -function hLoSaInplaceEditing() as boolean - - ' Enter in-place editing mode - - const RC_TIMEOUT = -1 - - Kontext "DocumentCalc" - printlog( "Enable in-place editing by slot <EditObjectEdit>" ) - if ( hUseAsyncSlot( "EditObjectEdit" ) <> RC_TIMEOUT ) then - - printlog( "Clicked menuitem: Format->Charttype" ) - if ( hUseAsyncSlot( "FormatChartType" ) <> RC_TIMEOUT ) then - - Kontext "ChartType" - if ChartType.exists(2) then - - printlog( "Chart type dialog open, Chart object was found." ) - Kontext "ChartType" - if ( hCloseDialog( ChartType, "cancel" ) ) then - printlog( "Chart type dialog closed successfully" ) - hLoSaInplaceEditing() = true - else - warnlog( "hLoSaInplaceEditing(): Failed to close dialog <ChartType>" ) - hLoSaInplaceEditing() = false - endif - else - warnlog( "hLoSaInplaceEditing(): Chart type dialog not open, please check the Chart object" ) - hLoSaInplaceEditing() = false - endif - - else - warnlog( "hLoSaInplaceEditing(): Failed to execute slot <FormatChartType>" ) - hLoSaInplaceEditing() = false - endif - else - warnlog( "hLoSaInplaceEditing(): Failed to execute slot <EditObjectEdit>" ) - hLoSaInplaceEditing() = false - endif - -end function - -'******************************************************************************* - -testcase tLoadSaveFromTo ( sCurrentFile as string ) - - printlog( "Load/Save files containing Chart OLE objects in multiple file-formats" ) - - dim sCurrentFileLength as integer - dim iCurrentPostionInFileName as integer - dim iLastPathSignePositon as integer : iLastPathSignePositon = 0 - dim sExtractedFileName as string - dim sExtractedExtension as string - dim sTemporaryFile as string - dim sOutputFile as string - dim iIndex as integer - - sCurrentFileLength = len ( sCurrentFile ) - - 'Remove path and extension from file name - do - iCurrentPostionInFileName = instr ( iCurrentPostionInFileName + 1 , sCurrentFile , gPathSigne ) - if iCurrentPostionInFileName = 0 then - exit do - endif - iLastPathSignePositon = iCurrentPostionInFileName - loop - - sExtractedFileName = right ( sCurrentFile , sCurrentFileLength - iLastPathSignePositon ) - sCurrentFileLength = len ( sExtractedFileName ) - sExtractedExtension = right ( sExtractedFileName , 4 ) - sExtractedFileName = left ( sExtractedFileName , sCurrentFileLength - 4 ) - sTemporaryFile = ( gOfficePath & ConvertPath("user\work\TemporaryFileToAvoidLocking" ) ) - sOutputFile = ( gOfficePath & ConvertPath("user\work\" & sExtractedFileName & "_" & gsDirectoryInSourcePath & "_to" & gsOutputFileCustomExtension ) ) - - printlog( "Open file: " & sCurrentFile ) - if ( not hFileOpen( sCurrentFile ) ) then - warnlog( "Unable to read file" ) - goto endsub - endif - - printlog( "Save file locally, overwriting existing" ) - if ( not hFileSaveAsKill( sTemporaryFile & sExtractedExtension ) ) then - warnlog( "Unable to save file locally" ) - goto endsub - endif - - printlog( "Select the first OLE object via Navigator" ) - call fSelectFirstOLE - - printlog( "Enter in-place editing mode" ) - hLoSaInplaceEditing() - - printlog( "Type <Escape> to exit in-place editing mode" ) - hLoSaEscape() - - printlog( "Save file as " & sOutputFile & " using filter: " & gsFileFormat ) - if ( not hFileSaveAsWithFilterKill ( sOutputFile , gsFileFormat ) ) then - warnlog( "Saving the document failed using filter: " & gsFileFormat ) - goto endsub - endif - - printlog( "Close the document" ) - hCloseDocument() - - printlog( "Reload document" ) - if ( not hFileOpen(sOutputFile) ) then - warnlog( "Failed to reload document" ) - goto endsub - endif - - printlog( "Select the first (and only) OLE object" ) - call fSelectFirstOLE - - printlog( "Enter in-place editing mode" ) - hLoSaInplaceEditing() - - printlog( "Type <Escape> to exit in-place editing mode" ) - hLoSaEscape() - - printlog( "Close the document" ) - call hCloseDocument() - -endcase - |