testautomation/graphics/optional/includes/global/id_009.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: id_009.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* Owner : wolfram.garten@sun.com
  35 '*
  36 '* short description : Testcases to test the Help-Menu.
  37 '*
  38 '***********************************************************************************
  39 ' #1 tmHelpHelpAgent
  40 ' #1 tmHelpTips
  41 ' #1 tmHelpExtendedTips
  42 ' #1 tmHelpAboutStarOffice
  43 ' #1 tmHelpContents
  44 ' #1 tCheckIfTheHelpExists
  45 '\**********************************************************************************
  46 '
  47 testcase tmHelpHelpAgent
  48
  49     Call hNewDocument
  50
  51     hTBOtypeInDoc
  52
  53     HelpHelpAgent         ' it's just a switch
  54     sleep 2
  55     HelpHelpAgent
  56
  57     Call hCloseDocument
  58 endcase
  59
  60 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
  61
  62 testcase tmHelpTips
  63     Call hNewDocument
  64     hTBOtypeInDoc
  65
  66     HelpTips
  67     Sleep 2
  68     HelpTips
  69
  70     Call hCloseDocument
  71 endcase
  72
  73 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
  74
  75 testcase tmHelpExtendedTips
  76     Call hNewDocument
  77     hTBOtypeInDoc
  78
  79     HelpEntendedHelp
  80     Sleep (2)
  81     HelpEntendedHelp
  82
  83     Call hCloseDocument
  84 endcase
  85
  86 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
  87
  88 testcase tmHelpAboutStarOffice
  89     Call hNewDocument
  90     hTBOtypeInDoc
  91
  92     HelpAboutStarOffice
  93     Kontext "UeberStarMath"
  94     DialogTest (UeberStarMath)
  95     UeberStarMath.OK
  96
  97     Call hCloseDocument
  98 endcase
  99
 100 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
 101
 102 testcase tmHelpContents
 103     goto endsub '"#i84486# - tmHelpContents outcommented due to crash."
 104     dim i as integer
 105
 106     Call hNewDocument
 107     HelpContents
 108     sleep(8)
 109     kontext "StarOfficeHelp"
 110     if Not StarOfficeHelp.Exists then
 111         Warnlog "Help is not up!"
 112     else
 113         Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
 114         '################ left half ################
 115         TabControl.SetPage ContentPage
 116         Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
 117         TabControl.SetPage IndexPage
 118         Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
 119         sleep 5
 120         DisplayIndex.Click
 121         sleep 5
 122         TabControl.SetPage FindPage
 123         Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
 124         if SearchFind.GetSelText = "" then
 125             if FindButton.IsEnabled then
 126                 warnlog "   The Find-Button should have been inactive, but was active."
 127             endif
 128         else
 129             warnlog "   The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
 130         endif
 131         SearchFind.SetText "Doobbidedooo"
 132         FindButton.Click
 133         kontext
 134         if (active.exists (2) )then
 135             Printlog "active came up: '" + active.gettext + "'"
 136             active.ok
 137         endif
 138         kontext "StarOfficeHelp"
 139         FindFullWords.Check
 140         FindInHeadingsOnly.Check
 141         Printlog "Result: '" + Result.GetItemCount + "'"
 142         DisplayFind.Click
 143         TabControl.SetPage BookmarksPage
 144         Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
 145         DisplayBookmarks.Click
 146         '################ right half ################
 147         '################ toolbar ################
 148         Kontext "TB_Help"
 149         Index.Click
 150         sleep 1
 151         Index.Click
 152         sleep 1
 153         GoToStart.Click
 154         sleep 1
 155         Backward.Click
 156         sleep 1
 157         Forward.Click
 158         sleep 1
 159         PrintButton.Click
 160         sleep (1)
 161
 162         kontext "Active"
 163         if Active.Exists( 2 ) then
 164             qaerrorlog "No default printer defined: " & Active.GetText
 165             Active.Ok
 166         end if
 167
 168         kontext "DruckenDLG"
 169         if DruckenDLG.Exists then
 170             DruckenDLG.cancel
 171         else
 172             warnlog "the Print-Dialogue didnt appear."
 173         end if
 174         Kontext "TB_Help"
 175         sleep 1
 176         SetBookmarks.Click
 177         sleep 1
 178         Kontext "AddBookmark"
 179         Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
 180         AddBookmark.Cancel
 181         sleep 1
 182         '################ help display ################
 183         kontext "HelpContent"
 184         HelpContent.OpenContextMenu
 185
 186         sleep 1
 187         Printlog " i: " + hMenuItemGetCount
 188         hMenuClose()
 189         '################ right scroolbar ################
 190         kontext "HelpContent"
 191         if HelpContentUP.IsVisible then
 192             HelpContentUP.Click
 193             sleep 1
 194         endif
 195         if HelpContentNAVIGATION.IsVisible then
 196             HelpContentNAVIGATION.Click
 197             sleep 1
 198         endif
 199         kontext "NavigationsFenster"
 200         NavigationsFenster.Close
 201         sleep 1
 202         kontext "HelpContent"
 203         if HelpContentDOWN.IsVisible then
 204             HelpContentDOWN.Click
 205             sleep 1
 206         endif
 207         kontext "StarOfficeHelp"
 208         Printlog "trying to close the help now"
 209         try
 210             StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4   supported since bug  #103586#
 211         catch
 212             Warnlog "failed to close the help window :-("
 213         endcatch
 214         kontext "StarOfficeHelp"
 215         if StarOfficeHelp.Exists then
 216             warnlog "Help still up!"
 217         endif
 218     endif
 219     Call hCloseDocument
 220 endcase
 221
 222 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
 223
 224 testcase tCheckIfTheHelpExists
 225     Call hNewDocument
 226     HelpContents
 227     kontext "HelpContent"
 228     sleep (5)
 229     HelpContent.TypeKeys "<MOD1 A>"
 230     sleep (1)
 231     HelpContent.TypeKeys "<MOD1 C>"
 232     if GetClipBoard = "" then
 233         Warnlog "   No content in the Help-Content -view."
 234     else
 235         Printlog "   The Help-Content -view contained content. Good."
 236     endif
 237     kontext "StarOfficeHelp"
 238     try
 239         StarOfficeHelp.TypeKeys "<MOD1 F4>"
 240     catch
 241         Warnlog "   Failed to close the help window :-("
 242     endcatch
 243     kontext "StarOfficeHelp"
 244     if StarOfficeHelp.Exists then
 245         warnlog "Help was still visible!"
 246     endif
 247     hTypeKeys "."
 248     Call hCloseDocument
 249 endcase 'tCheckIfTheHelpExists