testautomation/chart2/required/includes/ch2_menu.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: ch2_menu.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:38:53 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Resource Test for chart2 main menus
  37 '*
  38 '**************************************************************************************************
  39 '*
  40 ' #1 tMainMenu          'Checking the count of menu entries in each menu
  41 '*
  42 '\*************************************************************************************************
  43
  44 testcase tMainMenu
  45     dim iCount as integer ' the numbers of the items in the menu.
  46
  47     dim iMainMenuItemCount as integer
  48         iMainMenuItemCount = 21 : if ( gPlatform = "osx" ) then iMainMenuItemCount = 20
  49
  50     dim iHelpMenuItemCount as integer
  51         iHelpMenuItemCount = 5  : if ( gPlatform = "osx" ) then iHelpMenuItemCount = 4
  52
  53     printlog "Close all document windows (File / Close)"
  54     Do Until GetDocumentCount = 0
  55         Call hCloseDocument
  56     Loop
  57     printlog "File / New / Spreadsheet"
  58     call hNewDocument
  59
  60     printlog "insert a Chart Object"
  61     if fInsertOLE = FALSE then
  62         warnlog "It was not possible to insert a chart as OLE."
  63         Call hCloseDocument
  64     else
  65         Kontext "DocumentCalc"
  66         DocumentCalc.UseMenu
  67         printlog "check if there are 21 items in the FILE menu."
  68         hMenuSelectNr(1) ' FILE
  69         iCount = hMenuItemGetCount()
  70         if (iCount <> iMainMenuItemCount ) then
  71             warnlog "There should be 20 or 21 items in the file menu but there are " + iCount + " items."
  72         end if
  73         call hMenuClose() ' close the FILE menu
  74
  75         printlog "check if there are 12 items in the FILE/NEW menu."
  76         DocumentCalc.UseMenu
  77         hMenuSelectNr(1) ' FILE
  78         hMenuSelectNr(1) ' NEW
  79         iCount = hMenuItemGetCount()
  80         if (iCount <> 12) then
  81             warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items."
  82         end if
  83         call hMenuClose() ' close the FILE menu
  84
  85         printlog "check if there are 8 items in the FILE/AUTOPILOT menu."
  86         DocumentCalc.UseMenu
  87         hMenuSelectNr(1) ' FILE
  88         hMenuSelectNr(4) ' AUTOPILOT
  89         iCount = hMenuItemGetCount()
  90         if (iCount <> 8) then
  91             warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items."
  92         end if
  93         call hMenuClose()
  94
  95         printlog "check if there are 5 items in the EDIT menu."
  96         DocumentCalc.UseMenu
  97         hMenuSelectNr(2)
  98         iCount = hMenuItemGetCount()
  99         if (iCount <> 5) then
 100             warnlog "There should 5 items in the edit menu but there are " + iCount + " items."
 101         end if
 102         call hMenuClose()
 103
 104         printlog "check if there are 4 items in the VIEW menu."
 105         DocumentCalc.UseMenu
 106         hMenuSelectNr(3)
 107         iCount = hMenuItemGetCount()
 108         if (iCount <> 4) then
 109             warnlog "There should 4 items in the view menu but there are " + iCount + " items."
 110         end if
 111         call hMenuClose()
 112
 113         printlog "check if there are 4 items in the VIEW/TOOLBAR menu."
 114         DocumentCalc.UseMenu
 115         hMenuSelectNr(3) ' VIEW
 116         hMenuSelectNr(1) ' TOOLBAR
 117         iCount = hMenuItemGetCount()
 118         if (iCount <> 4) then
 119             warnlog "There should 4 items in the VIEW/TOOLBAR menu but there are " + iCount + " items."
 120         end if
 121         call hMenuClose()
 122
 123         printlog "check if there are 9 items in the INSERT menu."
 124         DocumentCalc.UseMenu
 125         hMenuSelectNr(4) 'INSERT
 126         iCount = hMenuItemGetCount()
 127         if (iCount <> 9) then
 128             warnlog "There should 9 items in the INSERT menu but there are " + iCount + " items."
 129         end if
 130         call hMenuClose()
 131
 132         printlog "check if there are 13 items in the FORMAT menu."
 133         DocumentCalc.UseMenu
 134         hMenuSelectNr(5) ' FORMAT
 135         iCount = hMenuItemGetCount()
 136         if (iCount <> 13) then
 137             warnlog "There should 13 items in the FORMAT menu but there are " + iCount + " items."
 138         end if
 139
 140         printlog "check if there are 2 items in the FORMAT/ARRANGEMENT menu."
 141         DocumentCalc.UseMenu
 142         hMenuSelectNr(5) ' FORMAT
 143         hMenuSelectNr(3) ' ARRANGEMENT
 144         iCount = hMenuItemGetCount()
 145         if (iCount <> 2) then
 146             warnlog "There should 2 items in the FORMAT/ARRANGEMENT menu but there are " + iCount + " items."
 147         end if
 148
 149         printlog "check if there are 6 items in the FORMAT/AXIS menu."
 150         DocumentCalc.UseMenu
 151         hMenuSelectNr(5) ' FORMAT
 152         hMenuSelectNr(5) ' AXIS
 153         iCount = hMenuItemGetCount()
 154         if (iCount <> 6) then
 155             warnlog "There should 6 items in the FORMAT/AXIS menu but there are " + iCount + " items."
 156         end if
 157
 158         printlog "check if there are 7 items in the FORMAT/GRID menu."
 159         DocumentCalc.UseMenu
 160         hMenuSelectNr(5) ' FORMAT
 161         hMenuSelectNr(6) ' GRID
 162         iCount = hMenuItemGetCount()
 163         if (iCount <> 7) then
 164             warnlog "There should 7 items in the FORMAT/GRID menu but there are " + iCount + " items."
 165         end if
 166
 167         printlog "check if there are 6 items in the FORMAT/Title menu."
 168         DocumentCalc.UseMenu
 169         hMenuSelectNr(5) ' FORMAT
 170         hMenuSelectNr(4) ' TITLE
 171         iCount = hMenuItemGetCount()
 172         if (iCount <> 8) then
 173             warnlog "There should 8 items in the FORMAT/Title menu but there are " + iCount + " items."
 174         end if
 175
 176         printlog "check if there are 13 items in the TOOLS menu."
 177         DocumentCalc.UseMenu
 178         hMenuSelectNr(5)
 179         iCount = hMenuItemGetCount()
 180         if (iCount <> 13) then
 181             warnlog "There should 13 items in the tools menu but there are " + iCount + " items."
 182         end if
 183         call hMenuClose()
 184
 185         printlog "check if there are 4 items in the TOOLS/MACRO menu."
 186         DocumentCalc.UseMenu
 187         hMenuSelectNr(6)
 188         hMenuSelectNr(1)
 189         iCount = hMenuItemGetCount()
 190         if (iCount <> 4) then
 191             warnlog "There should 4 items in the TOOLS/MACRO menu but there are " + iCount + " items."
 192         end if
 193         call hMenuClose()
 194
 195         printlog "check if there are 5 items in the WINDOW menu."
 196         DocumentCalc.UseMenu
 197         hMenuSelectNr(7)
 198         iCount = hMenuItemGetCount()
 199         if (iCount <> 5) then
 200             warnlog "There should 5 items in the WINDOW menu but there are " + iCount + " items."
 201         end if
 202         call hMenuClose()
 203
 204         printlog "check if there are 5 or 6 items in the HELP menu. Depends on if it's a patched version"
 205         DocumentCalc.UseMenu
 206         hMenuSelectNr(8)
 207         iCount = hMenuItemGetCount()
 208         if (iCount <> ( iHelpMenuItemCount + 1 ) AND iCount <> iHelpMenuItemCount ) then
 209             warnlog "There should 5 OR 6 items in the HELP menu but there are " + iCount + " items."
 210         end if
 211         call hMenuClose()
 212         call hCloseDocument
 213     end if
 214 endcase
 215
 216