diff options
Diffstat (limited to 'testautomation/writer/optional/includes/undo/w_undo_history_3.inc')
-rwxr-xr-x | testautomation/writer/optional/includes/undo/w_undo_history_3.inc | 687 |
1 files changed, 687 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc new file mode 100755 index 000000000000..ded462ff63c1 --- /dev/null +++ b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc @@ -0,0 +1,687 @@ +'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 : helge.delfs@oracle.com +'* +'* short description : Writer Undo-History - Test +'* +'\*********************************************************************** + +sub w_undo_history_3 + + Call tUndoSection ' Section (Insert/Modify/Delete) + Call tUndoHyperlink ' Hyperlink (Insert as Text/as URL button) + Call tUndoFootnote ' Footnote (Insert/Modify/Delete) + Call tUndoCaption ' Insert Caption + Call tUndoAutoText ' Insert Autotext + Call tUndoBookmark ' Bookmark (Insert/Rename/Delete) + Call tUndoComment ' Comment (Insert/Delete) + Call tUndoScript ' Script (Insert/Delete) + Call tUndoIndexes ' Index/Bibliography entrys (Insert/Delete) + Call tUndoFrames ' Frames (Insert/Rename/Delete) + Call tUndoTableGeneral ' Tables Part 1 + Call tUndoTableOptionsMerge ' Tables Part 2 + Call tUndoTableConvertSort ' Tables Part 3 + Call tUndoTableSplitDelete ' Tables Part 4 + Call tUndoHorizontalRuler ' Horizontal ruler + Call tUndoGraphics ' Graphics (Insert/Replace/Delete) + +end sub + +testcase tUndoSection + + '/// <B>Section (Insert/Modify/Delete)</B> + printlog "Section (Insert)" + '/// new document + Call hNewDocument + '/// Insert a section + InsertSection + Kontext + Active.Setpage TabBereiche + Kontext "TabBereiche" + TabBereiche.Ok + '/// string in Undo-list has to be: "Insert section") + Call CheckUndoStringInUndoList ( 10, "InsertSection" ) + + printlog "Section (Modify)" + '/// Open navigator and select section + Call wNavigatorAuswahl ( 7, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + + '/// Change Background-Color + Kontext "BereicheBearbeiten" + Optionen.Click + Kontext + Active.Setpage TabHintergrund + Kontext "TabHintergrund" + Hintergrundfarbe.TypeKeys "<Down>", 5 + TabHintergrund.Ok + + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Ok + '/// string in Undo-list has to be: "Modify section") + Call CheckUndoStringInUndoList ( 10, "ModifySection" ) + + printlog "Section (Delete)" + '/// Open navigator and select section + Call wNavigatorAuswahl ( 7, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + '/// In 'Edit sections' dialog choose 'remove' + Kontext "BereicheBearbeiten" + Aufheben.Click + BereicheBearbeiten.Ok + '/// string in Undo-list has to be: "Delete section") + Call CheckUndoStringInUndoList ( 10, "DeleteSection" ) + + '/// Close Document + Call hCloseDocument + +endcase + + +testcase tUndoHyperlink + + '///<B>Hyperlink (Insert as Text/as URL button)</B> + printlog "- Insert hyperlink as text" + '/// new document + Call hNewDocument + '/// Insert / Hyperlink as Text + InsertHyperlink + '/// string in Undo-list has to be: "Insert Hyperlink") + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + Call wEinfuegenHyperlink(1) + ZielURL.SetText "www.sun.com" + Form.Select 1 + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else + warnlog( "Unable to open <HyperlinkDialog>" ) + endif + Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" ) + + Call wTypeKeys "<Return>" + + '/// Insert / Hyperlink as Button + printlog "- Insert hyperlink as Button" + InsertHyperlink + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + Call wEinfuegenHyperlink(1) + ZielURL.Settext "www.sun.com" + Form.Select 2 + Kontext "Hyperlink" + Uebernehmen.Click + kontext "HyperlinkDialog" + HyperlinkDialog.Close + else + warnlog( "Unable to open <HyperlinkDialog>" ) + endif + + '/// string in Undo-list has to be: "insert URL Button") + Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" ) + + '/// Close Document + Call hCloseDocument + +endcase + + +testcase tUndoFootnote + + '/// <B>Footnote (Insert/Modify/Delete)</B> + printlog "- Footnote (Insert)" + '/// new document + Call hNewDocument + '/// Insert / Footnote + InsertFootnote + Kontext "FussnoteEinfuegen" + FussnoteEinfuegen.Ok + '/// string in Undo-list has to be: "Insert footnote") + Call CheckUndoStringInUndoList ( 10, "InsertFootnote" ) + + printlog "- Footnote (Modify)" + '/// Tools/Footnote + ToolsFootnote + Kontext + Active.Setpage TabFussnoten + Kontext "TabFussnoten" + + '/// Change any option in footnote dialog + if Seitenende.IsChecked then + Dokumentende.Check + else + Seitenende.Check + end if + '/// Close dialog + TabFussnoten.Ok + '/// string in Undo-list has to be: "Modify footnote options") + Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" ) + + printlog "- Footnote (Delete)" + '/// Point cursor directly to the footnote anchor + Call wTypeKeys "<Mod1 Home>" + '/// press 'delete' to remove footnote + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete footnote options") + Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoCaption + + '/// <B>Insert a caption</B> + printlog "- Insert Caption" + '/// new document + Call hNewDocument + '/// Insert a graphic + Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) + '/// Insert / Caption + InsertCaption + Kontext "Beschriftung" + '/// Insert a caption more than 20 characters long + Beschriftungstext.Settext "This caption has more than 20 characters" + Beschriftung.Ok + + '/// string in Undo-list has to be: "Insert Caption: This capt...aracters") + Call CheckUndoStringInUndoList ( 10, "InsertCaption" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoAutoText + + '/// <B>Insert autotext</B> + printlog "- Insert autotext" + '/// new document + Call hNewDocument + '/// Insert dummy text + Call wBlindtextEinfuegen + + '/// string in Undo-list has to be: "Insert Auto Text") + Call CheckUndoStringInUndoList ( 10, "InsertAutotext" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoBookmark + + Warnlog "#i102310# - tUndoBookmark outcommented due to bug." + goto endsub + + + '/// <B>Bookmark (Insert/Rename/Delete)</B> + printlog "- Insert Bookmark" + '/// new document + Call hNewDocument + '/// Insert / Bookmark + InsertBookmark + Kontext "TextmarkeEinfuegen" + Textmarken.Settext "I'm a bookmark" + TextmarkeEinfuegen.Ok + '/// string in Undo-list has to be: "Insert Bookmark: I'm a bookmark") + Call CheckUndoStringInUndoList ( 10, "InsertBookmark" ) + + printlog "- Rename Bookmark" + '/// Open navigator and select bookmark + Call wNavigatorAuswahl ( 6, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + wait 500 + Call hMenuSelectNr(3) + wait 500 + Kontext "ObjekteUmbenennen" + Objektname.Settext "a book" + ObjekteUmbenennen.Ok + '/// string in Undo-list has to be: "Rename Bookmark: a book") + Call CheckUndoStringInUndoList ( 10, "RenameBookmark" ) + + printlog "- Delete Bookmark" + '/// Open navigator and select bookmark + Call wNavigatorAuswahl ( 6, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + wait 500 + Call hMenuSelectNr(4) + wait 500 + Call hMenuSelectNr(2) + wait 500 + '/// string in Undo-list has to be: "Rename Bookmark: a book") + Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoComment + + printlog "New document" + Call hNewDocument + printlog "Insert / Comment" + InsertNoteWriter + printlog "String in Undo-list has to be: 'Insert Comment'" + Call CheckUndoStringInUndoList ( 10, "InsertComment" ) + printlog "- Delete Comment" + printlog "Bring up the Navigator, find the entry 'Comments', expand it, and select the expanded section." + Call wNavigatorAuswahl( 11, 1 ) + kontext "Navigator" + Navigator.TypeKeys "<DELETE>" + '/// Close the Navigator + ViewNavigator + '/// string in Undo-list has to be: "Delete comment") + Call CheckUndoStringInUndoList ( 10, "DeleteComment" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoScript + + '/// <B>Script (Insert/Delete)</B> + printlog "- Insert Script" + '/// new document + Call hNewDocument + '/// Insert / Script + InsertScript + Kontext "ScriptEinfuegen" + ScriptEinfuegen.Ok + '/// string in Undo-list has to be: "Insert script") + Call CheckUndoStringInUndoList ( 10, "InsertScript" ) + + '/// Point cursor directly to the script + Call wTypeKeys "<Mod1 Home>" + '/// press 'delete' to remove script + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete script") + Call CheckUndoStringInUndoList ( 10, "DeleteScript" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoIndexes + + '/// <B>Indexes (Insert/Delete)</B> + printlog "- Insert Index entry" + '/// new document + Call hNewDocument + '/// Type a word + Call wTypeKeys "IndexEntry" + Call wTypeKeys "<Shift Home>" + '/// Insert / Indexes and Tables / Entry + InsertIndexesEntry + Kontext "VerzeichnisEintragEinfuegen" + EintragOk.Click + VerzeichnisEintragEinfuegen.Close + '/// string in Undo-list has to be: "Insert index entry") + Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" ) + + printlog "delete index entry with 'Backspace'" + Call wTypeKeys ( "<Backspace>" + '/// string in Undo-list has to be: "Delete index entry") + Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" ) + + '/// Type a word + Call wTypeKeys "BibliographyEntry" + Call wTypeKeys "<Shift Home>" + printlog "- Insert Bibliography entry" + printlog "Insert / Index / Bibliography entry" + InsertIndexesBibliographyEntry + Kontext "LiteratureintragEinfuegen" + EintragEinfuegen.Click + LiteratureintragEinfuegen.Close + '/// string in Undo-list has to be: "Insert bibliography entry") + Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" ) + + Printlog "delete bibliography entry with 'Backspace'" + Call wTypeKeys ( "<Backspace>" + '/// string in Undo-list has to be: "Delete bibliography entry") + Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoFrames + + warnlog( "#111909# - Cannot access <rename> item in context menu" ) + goto endsub + + '/// <B>Frames (Insert/Rename/Delete)</B> + printlog "- Insert Frame" + '/// new document + Call hNewDocument + '/// Insert / Frame + InsertFrame + Kontext + Active.Setpage TabZusaetze + Kontext "TabZusaetze" + ObjektName.Settext "MyFrame" + TabZusaetze.Ok + '/// string in Undo-list has to be: "Insert frame: MyFrame") + Call CheckUndoStringInUndoList ( 10, "InsertFrame" ) + + printlog "- Rename Frame" + '/// Open navigator and select frame + Call wNavigatorAuswahl ( 3, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Edit' + Auswahlliste.OpenContextMenu + Call hMenuSelectNr(4) + Call hMenuSelectNr(3) + Kontext "ObjekteUmbenennen" + Objektname.Settext "MyRenamedFrame" + ObjekteUmbenennen.Ok + '/// string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'") + Call CheckUndoStringInUndoList ( 10, "RenameFrame" ) + printlog "- Delete Frame" + '/// Type 'Del' to delete the frame + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'") + Call CheckUndoStringInUndoList ( 10, "DeleteFrame" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoTableGeneral + Dim sTableName as string + + '/// <B>Tables Part 1</B> + printlog "- insert table" + '/// new document + Call hNewDocument + '/// Insert a table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + sTableName = "MyTable" + Tabellenname.Settext sTableName + TabelleEinfuegenWriter.Ok + '/// string in Undo-list has to be: "Insert table") + Call CheckUndoStringInUndoList ( 10, "InsertTable" ) + printlog "- Insert a row" + '/// <B>Insert a row</B> + Call hToolbarSelect("Table", true) + ZeileEinfuegen.Click + '/// string in Undo-list has to be: "Insert row") + Call CheckUndoStringInUndoList ( 10, "InsertRow" ) + printlog "- Insert a column" + '/// <B>Insert a column</B> + Call hToolbarSelect("Table", true) + SpalteEinfuegen.Click + '/// string in Undo-list has to be: "Insert column") + Call CheckUndoStringInUndoList ( 10, "InsertColumn" ) + printlog "- Delete a row" + '/// <B>Delete a row</B> + Call hToolbarSelect("Table", true) + ZeileLoeschen.Click + '/// string in Undo-list has to be: "Delete row") + Call CheckUndoStringInUndoList ( 10, "DeleteRow" ) + printlog "- Delete a column" + '/// <B>Delete a column</B> + Call hToolbarSelect("Table", true) + SpalteLoeschen.Click + '/// string in Undo-list has to be: "Delete column") + Call CheckUndoStringInUndoList ( 10, "DeleteColumn" ) + printlog "- format a cell" + '/// <B>Format cell (enable number recognition form that)</B> + ToolsOptions + Call hToolsOptions ("WRITER","Table") + if Not AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.Check + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.Cancel + + '/// type '1' in a cell + Call wTypeKeys ( "1" ) + Call wTypeKeys ( "<Right>" ) + '/// string in Undo-list has to be: "Format cell") + Call CheckUndoStringInUndoList ( 10, "FormatCell" ) + + ToolsOptions + Call hToolsOptions ("WRITER","Table") + if AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.UnCheck + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.Cancel + + '/// CloseDocument + Call hCloseDocument +endcase + + +testcase tUndoTableOptionsMerge + + '/// <B>Tables Part 2</B> + printlog "- apply table attributes" + '/// new document + Call hNewDocument + '/// Insert a table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + + printlog "- apply attributes" + '/// Format / Table + FormatTable + '/// change some table options + Kontext + Active.Setpage TabTextflussTabelle + Kontext "TabTextflussTabelle" + if Umbruch.IsChecked then + Umbruch.Uncheck + else + Umbruch.Check + end if + TabTextflussTabelle.Ok + '/// string in Undo-list has to be: "Apply table attributes") + Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" ) + + printlog "- merge tables" + '/// <B>Merge tables</B> + Call wTypeKeys ( "<Down>" ,2 ) + '/// Insert a second table + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + '/// Format / Merge / Tables + FormatMergeTables + '/// string in Undo-list has to be: "Merge table") + Call CheckUndoStringInUndoList ( 10, "MergeTable" ) + + '/// close Document + Call hCloseDocument +endcase + + +testcase tUndoTableConvertSort + + '/// <B>Tables Part 3</B> + printlog "- Convert to text" + '/// new document + Call hNewDocument + '/// Insert text "This<Return>is a<Return>table to text<Return>text" + Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text") + '/// select all + Call wTypeKeys ( "<Mod1 A>" ) + '/// Format / Text <-> Table + ToolsTextInTable + Kontext "TextInTabelleUmwandeln" + TextInTabelleUmwandeln.OK + '/// string in Undo-list has to be: "Convert table -> text") + Call CheckUndoStringInUndoList ( 10, "ConvertTable" ) + + printlog "- Sort table" + '/// <B>Sort table</B> + Call wTypeKeys ( "<Mod1 A>", 2 ) + '/// Select all -> Tools / Sort + ToolsSort + Kontext "Sortieren" + Sortieren.Ok + '/// string in Undo-list has to be: "Sort table") + Call CheckUndoStringInUndoList ( 10, "SortTable" ) + + '/// Close Document + Call hCloseDocument +endcase + + +testcase tUndoTableSplitDelete + + '/// <B>Tables Part 4</B> + printlog "- Split tables" + '/// new document + Call hNewDocument + '/// Insert 2 tables + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabelleEinfuegenWriter.Ok + Call wTypeKeys ( "<Down>", 3 ) + InsertTableWriter + Kontext "TabelleEinfuegenWriter" + TabellenName.Settext "AnotherTable" + TabelleEinfuegenWriter.Ok + '/// MergeTables + FormatMergeTables + wait 500 + '/// Split tables + FormatSplitTable + Kontext "TabelleAuftrennen" + TabelleAuftrennen.Ok + '/// string in Undo-list has to be: "Split table") + Call CheckUndoStringInUndoList ( 10, "SplitTable" ) + + '/// <B>Delete table</B> + printlog "- Delete table" + '/// Open navigator and select table + Call wNavigatorAuswahl ( 2, 1, true ) + Kontext "NavigatorWriter" + '/// Open contextmenu and choose 'Delete' + Auswahlliste.OpenContextMenu + Call hMenuSelectNr(4) + Call hMenuSelectNr(2) + '/// string in Undo-list has to be: "Delete table: 'AnotherTable'") + Call CheckUndoStringInUndoList ( 10, "DeleteTable" ) + + '/// Close document + Call hCloseDocument +endcase + + +testcase tUndoHorizontalRuler + + '/// <B>HorizontalRuler</B> + printlog "- Horizontal ruler" + '/// new document + Call hNewDocument + '/// Insert / Horizontal Line + InsertHorizontalLine + '/// Select one line + Kontext "HorizontaleLinieEinfuegen" + Auswahl.TypeKeys "<Down>", 4 + HorizontaleLinieEinfuegen.Ok + '/// string in Undo-list has to be: "Insert horizontal ruler") + Call CheckUndoStringInUndoList ( 10, "InsertRuler" ) + + '/// close document + Call hCloseDocument +endcase + + +testcase tUndoGraphics + + '/// <B>Graphics (Insert/Delete/Replace)</B> + printlog "- Insert graphics from file" + '/// new document + Call hNewDocument + '/// Insert a graphic from file + Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" ) + '/// string in Undo-list has to be: "Insert graphics") + Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) + + '/// <B>Delete graphic</B> + printlog "- delete graphic" + '/// press 'delete' to remove graphic + Call wTypeKeys "<Delete>" + '/// string in Undo-list has to be: "Delete graphics") + Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" ) + + '/// <B>Insert graphic from gallery</B> + printlog "- insert graphic from gallery" + Kontext "Gallery" + if Gallery.NotExists(2) then ToolsGallery + Sleep (2) + + View.OpenContextMenu + Call hMenuSelectNr(1) + Call hMenuSelectNr(1) + '/// string in Undo-list has to be: "Insert graphics") + Call CheckUndoStringInUndoList ( 10, "InsertGraphic" ) + Sleep (1) + + '/// <B>Replace graphic</B> + printlog "- replace graphic" + '/// Insert another graphics from gallery + Kontext "Gallery" + View.OpenContextMenu + Call hMenuSelectNr(1) + Call hMenuSelectNr(1) + '/// string in Undo-list has to be: "Replace graphics") + Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" ) + + '/// Close gallery + Kontext "Gallery" + if Gallery.Exists then ToolsGallery + + '/// Close document + Call hCloseDocument +endcase |