testautomation/framework/optional/includes/help_compare_applications.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 :
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tCompareHelpApps()
  35
  36     if ( gIsoLang <> "en-US" ) then
  37         printlog( "No testing for languages other than en_US" )
  38         goto endsub
  39     endif
  40
  41
  42     ' file related variables
  43     dim sFileOut as string
  44     dim sFilein as string
  45     dim sFileName as string
  46     dim sProductName as string : sProductName = hStringReplaceChar( gProductName, " ", "_" )
  47
  48     ' the array that holds the names of the applications
  49     dim aTopicsFromUI( 10 ) as string ' max index = 7 expected
  50
  51     ' some incremant variables and temporary stuff
  52     dim iTopicsFromUI as integer
  53     dim iCurrentItem as integer
  54     dim sCurrentItem as string
  55     dim irc as integer
  56     dim brc as boolean
  57
  58     ' define input and output paths, presetting variables
  59
  60     sFileName = sProductName & "_help_applications_" & gIsoLang & ".txt"
  61     sFileOut = hGetWorkFile( sFilename )
  62     sFileIn  = gTesttoolPath & "framework\optional\input\help_browser\"
  63     sFileIn  = sFileIn & sFileName
  64     sFileIn  = convertpath( sFileIn )
  65
  66     aTopicsFromUI( 0 ) = "0"
  67
  68     brc = hOpenHelp()
  69     if ( not brc ) then
  70         warnlog( "Help not open, aborting test" )
  71         goto endsub
  72     endif
  73
  74
  75     hSelectHelpTab( "index" )
  76
  77     iTopicsFromUI = HelpAbout.getItemCount()
  78
  79     for iCurrentItem = 1 to iTopicsFromUI
  80
  81         HelpAbout.select( iCurrentItem )
  82         sCurrentItem = HelpAbout.getSelText()
  83         hListAppend( sCurrentItem, aTopicsFromUI() )
  84
  85     next iCurrentItem
  86
  87     call hCloseHelp()
  88
  89     ' Compare the list against a reference or create a new list, if the
  90     ' reference does not exist
  91     printlog( "" )
  92     printlog( "Beginning comparision" )
  93
  94     irc = hManageComparisionList( sFileIn, sFileOut, aTopicsFromUI() )
  95     hListResultEvaluation( irc , 0 )
  96
  97 endcase
  98
  99