diff options
Diffstat (limited to 'testautomation/chart2/required')
| -rw-r--r-- | testautomation/chart2/required/includes/ch2_menu.inc | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/testautomation/chart2/required/includes/ch2_menu.inc b/testautomation/chart2/required/includes/ch2_menu.inc index 5d6105f0f458..df03c4dcabb8 100644 --- a/testautomation/chart2/required/includes/ch2_menu.inc +++ b/testautomation/chart2/required/includes/ch2_menu.inc @@ -50,6 +50,10 @@ testcase tMainMenu dim iHelpMenuItemCount as integer iHelpMenuItemCount = 5 : if ( gPlatform = "osx" ) then iHelpMenuItemCount = 4 + dim iToolsMenuItemCount as integer + iToolsMenuItemCount = 4 : if ( gPlatform = "osx" ) then iToolsMenuItemCount = 3 + 'Options entry is called Preferences and resides in application MacOS X menu + printlog "Close all document windows (File / Close)" Do Until GetDocumentCount = 0 Call hCloseDocument @@ -173,12 +177,12 @@ testcase tMainMenu warnlog "There should 8 items in the FORMAT/Title menu but there are " + iCount + " items." end if - printlog "check if there are 4 items in the TOOLS menu." + printlog "check if there are " + iToolsMenuItemCount + " items in the TOOLS menu." DocumentCalc.UseMenu hMenuSelectNr(6) iCount = hMenuItemGetCount() - if (iCount <> 4) then - warnlog "There should 4 items in the tools menu but there are " + iCount + " items." + if (iCount <> iToolsMenuItemCount) then + warnlog "There should " + iToolsMenuItemCount + " items in the tools menu but there are " + iCount + " items." end if call hMenuClose() |