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     dim iToolsMenuItemCount as integer
  54         iToolsMenuItemCount = 4  : if ( gPlatform = "osx" ) then iToolsMenuItemCount = 3
  55         'Options entry is called Preferences and resides in application MacOS X menu
  56
  57     printlog "Close all document windows (File / Close)"
  58     Do Until GetDocumentCount = 0
  59         Call hCloseDocument
  60     Loop
  61     printlog "File / New / Spreadsheet"
  62     call hNewDocument
  63
  64     printlog "insert a Chart Object"
  65     if fInsertOLE = FALSE then
  66         warnlog "It was not possible to insert a chart as OLE."
  67         Call hCloseDocument
  68     else
  69         Kontext "DocumentCalc"
  70         DocumentCalc.UseMenu
  71         printlog "check if there are 21 items in the FILE menu."
  72         hMenuSelectNr(1) ' FILE
  73         iCount = hMenuItemGetCount()
  74         if (iCount <> iMainMenuItemCount ) then
  75             warnlog "There should be 20 or 21 items in the file menu but there are " + iCount + " items."
  76         end if
  77         call hMenuClose() ' close the FILE menu
  78
  79         printlog "check if there are 12 items in the FILE/NEW menu."
  80         DocumentCalc.UseMenu
  81         hMenuSelectNr(1) ' FILE
  82         hMenuSelectNr(1) ' NEW
  83         iCount = hMenuItemGetCount()
  84         if (iCount <> 12) then
  85             warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items."
  86         end if
  87         call hMenuClose() ' close the FILE menu
  88
  89         printlog "check if there are 8 items in the FILE/AUTOPILOT menu."
  90         DocumentCalc.UseMenu
  91         hMenuSelectNr(1) ' FILE
  92         hMenuSelectNr(4) ' AUTOPILOT
  93         iCount = hMenuItemGetCount()
  94         if (iCount <> 8) then
  95             warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items."
  96         end if
  97         call hMenuClose()
  98
  99         printlog "check if there are 5 items in the EDIT menu."
 100         DocumentCalc.UseMenu
 101         hMenuSelectNr(2)
 102         iCount = hMenuItemGetCount()
 103         if (iCount <> 5) then
 104             warnlog "There should 5 items in the edit menu but there are " + iCount + " items."
 105         end if
 106         call hMenuClose()
 107
 108         printlog "check if there are 4 items in the VIEW menu."
 109         DocumentCalc.UseMenu
 110         hMenuSelectNr(3)
 111         iCount = hMenuItemGetCount()
 112         if (iCount <> 4) then
 113             warnlog "There should 4 items in the view menu but there are " + iCount + " items."
 114         end if
 115         call hMenuClose()
 116
 117         printlog "check if there are 4 items in the VIEW/TOOLBAR menu."
 118         DocumentCalc.UseMenu
 119         hMenuSelectNr(3) ' VIEW
 120         hMenuSelectNr(1) ' TOOLBAR
 121         iCount = hMenuItemGetCount()
 122         if (iCount <> 4) then
 123             warnlog "There should 4 items in the VIEW/TOOLBAR menu but there are " + iCount + " items."
 124         end if
 125         call hMenuClose()
 126
 127         printlog "check if there are 9 items in the INSERT menu."
 128         DocumentCalc.UseMenu
 129         hMenuSelectNr(4) 'INSERT
 130         iCount = hMenuItemGetCount()
 131         if (iCount <> 9) then
 132             warnlog "There should 9 items in the INSERT menu but there are " + iCount + " items."
 133         end if
 134         call hMenuClose()
 135
 136         printlog "check if there are 13 items in the FORMAT menu."
 137         DocumentCalc.UseMenu
 138         hMenuSelectNr(5) ' FORMAT
 139         iCount = hMenuItemGetCount()
 140         if (iCount <> 13) then
 141             warnlog "There should 13 items in the FORMAT menu but there are " + iCount + " items."
 142         end if
 143
 144         printlog "check if there are 2 items in the FORMAT/ARRANGEMENT menu."
 145         DocumentCalc.UseMenu
 146         hMenuSelectNr(5) ' FORMAT
 147         hMenuSelectNr(3) ' ARRANGEMENT
 148         iCount = hMenuItemGetCount()
 149         if (iCount <> 2) then
 150             warnlog "There should 2 items in the FORMAT/ARRANGEMENT menu but there are " + iCount + " items."
 151         end if
 152
 153         printlog "check if there are 6 items in the FORMAT/AXIS menu."
 154         DocumentCalc.UseMenu
 155         hMenuSelectNr(5) ' FORMAT
 156         hMenuSelectNr(6) ' AXIS
 157         iCount = hMenuItemGetCount()
 158         if (iCount <> 6) then
 159             warnlog "There should 6 items in the FORMAT/AXIS menu but there are " + iCount + " items."
 160         end if
 161
 162         printlog "check if there are 7 items in the FORMAT/GRID menu."
 163         DocumentCalc.UseMenu
 164         hMenuSelectNr(5) ' FORMAT
 165         hMenuSelectNr(7) ' GRID
 166         iCount = hMenuItemGetCount()
 167         if (iCount <> 7) then
 168             warnlog "There should 7 items in the FORMAT/GRID menu but there are " + iCount + " items."
 169         end if
 170
 171         printlog "check if there are 6 items in the FORMAT/Title menu."
 172         DocumentCalc.UseMenu
 173         hMenuSelectNr(5) ' FORMAT
 174         hMenuSelectNr(4) ' TITLE
 175         iCount = hMenuItemGetCount()
 176         if (iCount <> 8) then
 177             warnlog "There should 8 items in the FORMAT/Title menu but there are " + iCount + " items."
 178         end if
 179
 180         printlog "check if there are " + iToolsMenuItemCount + " items in the TOOLS menu."
 181         DocumentCalc.UseMenu
 182         hMenuSelectNr(6)
 183         iCount = hMenuItemGetCount()
 184         if (iCount <> iToolsMenuItemCount) then
 185             warnlog "There should " + iToolsMenuItemCount + " items in the tools menu but there are " + iCount + " items."
 186         end if
 187         call hMenuClose()
 188
 189         printlog "check if there are 4 items in the TOOLS/MACRO menu."
 190         DocumentCalc.UseMenu
 191         hMenuSelectNr(6)
 192         hMenuSelectNr(1)
 193         iCount = hMenuItemGetCount()
 194         if (iCount <> 4) then
 195             warnlog "There should 4 items in the TOOLS/MACRO menu but there are " + iCount + " items."
 196         end if
 197         call hMenuClose()
 198
 199         printlog "check if there are 5 items in the WINDOW menu."
 200         DocumentCalc.UseMenu
 201         hMenuSelectNr(7)
 202         iCount = hMenuItemGetCount()
 203         if (iCount <> 5) then
 204             warnlog "There should 5 items in the WINDOW menu but there are " + iCount + " items."
 205         end if
 206         call hMenuClose()
 207
 208         printlog "check if there are 5 or 6 items in the HELP menu. Depends on if it's a patched version"
 209         DocumentCalc.UseMenu
 210         hMenuSelectNr(8)
 211         iCount = hMenuItemGetCount()
 212         if (iCount <> ( iHelpMenuItemCount + 1 ) AND iCount <> iHelpMenuItemCount ) then
 213             warnlog "There should 5 OR 6 items in the HELP menu but there are " + iCount + " items."
 214         end if
 215         call hMenuClose()
 216         call hCloseDocument
 217     end if
 218 endcase
 219
 220