testautomation/framework/optional/includes/help_view_topics.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_view_topics.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 : Display each help topic
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tHelpRessourceTest( iCurrentAboutItem as integer )
  41
  42     '///<h1>Ressourcetest for OpenOffice.org help viewer</h1>
  43
  44     dim iTopicCount as integer
  45     dim iCurrentTopic as integer
  46     dim cCurrentTopic as string
  47     dim cPreviousTopic as string
  48     dim cCurrentAboutItem as string
  49     dim brc as boolean
  50
  51     '///<i>help.bas::tHelpRessourceTest</i><br>
  52     '///<ul>
  53     '///+<li>Open help</li>
  54     brc = hOpenHelp()
  55     if ( not brc ) then
  56         warnlog( "Help not open, aborting test" )
  57         goto endsub
  58     endif
  59
  60     '///+<li>Switch to the index tabpage</li>
  61     brc = hSelectHelpTab( "index" )
  62     if ( not brc ) then
  63         warnlog( "There was a problem switching to the index tabpage" )
  64     endif
  65
  66     '///+<li>Set and printout the current application for which to display the index</li>
  67     Kontext "IndexPage"
  68     HelpAbout.select( iCurrentAboutItem )
  69     sleep( 3 )
  70
  71     '///+<li>Retrieve the text from the Multilistbox</li>
  72     cCurrentAboutItem = HelpAbout.getSelText()
  73     printlog( " " )
  74     printlog( " * Current Application: " & cCurrentAboutItem )
  75
  76     '///+<li>Get number of entries in combo-box (help topics)</li>
  77     iTopicCount = SearchIndex.getItemcount()
  78     printlog( "For this application " & iTopicCount & " pages will be loaded." )
  79     printlog( " " )
  80
  81     '///+<li>Open every item in the index, one by one, give enough time to load</li>
  82     '///<ul>
  83     cPreviousTopic = "<not yet set>"
  84     for iCurrentTopic = 1 to iTopicCount
  85
  86         try
  87             '///+<li>select one item from the list</li>
  88             SearchIndex.Select( iCurrentTopic )
  89
  90             '///+<li>Retrieve the name of the entry</li>
  91             cCurrentTopic = SearchIndex.getSelText()
  92             'printlog( " - " & cCurrentTopic )
  93         catch
  94             warnlog( "Failed to select entry at " & iCurrentTopic )
  95             printlog( "Previous entry: " & cPreviousTopic )
  96             exit for
  97         endcatch
  98
  99         try
 100             '///+<li>Click the "Display" button</li>
 101             DisplayIndex.click()
 102             WaitSlot( 5000 )
 103         catch
 104             warnlog( "Failed to display index item (fatal):" )
 105             printlog( " - Index...........: " & iCurrentTopic  )
 106             printlog( " - Topic (current).: " & cCurrentTopic  )
 107             printlog( " - Topic (previous): " & cPreviousTopic )
 108             call ExitRestartTheOffice
 109             goto endsub
 110         endcatch
 111
 112
 113         cPreviousTopic = cCurrentTopic
 114
 115     next iCurrentTopic
 116     '///</ul>
 117
 118     '///+<li>Close the help-viewer</li>
 119     brc =  hCloseHelp()
 120     if ( not brc ) then
 121         warnlog( "There was a problem closing the help viewer" )
 122     endif
 123
 124     '///+<li>Exit and restart the office</li>
 125     call ExitRestartTheOffice()
 126     '///</ul>
 127
 128 endcase
 129
 130