testautomation/framework/optional/includes/help_compare_content.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 tCompareHelpContent()
  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( 1200 ) as string
  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_content_" & gIsoLang & ".txt"
  61     sFileOut = hGetWorkFile( sFilename )
  62     sFileIn  = gTesttoolPath & "framework\optional\input\help_browser\"
  63     sFileIn  = convertpath( sFileIn & sFileName )
  64
  65     aTopicsFromUI( 0 ) = "0"
  66
  67     ' get the names from the listbox
  68     brc = hOpenHelp()
  69     if ( not brc ) then
  70         warnlog( "Help not open, aborting test" )
  71         goto endsub
  72     endif
  73
  74     hSelectHelpTab( "content" )
  75
  76     ' find out, how many items we have in the list
  77     iTopicsFromUI = hExpandAllNodes( SearchContent )
  78     printlog( "Reading " & iTopicsFromUI & " items from Content Treelist" )
  79
  80     ' get all topics from the contents-treelist
  81     hGetVisibleNodeNames( SearchContent , aTopicsFromUI() )
  82
  83     call hCloseHelp()
  84
  85     ' Compare the list against a reference or create a new list, if the
  86     ' reference does not exist
  87     printlog( "" )
  88     printlog( "Beginning comparision" )
  89     irc = hManageComparisionList( sFileIn, sFileOut, aTopicsFromUI() )
  90     hListResultEvaluation( irc , 0 )
  91
  92 endcase
  93
  94