diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_009.inc')
| -rw-r--r-- | testautomation/graphics/required/includes/global/id_009.inc | 280 |
1 files changed, 280 insertions, 0 deletions
diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc new file mode 100644 index 000000000000..3680dfafbc4f --- /dev/null +++ b/testautomation/graphics/required/includes/global/id_009.inc @@ -0,0 +1,280 @@ +'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 : wolfram.garten@oracle.com +'* +'* short description : Testcases to test the Help-Menu. +'* +'\****************************************************************************** +sub id_009 + + printLog Chr(13) + "--------- id_009 ----------" + + call tCheckIfTheHelpExists + Call tmHelpContents + Call tmHelpHelpAgent + Call tmHelpTips + Call tmHelpExtendedTips + Call tmHelpAboutStarOffice + +end sub +'------------------------------------------------------------------------------ + +testcase tmHelpHelpAgent + Call hNewDocument + hTBOtypeInDoc + HelpHelpAgent ' it's just a switch + sleep 2 + HelpHelpAgent + Call hCloseDocument +endcase 'tmHelpHelpAgent + +'------------------------------------------------------------------------------ + +testcase tmHelpTips + Call hNewDocument + hTBOtypeInDoc + HelpTips + Sleep 2 + HelpTips + Call hCloseDocument +endcase 'tmHelpTips + +'------------------------------------------------------------------------------ + +testcase tmHelpExtendedTips + Call hNewDocument + hTBOtypeInDoc + HelpEntendedHelp + Sleep (2) + HelpEntendedHelp + Call hCloseDocument +endcase 'tmHelpExtendedTips + +'------------------------------------------------------------------------------ + +testcase tmHelpAboutStarOffice + Call hNewDocument + hTBOtypeInDoc + HelpAboutStarOffice + Kontext "UeberStarMath" + DialogTest (UeberStarMath) + UeberStarMath.OK + Call hCloseDocument +endcase 'tmHelpAboutStarOffice + +'------------------------------------------------------------------------------ + +testcase tmHelpContents + dim i as integer + + printlog "open application" + Call hNewDocument + printlog "Help->Contents" + HelpContents + sleep(8) + kontext "StarOfficeHelp" + if Not StarOfficeHelp.Exists then + Warnlog "Help is not up!" + else + printlog "get the number of entries in the listbox 'select Help modul'" + Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" + printlog "on the left half of the dialog:" + printlog "change to the tabpage 'Contents'" + TabControl.SetPage ContentPage + printlog "get the number of entries in the listbox 'MAin help themes'" + Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" + printlog "change to the tabpage 'Index'" + TabControl.SetPage IndexPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" + sleep 5 + printlog "click on button 'Display'" + DisplayIndex.Click + sleep 5 + printlog "change to the tabpage 'Find'" + TabControl.SetPage FindPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" + printlog "If the Search-Text-Field is empty - Check that the Find-button is deactivated" + if SearchFind.GetSelText = "" then + if FindButton.IsEnabled then + warnlog " The Find-Button should have been inactive, but was active." + endif + else + warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText + endif + printlog "Insert some irrelevant text to get 0 results from the search." + SearchFind.SetText "Doobbidedooo" + printlog "click on button 'Find'" + FindButton.Click + kontext + printlog "Messagebox comes up about: 'No topics found.' say OK" + if (active.exists (2) )then + Printlog "active came up: '" + active.gettext + "'" + active.ok + endif + kontext "StarOfficeHelp" + printlog "check checkbox 'Complete words only' " + FindFullWords.Check + printlog "check checkbox 'Find in headings only' " + FindInHeadingsOnly.Check + printlog "get the number of entries in the listbox 'List of headings'" + Printlog "Result: '" + Result.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayFind.Click + printlog "change to the tabpage 'Bookmarks'" + TabControl.SetPage BookmarksPage + printlog "get the number of entries in the listbox 'Bookmark list'" + Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayBookmarks.Click + printlog "on the right half of teh dialog:" + Kontext "TB_Help" + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'First Page'" + GoToStart.Click + sleep 1 + printlog "click on button 'Previous Page'" + Backward.Click + sleep 1 + printlog "click on button 'Next Page'" + Forward.Click + sleep 1 + printlog "click on button 'Print ...'" + PrintButton.Click + sleep (1) + kontext "Active" + if Active.Exists( 2 ) then + qaerrorlog "No default printer defined: " & Active.GetText + Active.Ok + end if + kontext "Printing" + if Printing.Exists( 2 ) then + printlog "In the dialog 'Print' press the button 'Cancel'" + Printing.cancel + else + warnlog "the Print-Dialogue didnt appear." + end if + Kontext "TB_Help" + printlog "click on button 'Add to Bookmarks ...'" + sleep 1 + SetBookmarks.Click + sleep 1 + Kontext "AddBookmark" + printlog "on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel'" + Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" + AddBookmark.Cancel + sleep 1 + '################ help display ################ + kontext "HelpContent" + printlog "open the Context Menu of the Frame 'Help Content' and count the entries" + HelpContent.OpenContextMenu + sleep 1 + Printlog " i: " + hMenuItemGetCount + hMenuClose() + '################ right scroolbar ################ + kontext "HelpContent" + printlog "click on button 'Previous Page'" + if HelpContentUP.IsVisible then + HelpContentUP.Click + sleep 1 + endif + printlog "click on button 'Navigation'" + if HelpContentNAVIGATION.IsVisible then + HelpContentNAVIGATION.Click + sleep 1 + endif + kontext "NavigationsFenster" + printlog "on the toolbox 'Navigation' press the window close button 'X'" + NavigationsFenster.Close + sleep 1 + kontext "HelpContent" + printlog "click on button 'Next Page'" + if HelpContentDOWN.IsVisible then + HelpContentDOWN.Click + sleep 1 + endif + kontext "StarOfficeHelp" + printlog "close the help with the keys [strg]+[F4]" + Printlog "trying to close the help now" + try + StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# + catch + Warnlog "failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help still up!" + endif + endif + printlog "close application" + Call hCloseDocument +endcase 'tmHelpContents + +'------------------------------------------------------------------------------ + +testcase tCheckIfTheHelpExists + printlog "open application" + Call hNewDocument + printlog "Bring up the help-window" + HelpContents + kontext "HelpContent" + sleep (5) + printlog "Press CTRL A and CTRL C to select all and then copy it." + HelpContent.TypeKeys "<MOD1 A>" + sleep (1) + HelpContent.TypeKeys "<MOD1 C>" + printlog "If the clipboard now is empty, then nothing were copied, which means we have a bug." + if GetClipBoard = "" then + Warnlog "No content in the Help-Content -view." + else + Printlog "The Help-Content -view contained content. Good." + endif + kontext "StarOfficeHelp" + printlog "Press CTRL F4 to close the help-window." + try + StarOfficeHelp.TypeKeys "<MOD1 F4>" + catch + Warnlog " Failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help was still visible!" + endif + printlog "And a dot into the main window. Making sure kontext and focus is right." + hTypeKeys "." + printlog "Close Application" + Call hCloseDocument +endcase 'tCheckIfTheHelpExists + +'------------------------------------------------------------------------------
\ No newline at end of file |