'encoding UTF-8 Do not remove or change this line! '************************************************************************** '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. '* '* Copyright 2008 by Sun Microsystems, Inc. '* '* OpenOffice.org - a multi-platform office productivity suite '* '* $RCSfile: ch2_menu.inc,v $ '* '* $Revision: 1.3 $ '* '* last change: $Author: rt $ $Date: 2008-08-28 11:38:53 $ '* '* This file is part of OpenOffice.org. '* '* OpenOffice.org is free software: you can redistribute it and/or modify '* it under the terms of the GNU Lesser General Public License version 3 '* only, as published by the Free Software Foundation. '* '* OpenOffice.org is distributed in the hope that it will be useful, '* but WITHOUT ANY WARRANTY; without even the implied warranty of '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '* GNU Lesser General Public License version 3 for more details '* (a copy is included in the LICENSE file that accompanied this code). '* '* You should have received a copy of the GNU Lesser General Public License '* version 3 along with OpenOffice.org. If not, see '* '* for a copy of the LGPLv3 License. '* '/************************************************************************ '* '* owner : joerg.sievers@sun.com '* '* short description : Resource Test for chart2 main menus '* '************************************************************************************************** '* ' #1 tMainMenu 'Checking the count of menu entries in each menu '* '\************************************************************************************************* testcase tMainMenu dim iCount as integer ' the numbers of the items in the menu. dim iMainMenuItemCount as integer iMainMenuItemCount = 21 : if ( gPlatform = "osx" ) then iMainMenuItemCount = 20 dim iHelpMenuItemCount as integer iHelpMenuItemCount = 5 : if ( gPlatform = "osx" ) then iHelpMenuItemCount = 4 printlog "Close all document windows (File / Close)" Do Until GetDocumentCount = 0 Call hCloseDocument Loop printlog "File / New / Spreadsheet" call hNewDocument printlog "insert a Chart Object" if fInsertOLE = FALSE then warnlog "It was not possible to insert a chart as OLE." Call hCloseDocument else Kontext "DocumentCalc" DocumentCalc.UseMenu printlog "check if there are 21 items in the FILE menu." hMenuSelectNr(1) ' FILE iCount = hMenuItemGetCount() if (iCount <> iMainMenuItemCount ) then warnlog "There should be 20 or 21 items in the file menu but there are " + iCount + " items." end if call hMenuClose() ' close the FILE menu printlog "check if there are 12 items in the FILE/NEW menu." DocumentCalc.UseMenu hMenuSelectNr(1) ' FILE hMenuSelectNr(1) ' NEW iCount = hMenuItemGetCount() if (iCount <> 12) then warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items." end if call hMenuClose() ' close the FILE menu printlog "check if there are 8 items in the FILE/AUTOPILOT menu." DocumentCalc.UseMenu hMenuSelectNr(1) ' FILE hMenuSelectNr(4) ' AUTOPILOT iCount = hMenuItemGetCount() if (iCount <> 8) then warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 5 items in the EDIT menu." DocumentCalc.UseMenu hMenuSelectNr(2) iCount = hMenuItemGetCount() if (iCount <> 5) then warnlog "There should 5 items in the edit menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 4 items in the VIEW menu." DocumentCalc.UseMenu hMenuSelectNr(3) iCount = hMenuItemGetCount() if (iCount <> 4) then warnlog "There should 4 items in the view menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 4 items in the VIEW/TOOLBAR menu." DocumentCalc.UseMenu hMenuSelectNr(3) ' VIEW hMenuSelectNr(1) ' TOOLBAR iCount = hMenuItemGetCount() if (iCount <> 4) then warnlog "There should 4 items in the VIEW/TOOLBAR menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 9 items in the INSERT menu." DocumentCalc.UseMenu hMenuSelectNr(4) 'INSERT iCount = hMenuItemGetCount() if (iCount <> 9) then warnlog "There should 9 items in the INSERT menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 13 items in the FORMAT menu." DocumentCalc.UseMenu hMenuSelectNr(5) ' FORMAT iCount = hMenuItemGetCount() if (iCount <> 13) then warnlog "There should 13 items in the FORMAT menu but there are " + iCount + " items." end if printlog "check if there are 2 items in the FORMAT/ARRANGEMENT menu." DocumentCalc.UseMenu hMenuSelectNr(5) ' FORMAT hMenuSelectNr(3) ' ARRANGEMENT iCount = hMenuItemGetCount() if (iCount <> 2) then warnlog "There should 2 items in the FORMAT/ARRANGEMENT menu but there are " + iCount + " items." end if printlog "check if there are 6 items in the FORMAT/AXIS menu." DocumentCalc.UseMenu hMenuSelectNr(5) ' FORMAT hMenuSelectNr(5) ' AXIS iCount = hMenuItemGetCount() if (iCount <> 6) then warnlog "There should 6 items in the FORMAT/AXIS menu but there are " + iCount + " items." end if printlog "check if there are 7 items in the FORMAT/GRID menu." DocumentCalc.UseMenu hMenuSelectNr(5) ' FORMAT hMenuSelectNr(6) ' GRID iCount = hMenuItemGetCount() if (iCount <> 7) then warnlog "There should 7 items in the FORMAT/GRID menu but there are " + iCount + " items." end if printlog "check if there are 6 items in the FORMAT/Title menu." DocumentCalc.UseMenu hMenuSelectNr(5) ' FORMAT hMenuSelectNr(4) ' TITLE iCount = hMenuItemGetCount() if (iCount <> 8) then warnlog "There should 8 items in the FORMAT/Title menu but there are " + iCount + " items." end if printlog "check if there are 13 items in the TOOLS menu." DocumentCalc.UseMenu hMenuSelectNr(5) iCount = hMenuItemGetCount() if (iCount <> 13) then warnlog "There should 13 items in the tools menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 4 items in the TOOLS/MACRO menu." DocumentCalc.UseMenu hMenuSelectNr(6) hMenuSelectNr(1) iCount = hMenuItemGetCount() if (iCount <> 4) then warnlog "There should 4 items in the TOOLS/MACRO menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 5 items in the WINDOW menu." DocumentCalc.UseMenu hMenuSelectNr(7) iCount = hMenuItemGetCount() if (iCount <> 5) then warnlog "There should 5 items in the WINDOW menu but there are " + iCount + " items." end if call hMenuClose() printlog "check if there are 5 or 6 items in the HELP menu. Depends on if it's a patched version" DocumentCalc.UseMenu hMenuSelectNr(8) iCount = hMenuItemGetCount() if (iCount <> ( iHelpMenuItemCount + 1 ) AND iCount <> iHelpMenuItemCount ) then warnlog "There should 5 OR 6 items in the HELP menu but there are " + iCount + " items." end if call hMenuClose() call hCloseDocument end if endcase