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 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 : Display each help topic
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tHelpRessourceTest( iCurrentAboutItem as integer )
  35
  36     printlog( "Resource test for help topics - display all topics" )
  37
  38     dim iTopicCount as integer
  39     dim iCurrentTopic as integer
  40     dim cCurrentTopic as string
  41     dim cPreviousTopic as string
  42     dim cCurrentAboutItem as string
  43     dim brc as boolean
  44
  45     brc = hOpenHelp()
  46     if ( not brc ) then
  47         warnlog( "Help not open, aborting test" )
  48         goto endsub
  49     endif
  50
  51     brc = hSelectHelpTab( "index" )
  52     if ( not brc ) then
  53         warnlog( "There was a problem switching to the index tabpage" )
  54     endif
  55
  56     Kontext "IndexPage"
  57     HelpAbout.select( iCurrentAboutItem )
  58     sleep( 3 )
  59
  60     cCurrentAboutItem = HelpAbout.getSelText()
  61     printlog( " " )
  62     printlog( " * Current Application: " & cCurrentAboutItem )
  63
  64     iTopicCount = SearchIndex.getItemcount()
  65     printlog( "For this application " & iTopicCount & " pages will be loaded." )
  66     printlog( " " )
  67
  68     cPreviousTopic = "<not yet set>"
  69     for iCurrentTopic = 1 to iTopicCount
  70
  71         try
  72             SearchIndex.Select( iCurrentTopic )
  73             cCurrentTopic = SearchIndex.getSelText()
  74         catch
  75             warnlog( "Failed to select entry at " & iCurrentTopic )
  76             printlog( "Previous entry: " & cPreviousTopic )
  77             exit for
  78         endcatch
  79
  80         try
  81             DisplayIndex.click()
  82             WaitSlot( 5000 )
  83         catch
  84             warnlog( "#i105476# - Failed to display index item (fatal):" )
  85             printlog( " - Index...........: " & iCurrentTopic  )
  86             printlog( " - Topic (current).: " & cCurrentTopic  )
  87             printlog( " - Topic (previous): " & cPreviousTopic )
  88             call ExitRestartTheOffice()
  89             goto endsub
  90         endcatch
  91
  92         cPreviousTopic = cCurrentTopic
  93
  94     next iCurrentTopic
  95
  96     brc =  hCloseHelp()
  97     if ( not brc ) then
  98         warnlog( "There was a problem closing the help viewer" )
  99     endif
 100
 101     call ExitRestartTheOffice()
 102
 103 endcase
 104
 105