testautomation/framework/optional/includes/help_bookmarks.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_bookmarks.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 : Bookmarks in the help browser
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tHelpBookmarks
  41
  42     '///<H1>Bookmarks in the help browser</H1>
  43     '///<h2>help_bookmarks.bas::tHelpBookmarks</h2>
  44     '///<ul>
  45     dim brc as boolean
  46     dim cStringFind as string
  47     dim cStringBookmark as string
  48     dim iItemCount as integer
  49     const MYBOOKMARK = "myBookMark"
  50
  51     '///+<li>Open Help</li>
  52     brc = hOpenHelp()
  53     if ( not brc ) then
  54         warnlog( "Help not open, aborting test" )
  55         goto endsub
  56     endif
  57
  58     '///+<li>Select &quot;Find&quot; tab</li>
  59     brc = hSelectHelpTab( "find" )
  60
  61     '///+<li>Enter Search Term (Java)</li>
  62     SearchFind.setText( "java" )
  63
  64     '///+<li>Search whole words and headers only</li>
  65     FindInHeadingsOnly.check()
  66     FindFullWords.check()
  67     FindButton.click()
  68
  69     '///+<li>Select first match and display the item</li>
  70     Result.select( 1  )
  71     cStringFind = Result.getSelText()
  72     DisplayFind.click()
  73
  74     '///+<li>Switch to the bookmarks tab</li>
  75     brc = hSelectHelpTab( "bookmarks" )
  76
  77     '///+<li>Click the &quot;Add Bookmark&quot; button</li>
  78     printlog( " Adding bookmark" )
  79     SetBookmarks.click()
  80
  81     '///+<li>Name the bookmark after checking its default name</li>
  82     Kontext "AddBookmark"
  83
  84     printlog( " Verifying default name of bookmark" )
  85     cStringBookmark = BookmarkName.getText()
  86     if ( cStringFind = cStringBookmark ) then
  87         printlog( " Bookmark has correct default name: " & cStringFind )
  88     else
  89         warnlog( "Incorrect default name for new bookmark" )
  90     endif
  91
  92     printlog( " Accept default name, close dialog with ok" )
  93     AddBookmark.ok()
  94
  95     '///+<li>Verify that the bookmark has been added to the list</li>
  96     hSelectHelpTab( "bookmarks" )
  97     printlog( " Verify that the bookmark has been added" )
  98     Kontext "BookmarksPage"
  99     iItemCount = Bookmarks.getItemCount()
 100     if ( iItemCount = 1 ) then
 101         printlog( " The correct number of bookmarks is listed (1)" )
 102     else
 103         warnlog( "Incorrect number of bookmarks listed" )
 104     endif
 105
 106     '///+<li>Abort the test if there is no bookmark listed at all</li>
 107     if ( iItemCount = 0 ) then
 108         warnlog( "Bookmark has not been created, aborting test" )
 109         call hCloseHelp()
 110         goto endsub
 111     endif
 112
 113     '///+<li>Verify that the bookmark name makes it to the bookmarks list</li>
 114     Kontext "BookmarksPage"
 115     Bookmarks.select( 1 )
 116     cStringBookmark = Bookmarks.getSelText()
 117     if ( cStringBookmark = cStringFind ) then
 118         printlog( " Name in the bookmarks-list: " & cStringFind )
 119     else
 120         warnlog( "Incorrect name in bookmarks list: " & cStringBookmark )
 121     endif
 122
 123     '///+<li>Close the help</li>
 124     brc = hCloseHelp()
 125
 126     '///+<li>Reopen Help</li>
 127     brc = hOpenHelp()
 128
 129     '///+<li>Verify that the bookmark is still present</li>
 130     brc = hSelectHelpTab( "bookmarks" )
 131
 132     '///+<li>Open context menu, select &quot;Rename&quot;</li>
 133     printlog( " Open the context menu and rename the bookmark" )
 134     Kontext "BookmarksPage"
 135     Bookmarks.select( 1 )
 136     brc = hUseBookmarksContextMenu( "rename" )
 137
 138     '///+<li>Change the name of the bookmark, accept with ok</li>
 139     Kontext "AddBookmark"
 140     if ( brc and AddBookmark.exists() ) then
 141         BookmarkName.setText( MYBOOKMARK )
 142         AddBookmark.ok()
 143     else
 144         warnlog( "The AddBookmarks dialog is not open" )
 145     endif
 146
 147     '///+<li>Verify that the changed name is listed in the listbox</li>
 148     hSelectHelpTab( "bookmarks" )
 149     kontext "BookmarksPage"
 150     Bookmarks.select( 1 )
 151     cStringBookmark = Bookmarks.getSelText()
 152     if ( cStringBookmark = MYBOOKMARK ) then
 153         printlog( " The Bookmark has been renamed: " & cStringBookmark )
 154     else
 155         warnlog( "Incorrect name displayed in bookmarks list" )
 156     endif
 157
 158     '///+<li>Close the Help, Close the Office</li>
 159     brc = hCloseHelp()
 160
 161     '///+<li>Restart the office, open help, switch to Bookmarks tab</li>
 162     printlog( " Exit and restart the office" )
 163     call ExitRestartTheOffice()
 164     brc = hOpenHelp()
 165     brc = hSelectHelpTab( "bookmarks" )
 166
 167     '///+<li>Verify that the renamed bookmark still exists</li>
 168     Kontext "BookmarksPage"
 169     Bookmarks.select( 1 )
 170     cStringBookmark = Bookmarks.getSelText()
 171     if ( cStringBookmark = MYBOOKMARK ) then
 172         printlog( " The bookmark has the correct name" )
 173     else
 174         warnlog( "Incorrect name displayed in bookmarks list" )
 175     endif
 176
 177     '///+<li>Delete the Bookmark (using context menu)</li>
 178     brc = hUseBookmarksContextMenu( "delete" )
 179
 180     '///+<li>verify that the bookmark has been deleted (none left)</li>
 181     kontext "Bookmarks"
 182     if ( bookmarks.getItemCount = 0 ) then
 183         printlog( " Bookmark has been deleted" )
 184     else
 185         warnlog( "There are bookmarks left over, please check" )
 186     endif
 187
 188     '///+<li>Close the help</li>
 189     brc = hClosehelp()
 190
 191     '///+<li>Open help, switch to bookmarks tab</li>
 192     brc = hOpenhelp()
 193     brc = hSelectHelpTab( "bookmarks" )
 194
 195     '///+<li>Verify that the bookmark has been deleted</li>
 196     kontext "BookmarksPage"
 197     iItemCount = Bookmarks.getItemCount()
 198     if ( iItemCount = 0 ) then
 199         printlog( " The bookmark has been deleted" )
 200     else
 201         warnlog( "Bookmarks have been left over, there should be none" )
 202     endif
 203
 204     '///+<li>Close help</li>
 205     brc = hCloseHelp()
 206
 207     '///</ul>
 208
 209 endcase
 210