diff options
Diffstat (limited to 'testautomation/writer/optional/includes/number/w_207_.inc')
-rwxr-xr-x | testautomation/writer/optional/includes/number/w_207_.inc | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/number/w_207_.inc b/testautomation/writer/optional/includes/number/w_207_.inc new file mode 100755 index 000000000000..690695a1acc8 --- /dev/null +++ b/testautomation/writer/optional/includes/number/w_207_.inc @@ -0,0 +1,181 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: w_207_.inc,v $ +'* +'* $Revision: 1.3 $ +'* +'* last change: $Author: rt $ $Date: 2008-09-04 09:19:53 $ +'* +'* 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 : helge.delfs@sun.com +'* +'* short description : Testing Number and Bullets +'* +'\*********************************************************************** + +sub w_207_ + + Call tToolsNumbering12 + Call tToolsNumbering13 + +end sub + +'------------------------------------------------------------------------------------------------------------------------ + +testcase tToolsNumbering12 + + printlog "Import / Export Regression Test" + '/// Import / Export Regression-Test + Dim DocFileList( 30 ) as String, sCurrentFilter as string + Dim sSourcePath as String, sCurrentFilterExt as string + Dim iCurrentDocument as Integer + Dim iDocumentType as Integer + Dim ExportFileName as string + + ReDim DocFileList( 30 ) as String + + '/// load all documents from "sun_writer\optional\input\number\regression" + sSourcePath = convertpath( gTesttoolPath & "writer\optional\input\number\regression\" ) + GetFileList ( sSourcePath, "*.*", DocFileList() ) + hListPrint( DocFileList(), "Files to be loaded" ) + + printlog( "Start loading and exporting files" ) + for iCurrentDocument = 1 to ListCount ( DocFileList() ) + printlog( "File: " & DocFileList( iCurrentDocument ) ) + For iDocumentType = 1 to 3 + Select Case iDocumentType + Case 1 + sCurrentFilter = "writer8" 'gWriterFilter + sCurrentFilterExt = "odt" 'WriterFilterExtension(0) + Case 2 + sCurrentFilter = "StarOffice XML (Writer)" 'hGetUIFiltername("StarOffice XML (Writer)") & " (.sxw)" + sCurrentFilterExt = "sxw" + Case 3 + sCurrentFilter = "StarWriter 5.0" 'StarWriter 5.0 (.sdw) + sCurrentFilterExt = "sdw" + end select + + printlog( "Open file: " & DocFileList( iCurrentDocument ) ) + Call hFileOpen ( DocFileList( iCurrentDocument ) ) + + printlog( "Make a copy if the file is write protected" ) + Call sMakeReadOnlyDocumentEditable + + printlog( "Test for unexpected dialog: Filter Selection" ) + Kontext "Filterauswahl" + if ( Filterauswahl.Exists( 1 ) ) then + Warnlog " - Filter Selection dialog is up !" + Filterauswahl.Cancel + hFileCloseAll() + goto endsub + endif + + printlog( "Test for unexpected dialog: ASCII Filter Options" ) + Kontext "AsciiFilterOptionen" + if ( AsciiFilterOptionen.Exists() ) then + AsciiFilterOptionen.Ok + hFileCloseAll() + goto endsub + endif + + printlog( "Allow macro execution (if general setting permit" ) + hAllowMacroExecution() + + '/// check if loaded + if ( GetDocumentCount <= 2 ) then + ExportFileName = ConvertPath ( gOfficePath & "user\work\" & _ + DateiOhneExt(DateiExtract ( DocFileList( iCurrentDocument ) ) ) & _ + "." & sCurrentFilterExt ) + hDeleteFile( ExportFileName ) ' There should never be a reason to overwrite + + printlog " - export as: " & ExportFileName + Call hFileSaveAsWithFilter( ExportFileName, sCurrentFilter ) + Call hCloseDocument + + printlog " - load previous saved document" + Call hFileOpen ( ExportFileName ) + + printlog " - close document" + hFileCloseAll() + else + Warnlog " - Doc probably didn't get loaded !!!" + end if + next iDocumentType + next iCurrentDocument + +endcase + +'------------------------------------------------------------------------------------------------------------------------ + +testcase tToolsNumbering13 + + Dim i as integer, iCounter as integer + '/// #i73790 Regression testing + '/// This testcase loads a Worddocument that lost all formattings + printlog "#i73790 regression testing" + '/// Load document 'writer\\optional\\input\\number\\regression\\73790.doc' + Call hFileOpen ( gTesttoolPath + "writer\optional\input\number\regression\73790.doc" ) + Call sMakeReadOnlyDocumentEditable + '/// Document has Heading1-Heading3 formatted, be sure it is + call wTypeKeys ("<Mod1 Home>") + '/// Point cursor to top of document with <STRG HOME> + Select Case iSprache + case 01 : iCounter = 2 + case 03 : iCounter = 1 + case 07 : iCounter = 2 + case 31 : iCounter = 1 + case 33 : iCounter = 3 + case 34 : iCounter = 2 + case 36 : iCounter = 2 + case 39 : iCounter = 2 + case 45 : iCounter = 1 + case 46 : iCounter = 2 + case 48 : iCounter = 2 + case 49 : iCounter = 3 + case 55 : iCounter = 3 + case 81 : iCounter = 3 + case 82 : iCounter = 1 + case 86 : iCounter = 1 + case 88 : iCounter = 3 + case else : iCounter = 2 + end select + For i = 1 to 3 + call wTypeKeys ("<Shift End>") + '/// Select first to third entry and check it i formatted with 'Heading1','Heading2','Heading3' + Kontext "Textobjectbar" + if Vorlage.GetSelIndex <> ( i + iCounter ) then + Warnlog "Heading " & i & " not " & ( i + iCounter ) & " but " & Vorlage.GetSelIndex + end if + call wTypeKeys ( "<Home>" ) + call wTypeKeys ( "<Down>" ) + next i + + printlog " Close active document " + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop +endcase |