testautomation/math/required/includes/m_007_.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: m_007_.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: obo $ $Date: 2008-07-25 08:03:39 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Test the Help Menu
  37 '*
  38 '\*****************************************************************
  39
  40 sub M_007_
  41    printlog Chr(13)+ "--  Help-Menu  m_007_ --"
  42   Call tmHelpHelpAgent
  43   Call tmHelpTips
  44   Call tmHelpExtendedTips
  45   Call tmHelpAboutStarOffice
  46   Call tmHelpContents 'wrn:1
  47 end sub
  48
  49 '-----------------------------------------------------------
  50 '*******************    I D dito   *************************
  51 '-----------------------------------------------------------
  52
  53
  54 testcase tmHelpHelpAgent
  55    '/// open application ///'
  56    Call hNewDocument
  57
  58    hTBOtypeInDoc
  59
  60    HelpHelpAgent ' it's just a switch
  61    sleep 2
  62    HelpHelpAgent
  63
  64    '/// close application ///'
  65    Call hCloseDocument
  66 endcase
  67
  68 testcase tmHelpTips
  69    '/// open application ///'
  70    Call hNewDocument
  71    hTBOtypeInDoc
  72
  73    HelpTips
  74    Sleep 2
  75    HelpTips
  76
  77    '/// close application ///'
  78    Call hCloseDocument
  79 endcase
  80
  81 testcase tmHelpExtendedTips
  82    '/// open application ///'
  83    Call hNewDocument
  84    hTBOtypeInDoc
  85
  86    HelpEntendedHelp
  87    Sleep (2)
  88    HelpEntendedHelp
  89
  90    '/// close application ///'
  91    Call hCloseDocument
  92 endcase
  93
  94 testcase tmHelpAboutStarOffice
  95    '/// open application ///'
  96    Call hNewDocument
  97    hTBOtypeInDoc
  98
  99    HelpAboutStarOffice
 100    Kontext "UeberStarMath"
 101    DialogTest (UeberStarMath)
 102    UeberStarMath.OK
 103
 104    '/// close application ///'
 105    Call hCloseDocument
 106 endcase
 107
 108 testcase tmHelpContents
 109    dim i as integer
 110
 111    '/// open application ///'
 112    Call hNewDocument
 113    '/// Help->Contents ///'
 114    sleep 1
 115    try
 116        HelpContents
 117    catch
 118        qaerrorlog "argh!"
 119    endcatch
 120    sleep(8)
 121    kontext "StarOfficeHelp"
 122    if Not StarOfficeHelp.Exists then
 123       Warnlog "Help is not up!"
 124    else
 125       '/// get the number of entries in the listbox 'select Help modul' ///'
 126       try
 127           Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
 128       catch
 129           Index.Click
 130           qaErrorLog "#i55563# Used Index Button"
 131           Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
 132       endcatch
 133       try
 134          '################ left half ################
 135          '/// on the left half of the dialog: ///'
 136          '///+ change to the tabpage 'Contents' ///'
 137          TabControl.SetPage ContentPage
 138             '///+ get the number of entries in the listbox 'MAin help themes' ///'
 139             Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
 140          '///+ change to the tabpage 'Index' ///'
 141          TabControl.SetPage IndexPage
 142             '///+ get the number of entries in the listbox 'Search term' ///'
 143             Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
 144             sleep 5
 145             '///+ click on button 'Display' ///'
 146             DisplayIndex.Click
 147             sleep 5
 148          '///+ change to the tabpage 'Find' ///'
 149          TabControl.SetPage FindPage
 150             '///+ get the number of entries in the listbox 'Search term' ///'
 151             Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
 152             '///+ click on button 'Find' -> It has to be disabled #107880# ///'
 153             try
 154                 FindButton.Click
 155                 warnlog "Find button is enabled, but no text was enterd to search for: BUG!"
 156             catch
 157                 printlog "Find without text entered to search for didn't work: OK"
 158             endcatch
 159             '///+ Enter 'recumbent' in textfield 'Search term'  ///'
 160             SearchFind.SetText "recumbent"
 161             '///+ click on button 'Find' ///'
 162             FindButton.Click
 163             kontext
 164             '///+ Messagebox comes up about: 'No topics found.' say OK ///'
 165             if (active.exists (2) )then
 166                Printlog "active came up: '" + active.gettext + "'"
 167                active.ok
 168             endif
 169             kontext "StarOfficeHelp"
 170             '///+ check checkbox 'Complete words only'  ///'
 171             FindFullWords.Check
 172             '///+ check checkbox 'Find in headings only'  ///'
 173             FindInHeadingsOnly.Check
 174             '///+ get the number of entries in the listbox 'List of headings' ///'
 175             Printlog "Result: '" + Result.GetItemCount + "'"
 176             '///+ click on button 'Display' ///'
 177             DisplayFind.Click
 178          '///+ change to the tabpage 'Bookmarks' ///'
 179          TabControl.SetPage BookmarksPage
 180             '///+ get the number of entries in the listbox 'Bookmark list' ///'
 181             Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
 182             '///+ click on button 'Display' ///'
 183             DisplayBookmarks.Click
 184          '################ right half ################
 185          '/// on the right half of teh dialog: ///'
 186          '################ toolbar ################
 187          Kontext "TB_Help"
 188             '///+ click on button 'Hide/Show Navigation Pane' ///'
 189             Index.Click
 190             sleep 1
 191             '///+ click on button 'Hide/Show Navigation Pane' ///'
 192             Index.Click
 193             '///+ click on button 'First Page' ///'
 194             GoToStart.Click
 195             '///+ click on button 'Previous Page' ///'
 196             Backward.Click
 197             '///+ click on button 'Next Page' ///'
 198             Forward.Click
 199             '///+ click on button 'Print ...' ///'
 200             PrintButton.Click
 201                   kontext
 202                   if active.exists(2) then
 203                       active.ok
 204                       qaerrorlog "There is no printer available - please install one on your system!"
 205                   endif
 206                   sleep 2
 207                kontext "DruckenDLG"
 208                '/// On the dialog 'Print' press the button 'Cancel' ///'
 209                DruckenDLG.cancel
 210             Kontext "TB_Help"
 211             '///+ click on button 'Add to Bookmarks ...' ///'
 212             SetBookmarks.Click
 213                Kontext "AddBookmark"
 214                '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///'
 215                Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
 216                AddBookmark.Cancel
 217          '################ help display ################
 218          kontext "HelpContent"
 219             '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///'
 220             HelpContent.OpenContextMenu
 221             Printlog " i: " + hMenuItemGetCount
 222             hMenuClose()
 223          '################ right scroolbar ################
 224          kontext "HelpContent"
 225             '///+ click on button 'Previous Page' ///'
 226             if HelpContentUP.IsVisible then
 227                HelpContentUP.Click
 228                kontext
 229                if active.exists(5) then
 230                    qaerrorlog "Messagebox comes up! ##"
 231                    printlog "active: '" + active.getText + "'"
 232                    active.no
 233                endif
 234             endif
 235             kontext "HelpContent"
 236             '///+ click on button 'Navigation' ///'
 237             if HelpContentNAVIGATION.IsVisible then
 238                HelpContentNAVIGATION.Click
 239             endif
 240                kontext "NavigationsFenster"
 241                '/// on the toolbox 'Navigation' press the window close button 'X' ///'
 242                NavigationsFenster.Close
 243             kontext "HelpContent"
 244             '///+ click on button 'Next Page' ///'
 245             if HelpContentDOWN.IsVisible then
 246                HelpContentDOWN.Click
 247                kontext
 248                if active.exists(5) then
 249                    qaerrorlog "Messagebox comes up! ##"
 250                    printlog "active: '" + active.getText + "'"
 251                    active.no
 252                endif
 253             endif
 254       catch
 255          warnlog "something is not working in the help-window :-("
 256       endcatch
 257          kontext "StarOfficeHelp"
 258 '         StarOfficeHelp.TypeKeys "<Mod2 F4>" ' alt F4 ' doesn't work
 259 '         StarOfficeHelp.TypeKeys "<Mod1 w>" ' strg w  ' doesn't work
 260          '/// close the help with the keys [strg]+[F4] ///'
 261       Printlog "trying to close the help now"
 262       try
 263          StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4   supported since bug  #103586#
 264       catch
 265          Warnlog "failed to close the help window :-("
 266       endcatch
 267 '         kontext "HelpContent"
 268 '         HelpContent.TypeKeys "<Mod1 w>" ' strg w ' doesn't work
 269 '         HelpContent.TypeKeys "<Mod2 F4>" ' alt f4 ' doesn't work
 270 '         HelpContent.TypeKeys "<Mod1 F4>" ' strg f4 supported since bug  #103586#
 271       kontext "StarOfficeHelp"
 272       if StarOfficeHelp.Exists then
 273          warnlog "Help still up!"
 274       endif
 275    endif
 276    '/// close application ///'
 277    Call hCloseDocument
 278 endcase
 279
 280