testautomation/framework/optional/includes/basic_issues.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 : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Regression tests for especially annoying BASIC issues
  31 '*
  32 '\******************************************************************************
  33
  34 function hIDERunMacro()
  35
  36     kontext "MacroBar"
  37     if ( MacroBar.exists() ) then
  38         BasicRun.click()
  39     else
  40         warnlog( "MacroBar not accessible" )
  41     endif
  42
  43 end function
  44
  45 '*******************************************************************************
  46
  47 function hTestActive( cString as string , iMethod as integer , bExact as boolean ) as integer
  48
  49     ' Return values:
  50     ' -1 = Exact match expected, fuzzy match found
  51     ' -2 = No match
  52     ' -3 = content of messagebox not relevant
  53     ' -4 = Messagebox not displayed / Macro not executed
  54     ' 1 - 4 = Number of buttons on the dialog
  55
  56     ' internal states, if state = 0 we return the buttoncount instead
  57     const STATE_SUCCESS                =  0
  58     const STATE_FUZZY_MATCH            = -1
  59     const STATE_NO_MATCH               = -2
  60     const STATE_IGNORE_MSGBOX          = -3
  61     const STATE_MACRO_EXECUTION_FAILED = -4
  62
  63     const CFN = "hTestActive()::"
  64
  65     dim cMsg as string     ' The string printed in the message box
  66     dim rc as integer      ' Returncode for error handling and returnvalue
  67     dim buttons as integer ' Number of buttons on the message box
  68
  69     kontext "Active"
  70     if ( Active.exists( 2 ) ) then
  71
  72         cMsg = Active.getText()
  73
  74         if ( cString <> "" ) then
  75             if ( instr( active.getText(), cString ) ) then
  76                 if ( active.getText() = cString ) then
  77                     rc = STATE_SUCCESS
  78                 else
  79                     if ( bExact ) then
  80                         warnlog( CFN & "Message is no exact match: " & cMsg )
  81                         rc = STATE_FUZZY_MATCH
  82                     else
  83                         rc = STATE_SUCCESS
  84                     endif
  85                 endif
  86             else
  87                 warnlog( CFN & "Messagebox has wrong content: " & cMsg )
  88                 rc = STATE_NO_MATCH
  89             endif
  90         else
  91             rc = STATE_IGNORE_MSGBOX
  92         endif
  93
  94         buttons = Active.getButtonCount()
  95         select case( iMethod )
  96         case 1 : Active.OK()
  97         case 2 : Active.Cancel()
  98         case 3 : Acitve.Yes()
  99         case 4 : Active.No()
 100         end select
 101     else
 102         warnlog( CFN & "Messagebox is missing" )
 103         rc = STATE_MACRO_EXECUTION_FAILED
 104     endif
 105
 106     if ( rc = STATE_SUCCESS ) then hTestActive() = buttons
 107
 108 end function
 109
 110 '*******************************************************************************
 111
 112 testcase t_macros()
 113
 114     const RESTYPE_1 = 1
 115     const RESTYPE_2 = 2
 116     const RESTYPE_3 = 3
 117
 118     const CLOSE_METHOD_OK     = 1
 119     const CLOSE_METHOD_CANCEL = 2
 120     const CLOSE_METHOD_NO     = 4
 121
 122     const REQUIRES_EXACT_MATCH = TRUE
 123     const REQUIRES_FUZZY_MATCH = FALSE
 124
 125     gApplication = "WRITER"
 126     call hNewDocument()
 127     hInitBasicIDE( "TestIssues" )
 128
 129     printlog( "" )
 130     printlog( " ---------- i41695 ------------ " )
 131     hInsertMacroFromFile( "i41695" )
 132     hIDERunMacro()
 133     hTestActive( "i41695-1", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 134     hTestActive( "i41695-2", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 135
 136     printlog( "" )
 137     printlog( " ---------- i83978 ------------ " )
 138     hInsertMacroFromFile( "i83978" )
 139     hIDERunMacro()
 140     hTestActive( "NoSuchElementException", CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 141
 142     printlog( "" )
 143     printlog( " ---------- i82830 ------------ " )
 144     hInsertMacroFromFile( "i82830" )
 145     hIDERunMacro()
 146     hTestActive( "12D687" , CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 147     hTestActive( "4553207", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 148
 149     if ( gISOLang = "en-US" ) then
 150         printlog( "" )
 151         printlog( " ---------- i81674 ------------ " )
 152         hInsertMacroFromFile( "i81674" )
 153         hIDERunMacro()
 154         hTestActive( "250" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 155         hTestActive( "Yes" , CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH  )
 156         hTestActive( "True", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH  )
 157         hTestActive( "On"  , CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH  )
 158     endif
 159
 160     printlog( "" )
 161     printlog( " ---------- i80532 ------------ " )
 162     hInsertMacroFromFile( "i80532" )
 163     hIDERunMacro()
 164     hTestActive( "-10", CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 165     hTestActive( "1"  , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 166     hTestActive( "-10", CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 167
 168     printlog( "" )
 169     printlog( " ---------- i84040 ------------ " )
 170     hInsertMacroFromFile( "i84040" )
 171     hIDERunMacro()
 172     hTestActive( "False", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 173     hTestActive( "False", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 174
 175     printlog( "" )
 176     printlog( " ---------- i86265 ------------ " )
 177     hInsertMacroFromFile( "i86265" )
 178     hIDERunMacro()
 179     hTestActive( "i86265-1", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 180     hTestActive( "i86265-2", CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 181
 182     printlog( "" )
 183     printlog( " ---------- i92329 ------------ " )
 184     hInsertMacroFromFile( "i92329" )
 185     hIDERunMacro()
 186     hTestActive( "Return an Array" , CLOSE_METHOD_OK )
 187
 188     printlog( "" )
 189     printlog( " ---------- i97038 ------------ " )
 190     hInsertMacroFromFile( "i97038" )
 191     hIDERunMacro()
 192     hTestActive( "1900" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 193     hTestActive( "2"    , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 194
 195     printlog( "" )
 196     printlog( " ---------- i103691 ------------ " )
 197     hInsertMacroFromFile( "i103691" )
 198     hIDERunMacro()
 199     hTestActive( "Equal" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 200
 201     printlog( "" )
 202     printlog( " ---------- i103697 ------------ " )
 203     hInsertMacroFromFile( "i103697" )
 204     hIDERunMacro()
 205     hTestActive( "i103697" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 206
 207     printlog( "" )
 208     printlog( " ---------- i103990 ------------ " )
 209     hInsertMacroFromFile( "i103990" )
 210     hIDERunMacro()
 211     hTestActive( "42" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 212     hTestActive( "43" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 213     hTestActive( "Pi" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 214
 215     printlog( "" )
 216     printlog( " ---------- i107070 ------------ " )
 217     hInsertMacroFromFile( "i107070" )
 218     hIDERunMacro()
 219     hTestActive( "Dbg_Methods" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 220     hTestActive( "Dbg_Methods" , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 221     hTestActive( "."           , CLOSE_METHOD_OK , REQUIRES_FUZZY_MATCH )
 222
 223     printlog( "" )
 224     printlog( " ---------- i106744 ------------ " )
 225     hInsertMacroFromFile( "i106744-1" )
 226     hIDERunMacro()
 227     hTestActive( "NOT EMPTY" , CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 228
 229     printlog( "" )
 230     printlog( " ---------- i106744 ------------ " )
 231     hInsertMacroFromFile( "i106744-2" )
 232     hIDERunMacro()
 233     hTestActive( "NOT EMPTY" , CLOSE_METHOD_OK , REQUIRES_EXACT_MATCH )
 234
 235     printlog( "" )
 236     printlog( " ---------- MessageBoxes ------------ " )
 237     hInsertMacroFromFile( "MessageBoxes" )
 238     hIDERunMacro()
 239
 240     if ( hTestActive( "0x" , CLOSE_METHOD_OK     , REQUIRES_EXACT_MATCH ) <> RESTYPE_1 ) then warnlog( "Wrong resource type" )
 241     if ( hTestActive( "1x" , CLOSE_METHOD_OK     , REQUIRES_EXACT_MATCH ) <> RESTYPE_2 ) then warnlog( "Wrong resource type" )
 242     if ( hTestActive( "2x" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 243     if ( hTestActive( "3x" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 244     if ( hTestActive( "4x" , CLOSE_METHOD_NO     , REQUIRES_EXACT_MATCH ) <> RESTYPE_2 ) then warnlog( "Wrong resource type" )
 245     if ( hTestActive( "5x" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_2 ) then warnlog( "Wrong resource type" )
 246     if ( hTestActive( "16" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 247     if ( hTestActive( "32" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 248     if ( hTestActive( "48" , CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 249     if ( hTestActive( "64" , CLOSE_METHOD_OK     , REQUIRES_EXACT_MATCH ) <> RESTYPE_1 ) then warnlog( "Wrong resource type" )
 250     if ( hTestActive( "128", CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 251     if ( hTestActive( "256", CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 252     if ( hTestActive( "512", CLOSE_METHOD_CANCEL , REQUIRES_EXACT_MATCH ) <> RESTYPE_3 ) then warnlog( "Wrong resource type" )
 253
 254     printlog( "" )
 255     hCloseBasicIDE()
 256     hCloseDocument()
 257
 258 endcase
 259