testautomation/framework/optional/includes/help_search.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 : Search for a string, apply restrictions, verify
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tHelpSearch
  35
  36     if ( gIsoLang <> "en-US" ) then
  37         printlog( "No testing for languages other than en_US" )
  38         goto endsub
  39     endif
  40
  41     const RC_LISTS_IDENTICAL = 0
  42
  43     dim brc as boolean
  44     dim irc as integer
  45
  46     dim sFileIn as string
  47     dim sFileOut as string
  48     dim aUIList( 100 ) as string
  49
  50     dim cBasePath as string
  51         cBasePath = gTesttoolPath & "framework\optional\input\help_browser\"
  52     dim cDataFile as string
  53     dim sProductName as string : sProductName = hStringReplaceChar( gProductName, " ", "_" )
  54
  55     printlog( "Open Help Browser" )
  56     if ( not hOpenHelp() ) then
  57         warnlog( "Help not open, aborting test" )
  58         goto endsub
  59     endif
  60
  61     printlog( "Go to the Find-Tabpage" )
  62     if ( not hSelectHelpTab( "find" ) ) then
  63         warnlog( "Could not access requested TabPage, aborting test" )
  64         call hClosehelp()
  65         goto endsub
  66     endif
  67
  68     '----------- Search without filter -----------------------------------------
  69     printlog( "" )
  70     printlog( "Search for <java> without any filter" )
  71
  72     SearchFind.setText( "java" )
  73     FindFullWords.unCheck()
  74     FindInHeadingsOnly.unCheck()
  75
  76     FindButton.click()
  77
  78     ListAllDelete( aUIList() )
  79     hGetListItems( Result, aUIList() )
  80
  81
  82     cDataFile = sProductName & "_search_without_filter_" & gIsoLang & ".txt"
  83     sFileOut  = hGetWorkFile( cDataFile )
  84     sFileIn   = convertpath( cBasePath & cDataFile )
  85
  86     irc = hManageComparisionList( sFileIn, sFileOut, aUIList() )
  87     hListResultEvaluation( irc , RC_LISTS_IDENTICAL )
  88
  89     ' ------------ Search whole words only -------------------------------------
  90     printlog( "" )
  91     printlog( "Search for <java>, whole words only" )
  92
  93     SearchFind.setText( "java" )
  94     FindFullWords.Check()
  95     FindInHeadingsOnly.unCheck()
  96
  97     FindButton.click()
  98
  99     ListAllDelete( aUIList() )
 100     hGetListItems( Result, aUIList() )
 101
 102     cDataFile = sProductName & "_search_whole_words_only_" & gIsoLang & ".txt"
 103     sFileOut  = hGetWorkFile( cDataFile )
 104     sFileIn   = convertpath( cBasePath & cDataFile )
 105
 106     irc = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 107     hListResultEvaluation( irc , RC_LISTS_IDENTICAL )
 108
 109     ' ------------ Search headings only ----------------------------------------
 110     printlog( "" )
 111     printlog( "Search for <java>, headings only" )
 112
 113     SearchFind.setText( "java" )
 114     FindFullWords.unCheck()
 115     FindInHeadingsOnly.Check()
 116
 117     FindButton.click()
 118
 119     ListAllDelete( aUIList() )
 120     hGetListItems( Result, aUIList() )
 121
 122     cDataFile = sProductName & "_search_headings_only_" & gIsoLang & ".txt"
 123     sFileOut  = hGetWorkFile( cDataFile )
 124     sFileIn   = convertpath( cBasePath & cDataFile )
 125
 126     irc = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 127     hListResultEvaluation( irc , RC_LISTS_IDENTICAL )
 128
 129     ' ------------ Search headings and whole words -----------------------------
 130     printlog( "" )
 131     printlog( "Search for <java>, limit results to whole words and headings" )
 132
 133     SearchFind.setText( "java" )
 134     FindFullWords.Check()
 135     FindInHeadingsOnly.Check()
 136
 137     FindButton.click()
 138
 139     ListAllDelete( aUIList() )
 140     hGetListItems( Result, aUIList() )
 141
 142     cDataFile = sProductName & "_search_headings_and_whole_words_" & gIsoLang & ".txt"
 143     sFileOut  = hGetWorkFile( cDataFile )
 144     sFileIn   = convertpath( cBasePath & cDataFile )
 145
 146     irc = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 147     hListResultEvaluation( irc , RC_LISTS_IDENTICAL )
 148
 149     hCloseHelp()
 150
 151 endcase
 152
 153
 154