testautomation/framework/optional/includes/configuration.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* Owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : Function Test for known global Issues
  31 '*
  32 '\*****************************************************************
  33
  34 sub sToolsCustomizeKeyboardFunction
  35     dim aApplication() as string
  36     dim i,a,b as integer
  37     dim lList(1000) as string
  38     dim sTemp as string
  39
  40     ' go through all applications:
  41     aApplication()=array("WRITER","MASTERDOCUMENT","HTML","CALC","IMPRESS","DRAW","MATH","DATABASE")
  42     a=uBound(aApplication())
  43     sTemp = gApplication
  44     for i = 0 to a
  45
  46         if ( i = 7 and gtSysName = "Solaris x86" ) then
  47             '#i62423#
  48             warnlog( "Solaris: Crash when opening new database" )
  49         else
  50             gApplication = aApplication(i)
  51             tToolsCustomizeKeyboardFunction(lList())
  52         endif
  53     next i
  54     gApplication = sTemp
  55
  56     listsort(lList())
  57     a = ListCount(lList())
  58     printlog "Count1: " + a
  59     if (a>0) then
  60         b = 0
  61         sTemp=""
  62         for i=1 to a
  63             if (lList(i) <> sTemp) then
  64                 printlog ""+i+": '" + lList(i) + "'"
  65                 sTemp=lList(i)
  66                 inc(b)
  67             endif
  68         next i
  69         printlog "Number of unique Errors: " + b
  70     endif
  71 end sub
  72
  73 testcase tToolsCustomizeKeyboardFunction(lList())
  74     dim sKeys(300,2) as string
  75     dim i,a,b,c,d as integer
  76     dim sTemp, sTemp2 as string
  77     dim iBugCount(10) as integer
  78     dim bErrorFound as boolean
  79     dim i43969 as string ' ALL
  80     dim i60617 as string ' ALL
  81     dim i64346 as string ' ALL
  82     dim i80850 as string ' ALL
  83     dim i84982 as string ' ALL
  84     dim i84983 as string
  85     dim i87950 as string
  86     dim i87951 as string
  87     dim i87952 as string
  88     dim i92080 as string
  89     dim i96322 as string
  90     dim i100037 as string
  91     dim i115370 as string
  92
  93     i60617 = ".uno:ContinueNumbering"
  94     i43969 = ".uno:MacroOrganizer"
  95     i64346 = ".uno:SendMailDocAs"
  96     i80850 = ".uno:ToggleFormula.uno:AssignMacro"
  97     i84982 = ".uno:FontDialogForParagraph"
  98     i84983 = ".uno:DBNewReportWithPreSelection"
  99     i87950 = ".uno:DBMigrateScripts"
 100     i87951 = ".uno:DeleteAllNotes.uno:DeleteAuthor.uno:DeleteNote.uno:HideAllNotes.uno:HideAuthor.uno:HideNote"
 101     i87952 = ".uno:InsertApplet"
 102     i92080 = ".uno:SaveGraphic"
 103     i96322 = ".uno:ActivateStyleApply"
 104     i100037 = ".uno:AcceptTracedChange, .uno:DeleteComment, .uno:RejectTracedChange, .uno:ReplyNote, .uno:TaskPaneInsertPage, .uno:ValidityReference"
 105     i115370 = ".uno:TaskPaneInsertPage"
 106
 107     Call hNewDocument
 108     sleep 2
 109     ToolsCustomize
 110     sleep 3
 111     Kontext
 112     Messagebox.SetPage TabTastatur         ' 2 ------------------
 113     Kontext "TabTastatur"
 114     for c = 1 to 2
 115         select case c
 116         case 1:
 117             StarOffice.Check
 118             Printlog ("-------------------- Keylist for StarOpenOfficeSuite.org --------------------")
 119         case 2:
 120             Application.Check
 121             Printlog ("-------------------- Keylist for "+gApplication+" ------------------------")
 122         end select
 123         i = Bereich.getItemCount
 124         for a = 1 to i
 125             Bereich.select(a,true)
 126             sTemp = Bereich.getSelText
 127             for b=1 to Funktion.getItemCount
 128                 sTemp2 = Funktion.getItemText(b)
 129                 d = inStr(sTemp2,":")
 130                 if (d>0) then
 131                     ' translators use ':'-> check if ' ' follows or CHR$ < 128
 132                     ' asc() returns 16 bit values in an integer -> sign is affected :-( -> use abs(asc())
 133                     if (((mid(sTemp2,d+1,1)<>" ")AND(abs(asc(mid(sTemp2,d+1,1)))<128)) AND (abs(asc(mid(sTemp2,d-1,1)))<128))then
 134                         listAppend(lList(),sTemp2)
 135                         bErrorFound = false
 136                         if (inStr(i115370,sTemp2)>0) then
 137                             qaerrorlog "#i115370# ("+c+"/"+a+"/"+b+"): Provide real Name for Function: '"+sTemp+"'::'"+sTemp2+"'"
 138                             bErrorFound = true
 139                         endif
 140                         if ( not bErrorFound ) then
 141                              warnlog "("+c+"/"+a+"/"+b+"): Provide real Name for Function: '"+sTemp+"'::'"+sTemp2+"'"
 142                         endif
 143                         inc(iBugCount(3))
 144                     endif
 145                 else
 146                     '  printlog "("+c+"/"+a+"/"+b+"): '"+sTemp+"'::'"+sTemp2+"'"
 147                 endif
 148             next b
 149         next a
 150     next c
 151     '    if (iBugCount(3) > 0) then WarnLog ""+iBugCount(3)+": Missing Name for funktion; is .uno:..."
 152     TabTastatur.cancel
 153     Call hCloseDocument
 154 endcase
 155
 156 testcase tToolsOptionsAPIConfiguration
 157     Dim iJump as Integer
 158     Dim sComXML as String
 159     Dim sHelpTip as String
 160     Dim sHelpExtendedTip as String
 161     Dim bHelpTip as Boolean
 162     Dim bHelpExtendedTip as Boolean
 163     Dim Silent as Boolean
 164     Dim sTempPath as string
 165     Dim sTempList(10) as string
 166     Dim sLocalString as string
 167
 168     'Used for GetXMLValueGlobal (DEPRECATED function!) to get no output in resultfile.
 169     Silent = TRUE
 170
 171     try
 172         ToolsOptions
 173         call hToolsOptions ("Languagesettings", "Languages")
 174         if (gAsianSup <> Aktivieren.IsChecked) then
 175             warnlog "gAsianSup differs from UI"
 176         endif
 177         if (gCTLSup <> ComplexScriptEnabled.IsChecked) then
 178             warnlog "gCTLSup differs from UI"
 179         endif
 180
 181         call hToolsOptions ("STAROFFICE", "ACCESSIBILITY")
 182         try
 183             if (gPlatGroup <> "unx") then
 184                 if (gAccessibility <> SupportAssistiveTechnologyTools.IsChecked) then
 185                     warnlog "gAccessibility differs from UI"
 186                 endif
 187             endif
 188         catch
 189             if (NOT gAccessibility) then
 190                 warnlog "gAccessibility differs from UI - catch"
 191             endif
 192         endcatch
 193
 194         call hToolsOptions ("StarOffice", "General")
 195         if StarOfficeDialogeBenutzen.Exists then
 196             if (NOT StarOfficeDialogeBenutzen.isChecked) then
 197                 warnlog "StarOfficeDialogeBenutzen is not checked"
 198             endif
 199         end if
 200
 201         call hToolsOptions ("StarOffice", "General")
 202         if (Tips.isChecked) then
 203             warnlog "Help Tip is checked"
 204         endif
 205
 206
 207         call hToolsOptions ("StarOffice", "Paths")
 208         select case iSprache
 209         case 01   : iJump =  6      ' English (USA)
 210         case 03   : iJump =  7      ' Portuguese
 211         case 07   : iJump =  0      ' Russian
 212         case 30   : iJump =  0      ' Greek
 213         case 31   : iJump =  0      ' Netherlands
 214         case 33   : iJump = 0       ' French
 215         case 34   : iJump = 0       ' Spanish
 216         case 35   : iJump =  0      ' Finnish
 217         case 36   : iJump =  0      ' Hungaria
 218         case 37   : iJump =  0      ' Catalan
 219         case 39   : iJump =  0      ' Italian
 220         case 42   : iJump =  0      ' Czech
 221         case 43   : iJump =  0      ' Slowak
 222         case 44   : iJump =  0      ' English (GB)
 223         case 45   : iJump =  0      ' Danish
 224         case 46   : iJump =  0      ' Swedish
 225         case 47   : iJump =  0      ' Norwegian
 226         case 48   : iJump =  0      ' Polish
 227         case 49   : iJump =  1      ' German
 228         case 51   : iJump =  0      ' Slowak
 229         case 50   : iJump =  0      ' Slovenian
 230         case 55   : iJump =  0      ' Portuguese (Brazil)
 231         case 66   : iJump =  0      ' Thai
 232         case 81   : iJump =  0      ' Japanese ' disabled, because locale dependant!
 233         case 82   : iJump =  0      ' Korean   ' disabled, because locale dependant!
 234         case 86   : iJump =  0      ' Chinese (simplified)  ' disabled, because locale dependant!
 235         case 88   : iJump =  0      ' Chinese (traditional) ' disabled, because locale dependant!
 236         case 90   : iJump =  0      ' Turkish
 237         case 91   : iJump =  0      ' Hindi
 238         case 96   : iJump =  0      ' Arab
 239         case 97   : iJump =  0      ' Hebrew
 240         case else : qaErrorlog "The work-dir can't changed to the internal office-work-dir! Please insert the language in this list!"
 241             iJump =  0
 242         end select
 243
 244         if iJump <> 0 then
 245             'DEBUG: printlog "**  master.inc::mMakeGeneralOptions::iJump(" & iSprache & ") = " & iJump
 246             sLocalString = Typ.getItemText(iJump,3) ' works in gh13
 247             if sLocalString = "" then
 248                 sLocalString = Typ.getItemText(iJump,2) ' fallback for before gh13
 249             endif
 250             if  (sLocalString <> ConvertPath (gOfficePath + "user\work")) then
 251                 warnlog ("Work Directory differs from API setting? : is: '" + sLocalString + "' should: '" + ConvertPath (gOfficePath + "user\work") + "'")
 252             endif
 253         else
 254             'TODO: figure out which Entry it could be
 255             for i = 1 to Typ.getItemCount
 256                 if (Typ.getItemText(i,2) = ConvertPath (gOfficePath + "user\work")) then
 257                     qaErrorLog ("found WorkDirectory at position: " + i)
 258                     iJump = i
 259                 endif
 260             next i
 261             if (iJump = 0) then
 262                 warnlog ("No workdirectory candidate found.")
 263             endif
 264         end if
 265
 266         select case iSprache
 267         case 01   : iJump = 8      ' English (USA)
 268         case 03   : iJump =  3      ' Portuguese
 269         case 07   : iJump =  0      ' Russian
 270         case 30   : iJump =  0      ' Greek
 271         case 31   : iJump = 0      ' Netherlands
 272         case 33   : iJump =  0      ' French
 273         case 34   : iJump =  1      ' Spanish
 274         case 35   : iJump =  0      ' Finnish
 275         case 36   : iJump =  0      ' Hungaria
 276         case 37   : iJump =  0      ' Catalan
 277         case 39   : iJump =  0      ' Italian
 278         case 42   : iJump =  0      ' Czech
 279         case 43   : iJump =  0      ' Slowak
 280         case 44   : iJump =  0      ' English (GB)
 281         case 45   : iJump =  0      ' Danish
 282         case 46   : iJump =  0     ' Swedish
 283         case 47   : iJump =  0      ' Norwegian
 284         case 48   : iJump =  0     ' Polish
 285         case 49   : iJump =  8     ' German
 286         case 51   : iJump =  0      ' Slowak
 287         case 55   : iJump =  1      ' Portuguese (Brazil)
 288         case 66   : iJump =  0      ' Thai
 289         case 81   : iJump =  0      ' Japanese ' disabled, because locale dependant!
 290         case 82   : iJump =  0      ' Korean   ' disabled, because locale dependant!
 291         case 86   : iJump =  0      ' Chinese (simplified)  ' disabled, because locale dependant!
 292         case 88   : iJump =  0      ' Chinese (traditional) ' disabled, because locale dependant!
 293         case 90   : iJump =  0      ' Turkish
 294         case 91   : iJump =  0      ' Hindi
 295         case 96   : iJump =  0      ' Arab
 296         case 97   : iJump =  0      ' Hebrew
 297         case else : qaErrorLog "The temp-dir can't changed to the internal office-temp-dir! Please insert the language in this list!"
 298             iJump =  0
 299         end select
 300         if iJump <> 0 then
 301             'DEBUG: printlog "**  master.inc::mMakeGeneralOptions::iJump(" & iSprache & ") = " & iJump
 302             sLocalString = Typ.getItemText(iJump,3) ' works in gh13
 303             if sLocalString = "" then
 304                 sLocalString = Typ.getItemText(iJump,2) ' fallback for before gh13
 305             endif
 306             if  (sLocalString <> ConvertPath (gOfficePath + "user\temp")) then
 307                 warnlog ("Temp Directory differs from API setting? : is: '" + sLocalString + "' should: '" + ConvertPath (gOfficePath + "user\temp") + "'")
 308             endif
 309         else
 310             'TODO: figure out which Entry it could be
 311             for i = 1 to Typ.getItemCount
 312                 if (Typ.getItemText(i,2) = ConvertPath (gOfficePath + "user\temp")) then
 313                     qaErrorLog ("found TempDirectory at position: " + i)
 314                     iJump = i
 315                 endif
 316             next i
 317             if (iJump = 0) then
 318                 warnlog ("No tempdirectory candidate found.")
 319             endif
 320         end if
 321
 322         Kontext "ExtrasOptionenDlg"
 323         ExtrasOptionenDlg.OK
 324         sleep(4)
 325     catch
 326         warnlog "Error during walking through optionsdialog"
 327     endcatch
 328 endcase
 329
 330