testautomation/framework/required/includes/help_browser.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '* owner : gregor.hartmann@oracle.com
  29 '*
  30 '* short description : global update/resource test
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tHelp_DialogTest
  35
  36     printlog( "Resource test for the Help Browser" )
  37
  38     dim brc as boolean
  39
  40     brc = hOpenHelp()
  41     if ( not brc ) then
  42         warnlog( "Help not open, aborting test" )
  43         kontext "Active"
  44         if ( Active.exists( 2 ) ) then
  45                 printlog( "Msgbox: " & Active.getText() )
  46                 Active.ok()
  47         endif
  48         goto endsub
  49     endif
  50
  51     hSelectHelpTab( "content" )
  52     hSelectHelpTab( "index" )
  53     hSelectHelpTab( "find" )
  54     hSelectHelpTab( "bookmarks" )
  55
  56
  57     brc = hSelectHelpTab( "content" )
  58     call DialogTest( ContentPage )
  59
  60     brc = hSelectHelpTab( "index" )
  61     call DialogTest( IndexPage )
  62
  63     brc = hSelectHelpTab( "find" )
  64     call DialogTest( FindPage )
  65
  66     brc = hSelectHelpTab( "bookmarks" )
  67     call DialogTest( BookmarksPage )
  68
  69     Kontext "StarOfficeHelp"
  70     hCloseHelp()
  71
  72 endcase
  73
  74 '*******************************************************************************
  75
  76 testcase tHelp_ToolBar
  77
  78     printlog( "Resource test for the help toolbar" )
  79
  80     dim brc as boolean
  81     dim iExitCounter as integer : iExitCounter = 0
  82
  83     brc = hOpenHelp()
  84     if ( not brc ) then
  85         warnlog( "Help not open, aborting test" )
  86         kontext "Active"
  87         if ( Active.exists( 2 ) ) then
  88                 printlog( "Msgbox: " & Active.getText() )
  89                 Active.ok()
  90         endif
  91         goto endsub
  92     endif
  93
  94
  95     kontext "starofficehelp"
  96     printlog "- Index -> on"
  97     Index.Click()
  98     waitslot
  99
 100     printlog "- Index -> off"
 101     Index.Click()
 102
 103     ' Backward- and Forward-button
 104     printlog "- activate 'Index'-page"
 105     brc = hSelectHelpTab( "index" )
 106
 107     do while( SearchIndex.getItemCount() < 100 )
 108         iExitCounter = iExitCounter + 1 : if ( iExitCounter = 20 ) then exit do
 109         wait( 100 )
 110     loop
 111
 112     SearchIndex.Select( 4 )
 113     DisplayIndex.Click()
 114     waitslot
 115
 116     printlog "- backward"
 117     Backward.Click()
 118     waitslot
 119
 120     printlog "- forward"
 121     Forward.Click()
 122     waitslot
 123
 124     printlog "- first page"
 125     GoToStart.Click()
 126
 127     printlog "- print"
 128     ' the print-dialog must be shown ( if direct-printing is activated => BUG )
 129     PrintButton.Click()
 130
 131     kontext "active"
 132     if ( Active.Exists ( 1 ) ) then
 133         qaerrorlog( "Unexpected messagebox: " & Active.getText() )
 134         qaerrorlog( "Probably missing default printer on this system, fix it!" )
 135         Active.OK()
 136     endif
 137
 138     kontext "Printing"
 139     if ( Printing.exists( 2 ) ) then
 140         printlog( "Print dialog open, good." )
 141         Printing.cancel()
 142     else
 143         warnlog( "Print dialog not open" )
 144     endif
 145
 146     kontext "tb_help"
 147     printlog "- Set Bookmark"
 148     SetBookmarks.Click()
 149
 150     kontext "AddBookmark"
 151     call DialogTest ( AddBookmark )
 152     AddBookmark.Cancel()
 153
 154     brc = hCloseHelp()
 155
 156 endcase
 157
 158 '*******************************************************************************
 159
 160 testcase tHelp_Registration
 161
 162     ' Check i69670 which was a showstopper in OOo 2.0.4
 163     ' Menu-entry "Help / Registration" is disabled
 164
 165     dim iCurrentMenuEntry as integer
 166     dim iMenuEntryCount as integer
 167
 168     printlog "Check if all entries in Help Menu are enabled"
 169     call hNewDocument
 170
 171     printlog "Open menu"
 172     hUseMenu()
 173     iMenuEntryCount = hMenuItemGetCount
 174
 175     printlog "Select the last entry 'Help'"
 176     hMenuSelectNr( iMenuEntryCount )
 177     iMenuEntryCount = hMenuItemGetCount
 178     for iCurrentMenuEntry = 1 to iMenuEntryCount
 179         if ( hMenuItemIsEnabled( iCurrentMenuEntry ) ) then
 180             printlog "(" & iCurrentMenuEntry & "/" & iMenuEntryCount & _
 181             "): Menu entry is enabled:     Help-> " & hMenuItemGetText( iCurrentMenuEntry )
 182         else
 183                 if (lcase(gPlatform) = "osx") then
 184                     warnlog "#i86247# Help->Registration is disabled on MacOS X"
 185                 else
 186                 warnlog "(" & iCurrentMenuEntry & "/" & iMenuEntryCount & _
 187                 "): Menu entry is not enabled: Help-> " & hMenuItemGetText( iCurrentMenuEntry )
 188                 endif
 189         endif
 190     next iCurrentMenuEntry
 191     hMenuClose()
 192     call hCloseDocument
 193
 194 endcase
 195