'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 ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* Owner : wolfram.garten@sun.com '* '* short description : Testcases to test the Help-Menu. '* '\****************************************************************************** ' testcase tmHelpHelpAgent Call hNewDocument hTBOtypeInDoc HelpHelpAgent ' it's just a switch sleep 2 HelpHelpAgent Call hCloseDocument endcase '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... testcase tmHelpTips Call hNewDocument hTBOtypeInDoc HelpTips Sleep 2 HelpTips Call hCloseDocument endcase '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... testcase tmHelpExtendedTips Call hNewDocument hTBOtypeInDoc HelpEntendedHelp Sleep (2) HelpEntendedHelp Call hCloseDocument endcase '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... testcase tmHelpAboutStarOffice Call hNewDocument hTBOtypeInDoc HelpAboutStarOffice Kontext "UeberStarMath" DialogTest (UeberStarMath) UeberStarMath.OK Call hCloseDocument endcase '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... testcase tmHelpContents goto endsub '"#i84486# - tmHelpContents outcommented due to crash." dim i as integer '/// open application ///' Call hNewDocument '/// Help->Contents ///' HelpContents sleep(8) kontext "StarOfficeHelp" if Not StarOfficeHelp.Exists then Warnlog "Help is not up!" else '/// get the number of entries in the listbox 'select Help modul' ///' Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" '################ left half ################ '/// on the left half of the dialog: ///' '///+ change to the tabpage 'Contents' ///' TabControl.SetPage ContentPage '///+ get the number of entries in the listbox 'MAin help themes' ///' Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" '///+ change to the tabpage 'Index' ///' TabControl.SetPage IndexPage '///+ get the number of entries in the listbox 'Search term' ///' Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" sleep 5 '///+ click on button 'Display' ///' DisplayIndex.Click sleep 5 '///+ change to the tabpage 'Find' ///' TabControl.SetPage FindPage '///+ get the number of entries in the listbox 'Search term' ///' Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" '/// 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 '/// Insert some irrelevant text to get 0 results from the search. ///' SearchFind.SetText "Doobbidedooo" '///+ click on button 'Find' ///' FindButton.Click kontext '///+ 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" '///+ check checkbox 'Complete words only' ///' FindFullWords.Check '///+ check checkbox 'Find in headings only' ///' FindInHeadingsOnly.Check '///+ get the number of entries in the listbox 'List of headings' ///' Printlog "Result: '" + Result.GetItemCount + "'" '///+ click on button 'Display' ///' DisplayFind.Click '///+ change to the tabpage 'Bookmarks' ///' TabControl.SetPage BookmarksPage '///+ get the number of entries in the listbox 'Bookmark list' ///' Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" '///+ click on button 'Display' ///' DisplayBookmarks.Click '################ right half ################ '/// on the right half of teh dialog: ///' '################ toolbar ################ Kontext "TB_Help" '///+ click on button 'Hide/Show Navigation Pane' ///' Index.Click sleep 1 '///+ click on button 'Hide/Show Navigation Pane' ///' Index.Click sleep 1 '///+ click on button 'First Page' ///' GoToStart.Click sleep 1 '///+ click on button 'Previous Page' ///' Backward.Click sleep 1 '///+ click on button 'Next Page' ///' Forward.Click sleep 1 '///+ 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 '/// In the dialog 'Print' press the button 'Cancel' ///' Printing.cancel else warnlog "the Print-Dialogue didnt appear." end if Kontext "TB_Help" '///+ click on button 'Add to Bookmarks ...' ///' sleep 1 SetBookmarks.Click sleep 1 Kontext "AddBookmark" '///+ 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" '///+ 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" '///+ click on button 'Previous Page' ///' if HelpContentUP.IsVisible then HelpContentUP.Click sleep 1 endif '///+ click on button 'Navigation' ///' if HelpContentNAVIGATION.IsVisible then HelpContentNAVIGATION.Click sleep 1 endif kontext "NavigationsFenster" '/// on the toolbox 'Navigation' press the window close button 'X' ///' NavigationsFenster.Close sleep 1 kontext "HelpContent" '///+ click on button 'Next Page' ///' if HelpContentDOWN.IsVisible then HelpContentDOWN.Click sleep 1 endif kontext "StarOfficeHelp" '/// close the help with the keys [strg]+[F4] ///' Printlog "trying to close the help now" try StarOfficeHelp.TypeKeys "" ' 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 '/// close application ///' Call hCloseDocument endcase '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... testcase tCheckIfTheHelpExists '/// open application ///' Call hNewDocument '/// Bring up the help-window ///' HelpContents kontext "HelpContent" sleep (5) '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///' HelpContent.TypeKeys "" sleep (1) HelpContent.TypeKeys "" '/// 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" '/// Press "CTRL F4" to close the help-window. ///' try StarOfficeHelp.TypeKeys "" catch Warnlog " Failed to close the help window :-(" endcatch kontext "StarOfficeHelp" if StarOfficeHelp.Exists then warnlog "Help was still visible!" endif '/// And a dot into the main window. Making sure kontext and focus is right. ///' hTypeKeys "." '/// Close Application ///' Call hCloseDocument endcase 'tCheckIfTheHelpExists