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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: help_search.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 : Search for a string, apply restrictions, verify
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tHelpSearch
  41
  42     if ( gIsoLang <> "en-US" ) then
  43         printlog( "No testing for languages other than en_US" )
  44         goto endsub
  45     endif
  46
  47     '///<H1>Search for a string, apply restrictions, verify</H1>
  48     '///<h2>help_search.bas::tHelpSearch</h2>
  49     '///<ul>
  50     dim brc as boolean
  51     dim irc as integer
  52
  53     dim sFileIn as string
  54     dim sFileOut as string
  55     dim aUIList( 100 ) as string
  56
  57     dim cBasePath as string
  58         cBasePath = gTesttoolPath & "framework\optional\input\help_browser\"
  59     dim cDataFile as string
  60
  61     '///+<li>Open the help browser</li>
  62     brc = hOpenHelp()
  63     if ( not brc ) then
  64         warnlog( "Help not open, aborting test" )
  65         goto endsub
  66     endif
  67
  68
  69     '///+<li>Switch to the Search-tab (find)</li>
  70     brc = hSelectHelpTab( "find" )
  71     if ( not brc ) then
  72         warnlog( "Could not access requested TabPage, aborting test" )
  73         call hClosehelp()
  74         goto endsub
  75     endif
  76
  77     '----------- Search without filter -----------------------------------------
  78     printlog( "" )
  79     printlog( "Search for <java> without any filter" )
  80
  81     '///+<li>Enter &quot;Java&quot; into the search entryfield</li>
  82     '///+<li>Uncheck Whole words only and headings only</li>
  83     SearchFind.setText( "java" )
  84     FindFullWords.unCheck()
  85     FindInHeadingsOnly.unCheck()
  86
  87     '///+<li>Click &quot;Search&quot;</li>
  88     FindButton.click()
  89
  90     '///+<li>Retrieve all entries from the list</li>
  91     ListAllDelete( aUIList() )
  92     hGetListItems( Result, aUIList() )
  93
  94     '///+<li>Compare content to a reference or create a new ref-file</li>
  95     cDataFile = gProductName & "_search_without_filter_" & gIsoLang & ".txt"
  96     sFileOut  = hGetWorkFile( cDataFile )
  97     sFileIn   = convertpath( cBasePath & cDataFile )
  98
  99     irc       = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 100     if ( irc <> 0 ) then
 101         warnlog( "Lists are not identical, please review the log" )
 102     endif
 103
 104     ' ------------ Search whole words only -------------------------------------
 105     printlog( "" )
 106     printlog( "Search for <java>, whole words only" )
 107
 108     '///+<li>Apply filter: Whole words only</li>
 109     SearchFind.setText( "java" )
 110     FindFullWords.Check()
 111     FindInHeadingsOnly.unCheck()
 112
 113     '///+<li>Click &quot;Search&quot;</li>
 114     FindButton.click()
 115
 116     '///+<li>Retrieve all entries from the list</li>
 117     ListAllDelete( aUIList() )
 118     hGetListItems( Result, aUIList() )
 119
 120     '///+<li>Compare content to a reference or create a new ref-file</li>
 121     cDataFile = gProductName & "_search_whole_words_only_" & gIsoLang & ".txt"
 122     sFileOut  = hGetWorkFile( cDataFile )
 123     sFileIn   = convertpath( cBasePath & cDataFile )
 124
 125     irc       = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 126     if ( irc <> 0 ) then
 127         warnlog( "Lists are not identical, please review the log" )
 128     endif
 129
 130     ' ------------ Search headings only ----------------------------------------
 131     printlog( "" )
 132     printlog( "Search for <java>, headings only" )
 133
 134     '///+<li>Apply filter: Whole words only</li>
 135     SearchFind.setText( "java" )
 136     FindFullWords.unCheck()
 137     FindInHeadingsOnly.Check()
 138
 139     '///+<li>Click &quot;Search&quot;</li>
 140     FindButton.click()
 141
 142     '///+<li>Retrieve all entries from the list</li>
 143     ListAllDelete( aUIList() )
 144     hGetListItems( Result, aUIList() )
 145
 146     '///+<li>Compare content to a reference or create a new ref-file</li>
 147     cDataFile = gProductName & "_search_headings_only_" & gIsoLang & ".txt"
 148     sFileOut  = hGetWorkFile( cDataFile )
 149     sFileIn   = convertpath( cBasePath & cDataFile )
 150
 151     irc       = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 152     if ( irc <> 0 ) then
 153         warnlog( "Lists are not identical, please review the log" )
 154     endif
 155
 156     ' ------------ Search headings and whole words -----------------------------
 157     printlog( "" )
 158     printlog( "Search for <java>, limit results to whole words and headings" )
 159
 160     '///+<li>Apply filter: Headings and whole words</li>
 161     SearchFind.setText( "java" )
 162     FindFullWords.Check()
 163     FindInHeadingsOnly.Check()
 164
 165     '///+<li>Click &quot;Search&quot;</li>
 166     FindButton.click()
 167
 168     '///+<li>Retrieve all entries from the list</li>
 169     ListAllDelete( aUIList() )
 170     hGetListItems( Result, aUIList() )
 171
 172     '///+<li>Compare content to a reference or create a new ref-file</li>
 173     cDataFile = gProductName & "_search_headings_and_whole_words_" & gIsoLang & ".txt"
 174     sFileOut  = hGetWorkFile( cDataFile )
 175     sFileIn   = convertpath( cBasePath & cDataFile )
 176
 177     irc       = hManageComparisionList( sFileIn, sFileOut, aUIList() )
 178     if ( irc <> 0 ) then
 179         warnlog( "Lists are not identical, please review the log" )
 180     endif
 181
 182
 183     hCloseHelp()
 184
 185 endcase
 186
 187
 188