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