testautomation/framework/optional/includes/menuentries.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: menuentries.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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Read menubar and first level drop down lists and compare to reference
  37 '*
  38 '\*****************************************************************
  39
  40 sub t_getMenuText
  41     dim k,c as integer
  42     dim sApplication() as string
  43
  44     sApplication = array("WRITER","MASTERDOCUMENT","HTML","CALC","IMPRESS","DRAW","MATH","BASIC","DATABASE")
  45
  46     ' for every application
  47     c = uBound(sApplication())
  48     for k = 0 to c
  49         gApplication = sApplication(k)
  50         printlog "********** " + gApplication
  51         call s_getMenuText
  52     next k
  53     gApplication = "WRITER"
  54 end sub
  55
  56 testcase s_getMenuText
  57     dim i,j,l,m,a,b,d,e as integer
  58     dim sReference(400) as string
  59     dim sCurrent(400) as string
  60     dim sFileName as string
  61     dim sTemp as string
  62     dim bError as boolean
  63     dim iTopLevelCount as integer
  64     dim iOffset as integer
  65
  66         for i=0 to uBound(sReference())
  67             sReference(i) = 0
  68             sCurrent(i) = 0
  69         next i
  70         bError = FALSE
  71         hNewDocument
  72         hUseMenu
  73         ' for every item in main menu bar
  74         a = MenuGetItemCount
  75         iTopLevelCount = a
  76         MenuSelect (0)
  77         for i = 1 to a
  78             hUseMenu
  79             stemp = MenuGetItemText(MenuGetItemID(i))
  80             'printlog sTemp
  81             listAppend(sCurrent(),"********** "+sTemp)
  82             MenuSelect(MenuGetItemID(i))
  83             b = MenuGetItemCount
  84             for j = 1 to b
  85                 sTemp = MenuGetItemText(MenuGetItemID(j))
  86                 'printlog "    " + sTemp
  87                 listAppend(sCurrent(),sTemp)
  88             next j
  89             MenuSelect (0)
  90         next i
  91         hCloseDocument
  92         sFileName = convertPath(gTestToolPath+"framework\optional\input/menu/"+lCase(gISOLang+"_"+gApplication+".txt"))
  93         printlog( "Using reference file: " & sFileName )
  94         ' gProductName should not make a big difference.
  95         if fileExists(sFileName) then
  96             ' load to compare
  97             listRead(sReference(), sFileName, "utf8")
  98             d = listCount(sCurrent())
  99             m = d
 100             e = listCount(sReference())
 101             if (d <> e) then
 102                 warnlog "The count of Menuentries differs from reference "+gApplication+". should: '" + e + "'; delta is: '" + (d - e) + "'"
 103                 bError = TRUE
 104                 ' always take the shorter list count
 105                 if cBool(d - e) then
 106                     d = e
 107                 endif
 108                 e = m - e
 109             else
 110                 printlog "Count of Menuentries is ok"
 111                 e = 0
 112             endif
 113             ' compare all entries
 114             iOffset = 0
 115             m = 0
 116             for l=1 to d
 117                 ' count main menu bar items
 118                 if inStr(sReference(l), "********** ") > 0 then
 119                     m = m + 1
 120                     ' bug in inc m :-(
 121                     printlog mid(sReference(l),12)
 122                 endif
 123                 ' complain non existing accelerator
 124                 if (sReference(l) <> "") AND (inStr(sReference(l),"~") < 1) then
 125                     qaErrorLog "No accelerator (~) in item: '" + sReference(l) + "'"
 126                 endif
 127                 ' compare the menu entries
 128                 if (sReference(l) <> sCurrent(l+iOffset))then
 129                     ' try to syncronize different count of entries
 130                     if (e <> 0) then
 131                         iOffset = iOffset + sgn(e)
 132                         'qaerrorlog "io: " + ioffset
 133                         e = e - sgn(e)
 134                         'qaerrorlog "e: " + e
 135                     endif
 136                     '
 137                     if (m = (iTopLevelCount-1)) then
 138                         ' tolerate the window menu
 139                         printlog "String differs: " + chr(13) + "current  : '"+sCurrent(l) + "'" + chr(13) + "reference: '" + sReference(l) + "'"
 140                     else
 141                         bError = TRUE
 142                         warnlog "String differs: " + chr(13) + "current  : '"+sCurrent(l) + "'" + chr(13) + "reference: '" + sReference(l) + "'"
 143                     endif
 144                 endif
 145             next l
 146           '  for l=d-5 to d+5
 147           '  printlog "------"
 148           '  printlog sreference(l)
 149           '  printlog scurrent(l)
 150           '  next l
 151             ' if there is still is a difference in count
 152             if (e <> 0) then
 153                 if sgn(e) then
 154                     warnlog "Not all reference entries are there, e.g.: '" + sReference(l+1) + "'"
 155                 else
 156                     warnlog "There are too much entries, e.g.: '" + sCurrent(l+1) + "'"
 157                 endif
 158             endif
 159             if bError then
 160                 sFileName = convertPath(gOfficePath+"user/work/menu/"+lCase(gISOLang+"_"+gApplication+".txt"))
 161                 listWrite(sCurrent(), sFileName, "utf8")
 162                 printlog "Written strings from this build to: " + chr(13) + sFileName
 163             else
 164                 ' OK
 165             endif
 166         else
 167             ' write to checkin
 168             warnlog "No reference found; please copy:"+lCase(gISOLang+"_"+gApplication+".txt")
 169             sFileName = convertPath(gOfficePath+"user/work/menu/"+lCase(gISOLang+"_"+gApplication+".txt"))
 170             listWrite(sCurrent(), sFileName, "utf8")
 171             printlog sFileName + chr(13) + "to"
 172             sFileName = convertPath(gTestToolPath+"framework/level1/input/menu/"+lCase(gISOLang+"_"+gApplication+".txt"))
 173             printlog sFilename
 174             'listWrite(sCurrent(), sFileName, "utf8")
 175         endif
 176     'speichern: (vendor?) sprache gISOLang applikation
 177 endcase
 178