diff options
Diffstat (limited to 'testautomation/writer/optional/includes/undo/w_undo_history_2.inc')
| -rwxr-xr-x | testautomation/writer/optional/includes/undo/w_undo_history_2.inc | 844 |
1 files changed, 422 insertions, 422 deletions
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc index a2f305a45f8c..00ab93506eee 100755 --- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc +++ b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Writer Undo-History - Test '* @@ -33,496 +33,496 @@ sub w_undo_history_2 - ' a > 20 characters long string - Call tUndoOverwriteLong ' Typing & Overwrite - Call tUndoFindAndReplaceLong ' Replace - Call tUndoDeleteMultiSelection ' Delete a multi-selection - Call tUndoParagraph ' Paragraphs - Call tUndoClipboard ' Copy/Paste - Call tUndoChanges ' Changes accept an reject - Call tUndoLineBreak ' Manual breaks - line break - Call tUndoColumnBreak ' Manual breaks - column break - Call tUndoPageBreak ' Manual breaks - page break - Call tUndoFields ' Fields (Insert/Modify / Delete) - Call tUndoSpecialCharacter ' Special Character (Insert/ Delete) - Call tUndoStyles ' Styles (Apply/Modify/Find&Replace/Promote/Demote) + ' a > 20 characters long string + Call tUndoOverwriteLong ' Typing & Overwrite + Call tUndoFindAndReplaceLong ' Replace + Call tUndoDeleteMultiSelection ' Delete a multi-selection + Call tUndoParagraph ' Paragraphs + Call tUndoClipboard ' Copy/Paste + Call tUndoChanges ' Changes accept an reject + Call tUndoLineBreak ' Manual breaks - line break + Call tUndoColumnBreak ' Manual breaks - column break + Call tUndoPageBreak ' Manual breaks - page break + Call tUndoFields ' Fields (Insert/Modify / Delete) + Call tUndoSpecialCharacter ' Special Character (Insert/ Delete) + Call tUndoStyles ' Styles (Apply/Modify/Find&Replace/Promote/Demote) end sub testcase tUndoOverwriteLong - '/// <B>Typing & overwrite a > 20 characters long string</B> - '/// new document - Call hNewDocument - '/// <U><B>CHECK: Typing</B></U> - printlog "- TYPING" - '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters - Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" ) - '/// string in Undo list has to be: Typing: ThisSente...aracters - Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" ) - - '/// <U><B>CHECK: Overwrite</B></U> - printlog "- OVERWRITE" - '/// press 'Home' key - Call wTypeKeys "<Home>" - '/// press 'Ins' key - Call wTypeKeys "<Insert>" - '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten - Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) - '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten - Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" ) - - '/// CloseDocument - Call hCloseDocument + '/// <B>Typing & overwrite a > 20 characters long string</B> + '/// new document + Call hNewDocument + '/// <U><B>CHECK: Typing</B></U> + printlog "- TYPING" + '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters + Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" ) + '/// string in Undo list has to be: Typing: ThisSente...aracters + Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" ) + + '/// <U><B>CHECK: Overwrite</B></U> + printlog "- OVERWRITE" + '/// press 'Home' key + Call wTypeKeys "<Home>" + '/// press 'Ins' key + Call wTypeKeys "<Insert>" + '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten + Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) + '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten + Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" ) + + '/// CloseDocument + Call hCloseDocument endcase testcase tUndoFindAndReplaceLong - '/// <B>Replace a > 20 characters long string</B> - '/// new Document - '/// <U><B>CHECK: Replace</B></U> - printlog "- REPLACE" - Call hNewDocument - '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten - Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) - '/// Select text - Call wTypeKeys ( "<Shift Home>" ) - '/// Edit / Find and Replace - EditSearchAndReplace - Kontext "FindAndReplace" - '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field - ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced" - '/// Choose Button 'Replace' and close dialog - ReplaceBtn.Click - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.Yes - catch - Active.Ok - endcatch - end if - end if - Kontext "FindAndReplace" - FindAndReplace.Close - Kontext "DocumentWriter" - '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced' - Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" ) - - '/// Close document - Call hCloseDocument + '/// <B>Replace a > 20 characters long string</B> + '/// new Document + '/// <U><B>CHECK: Replace</B></U> + printlog "- REPLACE" + Call hNewDocument + '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten + Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" ) + '/// Select text + Call wTypeKeys ( "<Shift Home>" ) + '/// Edit / Find and Replace + EditSearchAndReplace + Kontext "FindAndReplace" + '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field + ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced" + '/// Choose Button 'Replace' and close dialog + ReplaceBtn.Click + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.Ok + endcatch + end if + end if + Kontext "FindAndReplace" + FindAndReplace.Close + Kontext "DocumentWriter" + '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced' + Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoDeleteMultiSelection - '/// <B>Delete a multi-selection</B> - printlog "- Delete a multi-selection" - '/// new Document - Call hNewDocument - '/// write down: the deletion of a multi-selection - Call wTypeKeys ( "the deletion of a multi-selection" ) - '/// with Shift + F8 enter multi-selection mode - Call wTypeKeys ( "<SHIFT F8>" ) - '/// multi-select "the ", " a" and "multi-" - Call wTypeKeys ( "<MOD1 Left>" ) - Call wTypeKeys ( "<MOD1 SHIFT Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<SHIFT Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<MOD1 Left>", 2) - Call wTypeKeys ( "<Left>" ) - Call wTypeKeys ( "<MOD1 SHIFT Left>") - '/// Delete the multi-selection - Call wTypeKeys ( "<DELETE>" ) - '/// string in Undo-list has to be: 'Delete: multi-selection'" - Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" ) - '/// Close document - Call hCloseDocument + '/// <B>Delete a multi-selection</B> + printlog "- Delete a multi-selection" + '/// new Document + Call hNewDocument + '/// write down: the deletion of a multi-selection + Call wTypeKeys ( "the deletion of a multi-selection" ) + '/// with Shift + F8 enter multi-selection mode + Call wTypeKeys ( "<SHIFT F8>" ) + '/// multi-select "the ", " a" and "multi-" + Call wTypeKeys ( "<MOD1 Left>" ) + Call wTypeKeys ( "<MOD1 SHIFT Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<SHIFT Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<MOD1 Left>", 2) + Call wTypeKeys ( "<Left>" ) + Call wTypeKeys ( "<MOD1 SHIFT Left>") + '/// Delete the multi-selection + Call wTypeKeys ( "<DELETE>" ) + '/// string in Undo-list has to be: 'Delete: multi-selection'" + Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" ) + '/// Close document + Call hCloseDocument endcase testcase tUndoParagraph - '/// <B>Insert and delete a paragraph</B> - printlog "- Insert Paragraph" - '/// new document - Call hNewDocument - '/// press return to insert a new paragraph - Call wTypeKeys ( "<Return>" ) - '/// string in Undo-list has to be: "New paragraph" - Call CheckUndoStringInUndoList ( 8, "New Paragraph" ) - printlog "- Delete Paragraph" - '/// press Backspace to delete paragraph - Call wTypeKeys ( "<Backspace>" ) - '/// string in Undo-list has to be: "Delete paragraph" - Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" ) - - '/// close document - Call hCloseDocument + '/// <B>Insert and delete a paragraph</B> + printlog "- Insert Paragraph" + '/// new document + Call hNewDocument + '/// press return to insert a new paragraph + Call wTypeKeys ( "<Return>" ) + '/// string in Undo-list has to be: "New paragraph" + Call CheckUndoStringInUndoList ( 8, "New Paragraph" ) + printlog "- Delete Paragraph" + '/// press Backspace to delete paragraph + Call wTypeKeys ( "<Backspace>" ) + '/// string in Undo-list has to be: "Delete paragraph" + Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" ) + + '/// close document + Call hCloseDocument endcase testcase tUndoClipboard - Dim i as integer - - '/// <B>Copy / Paste</B> - printlog "- Copy/Paste" - '/// new document - Call hNewDocument - '/// Insert some text in document and copy it - Call wTypeKeys ( "CopyAndPasteInUndoList" ) - Call wTypeKeys ( "<Shift Home>" ) - EditCopy - Call wTypeKeys ( "<End><Return>" ) - '/// Paste the text in all available formats - For i = 1 to 4 - Sleep 2 - try - EditPasteSpecialWriter - catch - i=5 - endcatch - Kontext "InhaltEinfuegen" - try - Auswahl.Select i - printlog " - Paste as: " + Auswahl.GetSeltext - wait 500 - catch - Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats" - endcatch - InhaltEinfuegen.Ok - '/// string in Undo-list has to be: "Paste clipboard" - Call CheckUndoStringInUndoList ( 9 ) - Call wTypeKeys ( "<Return>" ) - next i - '/// close document - Call hCloseDocument + Dim i as integer + + '/// <B>Copy / Paste</B> + printlog "- Copy/Paste" + '/// new document + Call hNewDocument + '/// Insert some text in document and copy it + Call wTypeKeys ( "CopyAndPasteInUndoList" ) + Call wTypeKeys ( "<Shift Home>" ) + EditCopy + Call wTypeKeys ( "<End><Return>" ) + '/// Paste the text in all available formats + For i = 1 to 4 + Sleep 2 + try + EditPasteSpecialWriter + catch + i=5 + endcatch + Kontext "InhaltEinfuegen" + try + Auswahl.Select i + printlog " - Paste as: " + Auswahl.GetSeltext + wait 500 + catch + Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats" + endcatch + InhaltEinfuegen.Ok + '/// string in Undo-list has to be: "Paste clipboard" + Call CheckUndoStringInUndoList ( 9 ) + Call wTypeKeys ( "<Return>" ) + next i + '/// close document + Call hCloseDocument endcase testcase tUndoChanges - - '/// <B>Changes accept and reject</B> - printlog "- Changes accept and reject" - '/// new document - Call hNewDocument + + '/// <B>Changes accept and reject</B> + printlog "- Changes accept and reject" + '/// new document + Call hNewDocument UseBindings '/// Select Edit / Changes / Record EditChangesRecord - '/// Insert a string in document - Call wTypeKeys ( "This is a test" ) - '/// Select Edit / Changes / Accept or Reject + '/// Insert a string in document + Call wTypeKeys ( "This is a test" ) + '/// Select Edit / Changes / Accept or Reject EditChangesAcceptOrReject '/// Dialog 'Accept or reject changes' has to come up /// Kontext "Redlining" if Redlining.Exists then - '/// + Select tabpage 'List' - TabControl.SetPage TabListe - '/// + Select 'Accept All' - Akzeptieren.Click - Sleep 2 - '/// + Close Redlining dialog - Redlining.Close - else - Warnlog "Redlining dialog not up!" - Call hCloseDocument - goto endsub - end if - '/// string in Undo-list has to be: "Accept change: Insert 'this is a test'") - Call CheckUndoStringInUndoList ( 10, "Accept" ) - - '/// Insert a line break in document - Call wTypeKeys ( "<Return>" ) - '/// Insert a string in document - Call wTypeKeys ( "This is a test" ) - '/// Select Edit / Changes / Accept or Reject + '/// + Select tabpage 'List' + TabControl.SetPage TabListe + '/// + Select 'Accept All' + Akzeptieren.Click + Sleep 2 + '/// + Close Redlining dialog + Redlining.Close + else + Warnlog "Redlining dialog not up!" + Call hCloseDocument + goto endsub + end if + '/// string in Undo-list has to be: "Accept change: Insert 'this is a test'") + Call CheckUndoStringInUndoList ( 10, "Accept" ) + + '/// Insert a line break in document + Call wTypeKeys ( "<Return>" ) + '/// Insert a string in document + Call wTypeKeys ( "This is a test" ) + '/// Select Edit / Changes / Accept or Reject EditChangesAcceptOrReject '/// Dialog 'Accept or reject changes' has to come up /// Kontext "Redlining" if Redlining.Exists then - '/// + Select tabpage 'List' - TabControl.SetPage TabListe - '/// + Select 'Accept All' - wait 500 - ListItem.TypeKeys "<Up>" - wait 500 - Ablehnen.Click - Sleep 2 - '/// + Close Redlining dialog - Redlining.Close - else - Warnlog "Redlining dialog not up!" - Call hCloseDocument - goto endsub - end if - - '/// string in Undo-list has to be: "Reject change: Insert 'this is a test'") - Call CheckUndoStringInUndoList ( 10, "Reject" ) - - Call hCloseDocument + '/// + Select tabpage 'List' + TabControl.SetPage TabListe + '/// + Select 'Accept All' + wait 500 + ListItem.TypeKeys "<Up>" + wait 500 + Ablehnen.Click + Sleep 2 + '/// + Close Redlining dialog + Redlining.Close + else + Warnlog "Redlining dialog not up!" + Call hCloseDocument + goto endsub + end if + + '/// string in Undo-list has to be: "Reject change: Insert 'this is a test'") + Call CheckUndoStringInUndoList ( 10, "Reject" ) + + Call hCloseDocument endcase testcase tUndoLineBreak - '/// <B>Manual breaks (line breaks)</B> - printlog "Manual breaks (line breaks)" - printlog "- Insert line break" - '/// new document - Call hNewDocument - '/// Insert a line break (Shift return) - Call wTypeKeys ( "<SHIFT RETURN>" ) - '/// string in Undo-list has to be: "Insert line break") - Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" ) - - '/// Delete line break - printlog "- Delete line break" - Call wTypeKeys ( "<SHIFT RETURN><Backspace>" ) - '/// string in Undo-list has to be: "Delete line break") - Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Manual breaks (line breaks)</B> + printlog "Manual breaks (line breaks)" + printlog "- Insert line break" + '/// new document + Call hNewDocument + '/// Insert a line break (Shift return) + Call wTypeKeys ( "<SHIFT RETURN>" ) + '/// string in Undo-list has to be: "Insert line break") + Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" ) + + '/// Delete line break + printlog "- Delete line break" + Call wTypeKeys ( "<SHIFT RETURN><Backspace>" ) + '/// string in Undo-list has to be: "Delete line break") + Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoColumnBreak - '/// <B>Column breaks</B> - printlog "- Column breaks" - '/// new document - Call hNewDocument - '/// Format / Columns - FormatColumns - Kontext "FormatColumn" - '/// set number of columns to 2 - Columns.Settext 2 - FormatColumn.Ok - '/// Insert a column break (Strg+Shift+Return) - Call wTypeKeys ( "<Mod1 Shift Return>" ) - printlog "Insert a column break" - '/// string in Undo-list has to be: "Insert column break") - Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" ) - - '/// Delete a column break (Strg+Shift+Return+Backspace) - printlog "Delete a column break" - Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" ) - '/// string in Undo-list has to be: "Delete column break") - Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Column breaks</B> + printlog "- Column breaks" + '/// new document + Call hNewDocument + '/// Format / Columns + FormatColumns + Kontext "FormatColumn" + '/// set number of columns to 2 + Columns.Settext 2 + FormatColumn.Ok + '/// Insert a column break (Strg+Shift+Return) + Call wTypeKeys ( "<Mod1 Shift Return>" ) + printlog "Insert a column break" + '/// string in Undo-list has to be: "Insert column break") + Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" ) + + '/// Delete a column break (Strg+Shift+Return+Backspace) + printlog "Delete a column break" + Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" ) + '/// string in Undo-list has to be: "Delete column break") + Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoPageBreak - '/// <B>Page breaks</B> - printlog "- Page breaks" - '/// new document - Call hNewDocument - '/// Format / Columns - InsertManualBreak - Kontext "UmbruchEinfuegen" - printlog "Insert a page break" - Seitenumbruch.Check - UmbruchEinfuegen.Ok - '/// string in Undo-list has to be: "Insert page break") - Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" ) - - printlog "Delete a page break" - InsertManualBreak - Kontext "UmbruchEinfuegen" - '/// Insert a page break - Seitenumbruch.Check - UmbruchEinfuegen.Ok - Call wTypeKeys ( "<Backspace>" ) - '/// string in Undo-list has to be: "Delete page break") - Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" ) - - '/// Close document - Call hCloseDocument + '/// <B>Page breaks</B> + printlog "- Page breaks" + '/// new document + Call hNewDocument + '/// Format / Columns + InsertManualBreak + Kontext "UmbruchEinfuegen" + printlog "Insert a page break" + Seitenumbruch.Check + UmbruchEinfuegen.Ok + '/// string in Undo-list has to be: "Insert page break") + Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" ) + + printlog "Delete a page break" + InsertManualBreak + Kontext "UmbruchEinfuegen" + '/// Insert a page break + Seitenumbruch.Check + UmbruchEinfuegen.Ok + Call wTypeKeys ( "<Backspace>" ) + '/// string in Undo-list has to be: "Delete page break") + Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoFields - '/// <B>Fields (Insert/Modify / Delete)</B> - printlog "- Fields (Insert)" - '/// new document - Call hNewDocument - '/// Insert Field 'Date' - InsertFieldsDate - '/// string in Undo-list has to be: "Insert field") - Call CheckUndoStringInUndoList ( 10, "InsertField" ) - - printlog "- Fields (Modify)" - '/// Press Home-key - Call wTypeKeys ( "<Home>" ) - '/// Edit fields and select 4th entry in Format-list - EditFields - Kontext "FeldbefehlBearbeitenDokument" - Zahlenformat.Select 4 - FeldbefehlBearbeitenDokument.Ok - '/// string in Undo-list has to be: "Changed field") - Call CheckUndoStringInUndoList ( 10, "ChangedField" ) - - printlog "- Fields (Delete)" - '/// Press delete-key - Call wTypeKeys ( "<Delete>" ) - '/// string in Undo-list has to be: "Delete field") - Call CheckUndoStringInUndoList ( 10, "DeleteField" ) - - '/// Close document - Call hCloseDocument + '/// <B>Fields (Insert/Modify / Delete)</B> + printlog "- Fields (Insert)" + '/// new document + Call hNewDocument + '/// Insert Field 'Date' + InsertFieldsDate + '/// string in Undo-list has to be: "Insert field") + Call CheckUndoStringInUndoList ( 10, "InsertField" ) + + printlog "- Fields (Modify)" + '/// Press Home-key + Call wTypeKeys ( "<Home>" ) + '/// Edit fields and select 4th entry in Format-list + EditFields + Kontext "FeldbefehlBearbeitenDokument" + Zahlenformat.Select 4 + FeldbefehlBearbeitenDokument.Ok + '/// string in Undo-list has to be: "Changed field") + Call CheckUndoStringInUndoList ( 10, "ChangedField" ) + + printlog "- Fields (Delete)" + '/// Press delete-key + Call wTypeKeys ( "<Delete>" ) + '/// string in Undo-list has to be: "Delete field") + Call CheckUndoStringInUndoList ( 10, "DeleteField" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoSpecialCharacter - '/// <B>Special Character (Insert / Delete )</B> - printlog "- Special Character (Insert)" - '/// new document - Call hNewDocument - '/// Insert a special Character + '/// <B>Special Character (Insert / Delete )</B> + printlog "- Special Character (Insert)" + '/// new document + Call hNewDocument + '/// Insert a special Character InsertSpecialCharacterWriter Kontext "Sonderzeichen" - SchriftListe.TypeKeys "<Home>" - SchriftListe.TypeKeys "<Right>", 3 - Sonderzeichen.Ok - '/// string in Undo-list has to be: "Insert special character") - Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" ) - - printlog "- Special Character (Delete)" - '/// Delete special character with <Backspace> - Call wTypeKeys ("<Backspace>" ) - Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" ) - - '/// Close document - Call hCloseDocument + SchriftListe.TypeKeys "<Home>" + SchriftListe.TypeKeys "<Right>", 3 + Sonderzeichen.Ok + '/// string in Undo-list has to be: "Insert special character") + Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" ) + + printlog "- Special Character (Delete)" + '/// Delete special character with <Backspace> + Call wTypeKeys ("<Backspace>" ) + Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" ) + + '/// Close document + Call hCloseDocument endcase testcase tUndoStyles - Dim i as integer, StyleText as string, UndoText as string - Dim NewStyle as string - - '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B> - printlog "- Styles (Apply)" - '/// new document - Call hNewDocument - '/// type some text - Call wTypeKeys ( "I have the new style" ) - '/// Select text - Call wTypeKeys ( "<Shift Home>" ) - '/// Apply Style to a newly created style - Call wStyleCreate ( "AUndoHistory", "Paragraph" ) - '/// string in Undo-list has to be: "Apply styles: AUndoHistory") - Call CheckUndoStringInUndoList ( 10, "ApplyStyles" ) - - '/// Modify Style through Stylist - if wStyleSelect ( "AUndoHistory" ) = false then - Warnlog "Defined style has not been found in Stylist->Test aborted" - Call hCloseDocument - goto endsub - end if - - Vorlagenliste.OpenContextMenu - Call hMenuSelectNr(2) - Kontext - Active.Setpage TabFontEffects - Kontext "TabFontEffects" - FontColor.Select FontColor.GetItemCount - TabFontEffects.Ok - Sleep 1 - '/// string in Undo-list has to be: "Change styles: AUndoHistory") - Call CheckUndoStringInUndoList ( 10, "ChangeStyles" ) - - printlog "Styles (Replace)" - '/// Edit / Search and Replace - EditSearchAndReplace - kontext "FindAndReplace" - if SearchForStyles.IsVisible = False then More.Click - SearchForStyles.Check - Sleep 1 - ReplaceWithStyle.Select 4 - wait 500 - ReplaceBtn.Click - NewStyle = ReplaceWithStyle.GetSelText - Select Case iSprache - Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle - Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle - Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle - Case else: QAErrorlog "Please adapt test for this language" - end select - wait 500 - Kontext "Active" - if Active.Exists then - if Active.GetRT = 304 then - try - Active.Yes - catch - Active.Ok - endcatch - end if - end if - kontext "FindAndReplace" - SearchForStyles.UnCheck - FindAndReplace.Close - - '/// string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...") - Kontext "StandardBar" - try - Undo.OpenMenu - Kontext "UndoRedoBox" - UndoText = UndoRedoList.GetItemText(1) - if UndoText <> StyleText then - Warnlog "Wrong text in Undo-List: " & UndoText - end if - Kontext "StandardBar" - Undo.Click - catch - Warnlog "Something wrong checking Undo-List!" - endcatch - - printlog "Styles (Promote)" - '/// point cursor to beginning of document - Call wTypeKeys ( "<Mod1 Home>" ) - ' To promote style it has to be in the heading group - ToolsOutlineNumbering - Kontext - Active.SetPage TabKapitelnumerierung - Kontext "TabKapitelnumerierung" - Absatzvorlage.Select NewStyle - TabKapitelnumerierung.Ok - - Call wNavigatorAuswahl ( 1, 1, true ) - Kontext "NavigatorWriter" - '/// Select Promote in Navigator - try - Senken.Click - '/// string in Undo-list has to be: "Demote Outline") - Call CheckUndoStringInUndoList ( 10, "DemoteOutline" ) - catch - Warnlog "Unable to demote outline" - endcatch - - '/// Select Demote in Navigator - printlog "Styles (Demote)" - Kontext "NavigatorWriter" - try - Senken.Click - '/// string in Undo-list has to be: "Promote Outline") - Call CheckUndoStringInUndoList ( 10, "PromoteOutline" ) - catch - Warnlog "Unable to promote outline" - endcatch - - '/// CloseDocument - Call hCloseDocument + Dim i as integer, StyleText as string, UndoText as string + Dim NewStyle as string + + '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B> + printlog "- Styles (Apply)" + '/// new document + Call hNewDocument + '/// type some text + Call wTypeKeys ( "I have the new style" ) + '/// Select text + Call wTypeKeys ( "<Shift Home>" ) + '/// Apply Style to a newly created style + Call wStyleCreate ( "AUndoHistory", "Paragraph" ) + '/// string in Undo-list has to be: "Apply styles: AUndoHistory") + Call CheckUndoStringInUndoList ( 10, "ApplyStyles" ) + + '/// Modify Style through Stylist + if wStyleSelect ( "AUndoHistory" ) = false then + Warnlog "Defined style has not been found in Stylist->Test aborted" + Call hCloseDocument + goto endsub + end if + + Vorlagenliste.OpenContextMenu + Call hMenuSelectNr(2) + Kontext + Active.Setpage TabFontEffects + Kontext "TabFontEffects" + FontColor.Select FontColor.GetItemCount + TabFontEffects.Ok + Sleep 1 + '/// string in Undo-list has to be: "Change styles: AUndoHistory") + Call CheckUndoStringInUndoList ( 10, "ChangeStyles" ) + + printlog "Styles (Replace)" + '/// Edit / Search and Replace + EditSearchAndReplace + kontext "FindAndReplace" + if SearchForStyles.IsVisible = False then More.Click + SearchForStyles.Check + Sleep 1 + ReplaceWithStyle.Select 4 + wait 500 + ReplaceBtn.Click + NewStyle = ReplaceWithStyle.GetSelText + Select Case iSprache + Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle + Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle + Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle + Case else: QAErrorlog "Please adapt test for this language" + end select + wait 500 + Kontext "Active" + if Active.Exists then + if Active.GetRT = 304 then + try + Active.Yes + catch + Active.Ok + endcatch + end if + end if + kontext "FindAndReplace" + SearchForStyles.UnCheck + FindAndReplace.Close + + '/// string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...") + Kontext "StandardBar" + try + Undo.OpenMenu + Kontext "UndoRedoBox" + UndoText = UndoRedoList.GetItemText(1) + if UndoText <> StyleText then + Warnlog "Wrong text in Undo-List: " & UndoText + end if + Kontext "StandardBar" + Undo.Click + catch + Warnlog "Something wrong checking Undo-List!" + endcatch + + printlog "Styles (Promote)" + '/// point cursor to beginning of document + Call wTypeKeys ( "<Mod1 Home>" ) + ' To promote style it has to be in the heading group + ToolsOutlineNumbering + Kontext + Active.SetPage TabKapitelnumerierung + Kontext "TabKapitelnumerierung" + Absatzvorlage.Select NewStyle + TabKapitelnumerierung.Ok + + Call wNavigatorAuswahl ( 1, 1, true ) + Kontext "NavigatorWriter" + '/// Select Promote in Navigator + try + Senken.Click + '/// string in Undo-list has to be: "Demote Outline") + Call CheckUndoStringInUndoList ( 10, "DemoteOutline" ) + catch + Warnlog "Unable to demote outline" + endcatch + + '/// Select Demote in Navigator + printlog "Styles (Demote)" + Kontext "NavigatorWriter" + try + Senken.Click + '/// string in Undo-list has to be: "Promote Outline") + Call CheckUndoStringInUndoList ( 10, "PromoteOutline" ) + catch + Warnlog "Unable to promote outline" + endcatch + + '/// CloseDocument + Call hCloseDocument endcase |