diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_009.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/id_009.inc | 243 |
1 files changed, 0 insertions, 243 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_009.inc b/testautomation/graphics/optional/includes/global/id_009.inc deleted file mode 100644 index 7096a1a860a9..000000000000 --- a/testautomation/graphics/optional/includes/global/id_009.inc +++ /dev/null @@ -1,243 +0,0 @@ -'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. -'* -'*********************************************************************************** -' #1 tmHelpHelpAgent -' #1 tmHelpTips -' #1 tmHelpExtendedTips -' #1 tmHelpAboutStarOffice -' #1 tmHelpContents -' #1 tCheckIfTheHelpExists -'\********************************************************************************** -' -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 - - Call hNewDocument - HelpContents - sleep(8) - kontext "StarOfficeHelp" - if Not StarOfficeHelp.Exists then - Warnlog "Help is not up!" - else - Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" - '################ left half ################ - TabControl.SetPage ContentPage - Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" - TabControl.SetPage IndexPage - Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" - sleep 5 - DisplayIndex.Click - sleep 5 - TabControl.SetPage FindPage - Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" - 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 - SearchFind.SetText "Doobbidedooo" - FindButton.Click - kontext - if (active.exists (2) )then - Printlog "active came up: '" + active.gettext + "'" - active.ok - endif - kontext "StarOfficeHelp" - FindFullWords.Check - FindInHeadingsOnly.Check - Printlog "Result: '" + Result.GetItemCount + "'" - DisplayFind.Click - TabControl.SetPage BookmarksPage - Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" - DisplayBookmarks.Click - '################ right half ################ - '################ toolbar ################ - Kontext "TB_Help" - Index.Click - sleep 1 - Index.Click - sleep 1 - GoToStart.Click - sleep 1 - Backward.Click - sleep 1 - Forward.Click - sleep 1 - 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 - Printing.cancel - else - warnlog "the Print-Dialogue didnt appear." - end if - Kontext "TB_Help" - sleep 1 - SetBookmarks.Click - sleep 1 - Kontext "AddBookmark" - Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" - AddBookmark.Cancel - sleep 1 - '################ help display ################ - kontext "HelpContent" - HelpContent.OpenContextMenu - - sleep 1 - Printlog " i: " + hMenuItemGetCount - hMenuClose() - '################ right scroolbar ################ - kontext "HelpContent" - if HelpContentUP.IsVisible then - HelpContentUP.Click - sleep 1 - endif - if HelpContentNAVIGATION.IsVisible then - HelpContentNAVIGATION.Click - sleep 1 - endif - kontext "NavigationsFenster" - NavigationsFenster.Close - sleep 1 - kontext "HelpContent" - if HelpContentDOWN.IsVisible then - HelpContentDOWN.Click - sleep 1 - endif - kontext "StarOfficeHelp" - 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 - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tCheckIfTheHelpExists - Call hNewDocument - HelpContents - kontext "HelpContent" - sleep (5) - HelpContent.TypeKeys "<MOD1 A>" - sleep (1) - HelpContent.TypeKeys "<MOD1 C>" - if GetClipBoard = "" then - Warnlog " No content in the Help-Content -view." - else - Printlog " The Help-Content -view contained content. Good." - endif - kontext "StarOfficeHelp" - 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 - hTypeKeys "." - Call hCloseDocument -endcase 'tCheckIfTheHelpExists |