summaryrefslogtreecommitdiff
path: root/testautomation/graphics/required/includes/global/id_009.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_009.inc')
-rw-r--r--testautomation/graphics/required/includes/global/id_009.inc282
1 files changed, 282 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..57ff31138cb8
--- /dev/null
+++ b/testautomation/graphics/required/includes/global/id_009.inc
@@ -0,0 +1,282 @@
+'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.
+'*
+'\******************************************************************************
+'
+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 "<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
+ '/// 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 "<MOD1 A>"
+ sleep (1)
+ HelpContent.TypeKeys "<MOD1 C>"
+ '/// 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 "<MOD1 F4>"
+ 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
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-17 19:30:09 +0000