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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: help_browser.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : global update/resource test
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tHelp_DialogTest
  41
  42     '///<h1>Update test for the main help window</h1>
  43     '///<ul>
  44     Dim i as Integer
  45     dim brc as boolean
  46     printlog "- open the help"
  47
  48     '///+<li>Open Help</li>
  49     brc = hOpenHelp()
  50     if ( not brc ) then
  51         warnlog( "Help not open, aborting test" )
  52         kontext "Active"
  53         if ( Active.exists( 2 ) ) then
  54                 printlog( "Msgbox: " & Active.getText() )
  55                 Active.ok()
  56         endif
  57         goto endsub
  58     endif
  59
  60
  61     '///+<li>activate 'Content'-page</li>
  62     brc = hSelectHelpTab( "content" )
  63     call DialogTest( ContentPage )
  64
  65     '///+<li>activate 'Index'-page</li>
  66     brc = hSelectHelpTab( "index" )
  67     call DialogTest( IndexPage )
  68
  69     '///+<li>activate 'Find'-page</li>
  70     brc = hSelectHelpTab( "find" )
  71     call DialogTest( FindPage )
  72
  73     '///+<li>activate 'Bookmark'-page</li>
  74     brc = hSelectHelpTab( "bookmarks" )
  75     call DialogTest( BookmarksPage )
  76
  77     '///+<li>close help ( does not work correctly with testtool )</li>
  78     Kontext "StarOfficeHelp"
  79     hCloseHelp()
  80     '///</ul>
  81
  82 endcase
  83
  84 '*******************************************************************************
  85
  86 testcase tHelp_ToolBar
  87
  88     '///<h1>Update test for the toolbar on the main Help window</h1>
  89     '///<ul>
  90     Dim i as Integer
  91     dim brc as boolean
  92
  93     '///+<li>Open Help</li>
  94     brc = hOpenHelp()
  95     if ( not brc ) then
  96         warnlog( "Help not open, aborting test" )
  97         kontext "Active"
  98         if ( Active.exists( 2 ) ) then
  99                 printlog( "Msgbox: " & Active.getText() )
 100                 Active.ok()
 101         endif
 102         goto endsub
 103     endif
 104
 105
 106     kontext "starofficehelp"
 107     '///+<li>Index-button</li>
 108     printlog "- Index -> on"
 109     '///+<li>activate 'Index' ( => only the help-window must be shown )</li>
 110     Index.Click()
 111     waitslot
 112
 113     printlog "- Index -> off"
 114     '///+<li>activate 'Index' ( => the full help-window must be shown )</li>
 115     Index.Click()
 116
 117     ' Backward- and Forward-button
 118     '///+<li>open the 'Index'-page</li>
 119     printlog "- activate 'Index'-page"
 120     brc = hSelectHelpTab( "index" )
 121     sleep( 2 )
 122
 123     SearchIndex.Select 4
 124     DisplayIndex.Click()
 125     waitslot
 126
 127     '///+<li>backward</li>
 128     printlog "- backward"
 129     Backward.Click()
 130     waitslot
 131
 132     '///+<li>forward</li>
 133     printlog "- forward"
 134     Forward.Click()
 135     waitslot
 136
 137     '///+<li>first page</li>
 138     printlog "- first page"
 139     GoToStart.Click()
 140
 141     '///+<li>print</li>
 142     printlog "- print"
 143     ' the print-dialog must be shown ( if direct-printing is activated => BUG )
 144     '///+<li>close the print-dialog</li>
 145     PrintButton.Click()
 146
 147     kontext "active"
 148
 149     if Active.Exists ( 1 ) then
 150
 151         if Active.getRT() = 304 then
 152             qaerrorlog "- Printing failed: Did you define a default printer?"
 153             Active.OK()
 154
 155             Kontext "DruckenDlg"
 156             if ( druckenDlg.exists() ) then
 157                 printlog( "Printer dialog is still open, closing with cancel" )
 158                 druckenDlg. cancel()
 159             endif
 160
 161         endif
 162
 163     else
 164         kontext "druckendlg"
 165         if DruckenDlg.NotExists (2) then
 166             warnlog "No print-dialog is open. => direct printing? - bug 93788!"
 167         else
 168             DruckenDlg.Cancel()
 169         endif
 170
 171     endif
 172
 173     '///+<li>Set Bookmark</li>
 174     printlog "- Set Bookmark"
 175
 176     kontext "tb_help"
 177     SetBookmarks.Click()
 178
 179     '///+<li>close the 'add bookmark'-dialog</li>
 180     kontext "addbookmark"
 181     call DialogTest ( AddBookmark )
 182     AddBookmark.Cancel()
 183
 184     '///+<li>close help ( does not work correctly with testtool )</li>
 185     brc = hCloseHelp()
 186     '///</ul>
 187
 188 endcase