testautomation/graphics/required/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:43:00 $
  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    '/// open application ///'
 107    Call hNewDocument
 108    '/// Help->Contents ///'
 109    HelpContents
 110    sleep(8)
 111    kontext "StarOfficeHelp"
 112    if Not StarOfficeHelp.Exists then
 113       Warnlog "Help is not up!"
 114    else
 115       '/// get the number of entries in the listbox 'select Help modul' ///'
 116       Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
 117       '################ left half ################
 118       '/// on the left half of the dialog: ///'
 119       '///+ change to the tabpage 'Contents' ///'
 120       TabControl.SetPage ContentPage
 121          '///+ get the number of entries in the listbox 'MAin help themes' ///'
 122          Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
 123          '///+ change to the tabpage 'Index' ///'
 124          TabControl.SetPage IndexPage
 125          '///+ get the number of entries in the listbox 'Search term' ///'
 126          Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
 127          sleep 5
 128          '///+ click on button 'Display' ///'
 129          DisplayIndex.Click
 130          sleep 5
 131          '///+ change to the tabpage 'Find' ///'
 132          TabControl.SetPage FindPage
 133             '///+ get the number of entries in the listbox 'Search term' ///'
 134             Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
 135             '/// If the Search-Text-Field is empty - Check that the Find-button is deactivated ///'
 136             if SearchFind.GetSelText = "" then
 137                if FindButton.IsEnabled then
 138                   warnlog "   The Find-Button should have been inactive, but was active."
 139                endif
 140             else
 141                warnlog "   The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
 142             endif
 143             '/// Insert some irrelevant text to get 0 results from the search. ///'
 144             SearchFind.SetText "Doobbidedooo"
 145             '///+ click on button 'Find' ///'
 146             FindButton.Click
 147             kontext
 148             '///+ Messagebox comes up about: 'No topics found.' say OK ///'
 149             if (active.exists (2) )then
 150                Printlog "active came up: '" + active.gettext + "'"
 151                active.ok
 152             endif
 153             kontext "StarOfficeHelp"
 154             '///+ check checkbox 'Complete words only'  ///'
 155             FindFullWords.Check
 156             '///+ check checkbox 'Find in headings only'  ///'
 157             FindInHeadingsOnly.Check
 158             '///+ get the number of entries in the listbox 'List of headings' ///'
 159             Printlog "Result: '" + Result.GetItemCount + "'"
 160             '///+ click on button 'Display' ///'
 161             DisplayFind.Click
 162          '///+ change to the tabpage 'Bookmarks' ///'
 163          TabControl.SetPage BookmarksPage
 164             '///+ get the number of entries in the listbox 'Bookmark list' ///'
 165             Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
 166             '///+ click on button 'Display' ///'
 167             DisplayBookmarks.Click
 168          '################ right half ################
 169          '/// on the right half of teh dialog: ///'
 170          '################ toolbar ################
 171          Kontext "TB_Help"
 172             '///+ click on button 'Hide/Show Navigation Pane' ///'
 173             Index.Click
 174             sleep 1
 175             '///+ click on button 'Hide/Show Navigation Pane' ///'
 176             Index.Click
 177                         sleep 1
 178             '///+ click on button 'First Page' ///'
 179             GoToStart.Click
 180                         sleep 1
 181             '///+ click on button 'Previous Page' ///'
 182             Backward.Click
 183                         sleep 1
 184             '///+ click on button 'Next Page' ///'
 185             Forward.Click
 186                         sleep 1
 187             '///+ click on button 'Print ...' ///'
 188             PrintButton.Click
 189                         sleep (1)
 190
 191                            kontext "Active"
 192                            if Active.Exists( 2 ) then
 193                                   qaerrorlog "No default printer defined: " & Active.GetText
 194                                   Active.Ok
 195                            end if
 196
 197                kontext "DruckenDLG"
 198                if DruckenDLG.Exists then
 199                   '/// In the dialog 'Print' press the button 'Cancel' ///'
 200                   DruckenDLG.cancel
 201                else
 202                   warnlog "the Print-Dialogue didnt appear."
 203                end if
 204             Kontext "TB_Help"
 205             '///+ click on button 'Add to Bookmarks ...' ///'
 206                         sleep 1
 207             SetBookmarks.Click
 208                            sleep 1
 209                Kontext "AddBookmark"
 210                '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///'
 211                Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
 212                AddBookmark.Cancel
 213                            sleep 1
 214          '################ help display ################
 215          kontext "HelpContent"
 216             '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///'
 217             HelpContent.OpenContextMenu
 218
 219                         sleep 1
 220                         Printlog " i: " + hMenuItemGetCount
 221             hMenuClose()
 222          '################ right scroolbar ################
 223          kontext "HelpContent"
 224             '///+ click on button 'Previous Page' ///'
 225             if HelpContentUP.IsVisible then
 226                HelpContentUP.Click
 227                sleep 1
 228             endif
 229             '///+ click on button 'Navigation' ///'
 230             if HelpContentNAVIGATION.IsVisible then
 231                HelpContentNAVIGATION.Click
 232                            sleep 1
 233             endif
 234                kontext "NavigationsFenster"
 235                '/// on the toolbox 'Navigation' press the window close button 'X' ///'
 236                NavigationsFenster.Close
 237                            sleep 1
 238             kontext "HelpContent"
 239             '///+ click on button 'Next Page' ///'
 240             if HelpContentDOWN.IsVisible then
 241                HelpContentDOWN.Click
 242                            sleep 1
 243             endif
 244          kontext "StarOfficeHelp"
 245       '/// close the help with the keys [strg]+[F4] ///'
 246       Printlog "trying to close the help now"
 247       try
 248          StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4   supported since bug  #103586#
 249       catch
 250          Warnlog "failed to close the help window :-("
 251       endcatch
 252       kontext "StarOfficeHelp"
 253       if StarOfficeHelp.Exists then
 254          warnlog "Help still up!"
 255       endif
 256    endif
 257    '/// close application ///'
 258    Call hCloseDocument
 259 endcase
 260
 261 '...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
 262
 263 testcase tCheckIfTheHelpExists
 264    '/// open application ///'
 265    Call hNewDocument
 266    '/// Bring up the help-window ///'
 267    HelpContents
 268    kontext "HelpContent"
 269       sleep (5)
 270       '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///'
 271       HelpContent.TypeKeys "<MOD1 A>"
 272       sleep (1)
 273       HelpContent.TypeKeys "<MOD1 C>"
 274       '/// If the clipboard now is empty, then nothing were copied, which means we have a bug. ///'
 275       if GetClipBoard = "" then
 276          Warnlog "   No content in the Help-Content -view."
 277       else
 278          Printlog "   The Help-Content -view contained content. Good."
 279       endif
 280       kontext "StarOfficeHelp"
 281       '/// Press "CTRL F4" to close the help-window. ///'
 282       try
 283          StarOfficeHelp.TypeKeys "<MOD1 F4>"
 284       catch
 285          Warnlog "   Failed to close the help window :-("
 286       endcatch
 287       kontext "StarOfficeHelp"
 288       if StarOfficeHelp.Exists then
 289          warnlog "Help was still visible!"
 290       endif
 291       '/// And a dot into the main window. Making sure kontext and focus is right. ///'
 292       hTypeKeys "."
 293    '/// Close Application ///'
 294    Call hCloseDocument
 295 endcase 'tCheckIfTheHelpExists