dlls/vbscript/tests/error.vbs

   1 '
   2 ' Copyright 2014 Jacek Caban for CodeWeavers
   3 '
   4 ' This library is free software; you can redistribute it and/or
   5 ' modify it under the terms of the GNU Lesser General Public
   6 ' License as published by the Free Software Foundation; either
   7 ' version 2.1 of the License, or (at your option) any later version.
   8 '
   9 ' This library is distributed in the hope that it will be useful,
  10 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ' Lesser General Public License for more details.
  13 '
  14 ' You should have received a copy of the GNU Lesser General Public
  15 ' License along with this library; if not, write to the Free Software
  16 ' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17 '
  18
  19 Option Explicit
  20
  21 const E_TESTERROR = &h80080008&
  22
  23 const VB_E_FORLOOPNOTINITIALIZED = 92
  24 const VB_E_OBJNOTCOLLECTION = 451
  25
  26 const E_NOTIMPL = &h80004001&
  27 const E_NOINTERFACE = &h80004002&
  28 const DISP_E_UNKNOWNINTERFACE = &h80020001&
  29 const DISP_E_MEMBERNOTFOUND = &h80020003&
  30 const DISP_E_PARAMNOTFOUND = &h80020004&
  31 const DISP_E_TYPEMISMATCH = &h80020005&
  32 const DISP_E_UNKNOWNNAME = &h80020006&
  33 const DISP_E_NONAMEDARGS = &h80020007&
  34 const DISP_E_BADVARTYPE = &h80020008&
  35 const DISP_E_OVERFLOW = &h8002000A&
  36 const DISP_E_BADINDEX = &h8002000B&
  37 const DISP_E_UNKNOWNLCID = &h8002000C&
  38 const DISP_E_ARRAYISLOCKED = &h8002000D&
  39 const DISP_E_BADPARAMCOUNT = &h8002000E&
  40 const DISP_E_PARAMNOTOPTIONAL = &h8002000F&
  41 const DISP_E_NOTACOLLECTION = &h80020011&
  42 const TYPE_E_DLLFUNCTIONNOTFOUND = &h8002802F&
  43 const TYPE_E_TYPEMISMATCH = &h80028CA0&
  44 const TYPE_E_OUTOFBOUNDS = &h80028CA1&
  45 const TYPE_E_IOERROR = &h80028CA2&
  46 const TYPE_E_CANTCREATETMPFILE = &h80028CA3&
  47 const STG_E_FILENOTFOUND = &h80030002&
  48 const STG_E_PATHNOTFOUND = &h80030003&
  49 const STG_E_TOOMANYOPENFILES = &h80030004&
  50 const STG_E_ACCESSDENIED = &h80030005&
  51 const STG_E_INSUFFICIENTMEMORY = &h80030008&
  52 const STG_E_NOMOREFILES = &h80030012&
  53 const STG_E_DISKISWRITEPROTECTED = &h80030013&
  54 const STG_E_WRITEFAULT = &h8003001D&
  55 const STG_E_READFAULT = &h8003001E&
  56 const STG_E_SHAREVIOLATION = &h80030020&
  57 const STG_E_LOCKVIOLATION = &h80030021&
  58 const STG_E_FILEALREADYEXISTS = &h80030050&
  59 const STG_E_MEDIUMFULL = &h80030070&
  60 const STG_E_INVALIDNAME = &h800300FC&
  61 const STG_E_INUSE = &h80030100&
  62 const STG_E_NOTCURRENT = &h80030101&
  63 const STG_E_CANTSAVE = &h80030103&
  64 const REGDB_E_CLASSNOTREG = &h80040154&
  65 const MK_E_UNAVAILABLE = &h800401E3&
  66 const MK_E_INVALIDEXTENSION = &h800401E6&
  67 const MK_E_CANTOPENFILE = &h800401EA&
  68 const CO_E_CLASSSTRING = &h800401F3&
  69 const CO_E_APPNOTFOUND = &h800401F5&
  70 const O_E_APPDIDNTREG = &h800401FE&
  71 const E_ACCESSDENIED = &h80070005&
  72 const E_OUTOFMEMORY = &h8007000E&
  73 const E_INVALIDARG = &h80070057&
  74 const RPC_S_SERVER_UNAVAILABLE = &h800706BA&
  75 const CO_E_SERVER_EXEC_FAILURE = &h80080005&
  76
  77 call ok(Err.Number = 0, "Err.Number = " & Err.Number)
  78 call ok(getVT(Err.Number) = "VT_I4", "getVT(Err.Number) = " & getVT(Err.Number))
  79
  80 dim calledFunc
  81
  82 sub returnTrue
  83     calledFunc = true
  84     returnTrue = true
  85 end sub
  86
  87 sub testThrow
  88     on error resume next
  89
  90     dim x, y
  91
  92     call throwInt(1000)
  93     call ok(Err.Number = 0, "Err.Number = " & Err.Number)
  94
  95     call throwInt(E_TESTERROR)
  96     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
  97
  98     call throwInt(1000)
  99     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 100
 101     call Err.clear()
 102     call ok(Err.Number = 0, "Err.Number = " & Err.Number)
 103
 104     x = 6
 105     calledFunc = false
 106     x = throwInt(E_TESTERROR) and returnTrue()
 107     call ok(x = 6, "x = " & x)
 108     call ok(not calledFunc, "calledFunc = " & calledFunc)
 109     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 110
 111     x = false
 112     call Err.clear()
 113     if false and throwInt(E_TESTERROR) then
 114         x = true
 115     else
 116         call ok(false, "unexpected if else branch on throw")
 117     end if
 118     call ok(x, "if branch not taken")
 119     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 120
 121     x = false
 122     call Err.clear()
 123     if throwInt(E_TESTERROR) then x = true
 124     call ok(x, "if branch not taken")
 125     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 126
 127     x = false
 128     call Err.clear()
 129     if false then
 130         call ok(false, "unexpected if else branch on throw")
 131     elseif throwInt(E_TESTERROR) then
 132         x = true
 133     else
 134         call ok(false, "unexpected if else branch on throw")
 135     end if
 136     call ok(x, "elseif branch not taken")
 137     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 138
 139     call Err.clear()
 140     if true then
 141         call throwInt(E_TESTERROR)
 142     else
 143         call ok(false, "unexpected if else branch on throw")
 144     end if
 145     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 146
 147     x = false
 148     call Err.clear()
 149     do while throwInt(E_TESTERROR)
 150         call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 151         x = true
 152         exit do
 153     loop
 154     call ok(x, "if branch not taken")
 155     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 156
 157     x = 0
 158     call Err.clear()
 159     do
 160         x = x+1
 161         call ok(Err.Number = 0, "Err.Number = " & Err.Number)
 162     loop while throwInt(E_TESTERROR)
 163     call ok(x = 1, "if branch not taken")
 164     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 165
 166     x = 0
 167     call Err.clear()
 168     do
 169         x = x+1
 170         call ok(Err.Number = 0, "Err.Number = " & Err.Number)
 171     loop until throwInt(E_TESTERROR)
 172     call ok(x = 1, "if branch not taken")
 173     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 174
 175     call Err.clear()
 176     x = 0
 177     while x < 2
 178         x = x+1
 179         call throwInt(E_TESTERROR)
 180     wend
 181     call ok(x = 2, "x = " & x)
 182     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 183
 184     call Err.clear()
 185     x = 2
 186     y = 0
 187     for each x in throwInt(E_TESTERROR)
 188         call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 189         y = y+1
 190     next
 191     call ok(x = 2, "x = " & x)
 192     call ok(y = 1, "y = " & y)
 193     'todo_wine call ok(Err.Number = VB_E_OBJNOTCOLLECTION, "Err.Number = " & Err.Number)
 194
 195     Err.clear()
 196     y = 0
 197     x = 6
 198     for x = throwInt(E_TESTERROR) to 100
 199         call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 200         call ok(x = 6, "x = " & x)
 201         y = y+1
 202     next
 203     call ok(y = 1, "y = " & y)
 204     call ok(x = 6, "x = " & x)
 205     'todo_wine call ok(Err.Number = VB_E_FORLOOPNOTINITIALIZED, "Err.Number = " & Err.Number)
 206
 207     Err.clear()
 208     y = 0
 209     x = 6
 210     for x = 100 to throwInt(E_TESTERROR)
 211         call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 212         'todo_wine call ok(x = 6, "x = " & x)
 213         y = y+1
 214     next
 215     call ok(y = 1, "y = " & y)
 216     'todo_wine call ok(x = 6, "x = " & x)
 217     'todo_wine call ok(Err.Number = VB_E_FORLOOPNOTINITIALIZED, "Err.Number = " & Err.Number)
 218
 219     select case throwInt(E_TESTERROR)
 220     case true
 221          call ok(false, "unexpected case true")
 222     case false
 223          call ok(false, "unexpected case false")
 224     case empty
 225          call ok(false, "unexpected case empty")
 226     case else
 227          call ok(false, "unexpected case else")
 228     end select
 229     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 230
 231     x = false
 232     select case false
 233     case true
 234          call ok(false, "unexpected case true")
 235     case throwInt(E_TESTERROR)
 236          x = true
 237     case else
 238          call ok(false, "unexpected case else")
 239     end select
 240     call ok(x, "case not executed")
 241     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 242
 243     'Exception in non-trivial stack context
 244     for x = 1 to 1
 245         for each y in collectionObj
 246             select case 3
 247             case 1
 248                 call ok(false, "unexpected case")
 249             case throwInt(E_TESTERROR)
 250                 exit for
 251             case 2
 252                 call ok(false, "unexpected case")
 253             end select
 254         next
 255     next
 256 end sub
 257
 258 call testThrow
 259
 260 dim x
 261
 262 sub testOnError(resumeNext)
 263     if resumeNext then
 264         on error resume next
 265     else
 266         on error goto 0
 267     end if
 268     x = 1
 269     throwInt(E_TESTERROR)
 270     x = 2
 271     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 272 end sub
 273
 274 sub callTestOnError(resumeNext)
 275     on error resume next
 276     call testOnError(resumeNext)
 277     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 278 end sub
 279
 280 x = 0
 281 call callTestOnError(true)
 282 call ok(x = 2, "x = " & x)
 283
 284 x = 0
 285 call callTestOnError(false)
 286 call ok(x = 1, "x = " & x)
 287
 288 sub testOnErrorClear()
 289     on error resume next
 290     call ok(Err.Number = 0, "Err.Number = " & Err.Number)
 291     throwInt(E_TESTERROR)
 292     call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
 293
 294     on error goto 0
 295     call ok(Err.Number = 0, "Err.Number = " & Err.Number)
 296     x = "ok"
 297 end sub
 298
 299 call testOnErrorClear()
 300 call ok(x = "ok", "testOnErrorClear failed")
 301
 302 sub testForEachError()
 303     on error resume next
 304
 305     dim x, y
 306     y = false
 307     for each x in empty
 308         y = true
 309     next
 310     call ok(y, "for each not executed")
 311     'todo_wine call ok(Err.Number = VB_E_OBJNOTCOLLECTION, "Err.Number = " & Err.Number)
 312 end sub
 313
 314 call testForEachError()
 315
 316 sub testHresMap(hres, code)
 317     on error resume next
 318
 319     call Err.Clear()
 320     call throwInt(hres)
 321     call ok(Err.Number = code, "throw(" & hex(hres) & ") Err.Number = " & Err.Number)
 322 end sub
 323
 324 testHresMap E_NOTIMPL, 445
 325 testHresMap E_NOINTERFACE, 430
 326 testHresMap DISP_E_UNKNOWNINTERFACE, 438
 327 testHresMap DISP_E_MEMBERNOTFOUND, 438
 328 testHresMap DISP_E_PARAMNOTFOUND, 448
 329 testHresMap DISP_E_TYPEMISMATCH, 13
 330 testHresMap DISP_E_UNKNOWNNAME, 438
 331 testHresMap DISP_E_NONAMEDARGS, 446
 332 testHresMap DISP_E_BADVARTYPE, 458
 333 testHresMap DISP_E_OVERFLOW, 6
 334 testHresMap DISP_E_BADINDEX, 9
 335 testHresMap DISP_E_UNKNOWNLCID, 447
 336 testHresMap DISP_E_ARRAYISLOCKED, 10
 337 testHresMap DISP_E_BADPARAMCOUNT, 450
 338 testHresMap DISP_E_PARAMNOTOPTIONAL, 449
 339 testHresMap DISP_E_NOTACOLLECTION, 451
 340 testHresMap TYPE_E_DLLFUNCTIONNOTFOUND, 453
 341 testHresMap TYPE_E_TYPEMISMATCH, 13
 342 testHresMap TYPE_E_OUTOFBOUNDS, 9
 343 testHresMap TYPE_E_IOERROR, 57
 344 testHresMap TYPE_E_CANTCREATETMPFILE, 322
 345 testHresMap STG_E_FILENOTFOUND, 432
 346 testHresMap STG_E_PATHNOTFOUND, 76
 347 testHresMap STG_E_TOOMANYOPENFILES, 67
 348 testHresMap STG_E_ACCESSDENIED, 70
 349 testHresMap STG_E_INSUFFICIENTMEMORY, 7
 350 testHresMap STG_E_NOMOREFILES, 67
 351 testHresMap STG_E_DISKISWRITEPROTECTED, 70
 352 testHresMap STG_E_WRITEFAULT, 57
 353 testHresMap STG_E_READFAULT, 57
 354 testHresMap STG_E_SHAREVIOLATION, 75
 355 testHresMap STG_E_LOCKVIOLATION, 70
 356 testHresMap STG_E_FILEALREADYEXISTS, 58
 357 testHresMap STG_E_MEDIUMFULL, 61
 358 testHresMap STG_E_INVALIDNAME, 53
 359 testHresMap STG_E_INUSE, 70
 360 testHresMap STG_E_NOTCURRENT, 70
 361 testHresMap STG_E_CANTSAVE, 57
 362 testHresMap REGDB_E_CLASSNOTREG, 429
 363 testHresMap MK_E_UNAVAILABLE, 429
 364 testHresMap MK_E_INVALIDEXTENSION, 432
 365 testHresMap MK_E_CANTOPENFILE, 432
 366 testHresMap CO_E_CLASSSTRING, 429
 367 testHresMap CO_E_APPNOTFOUND, 429
 368 testHresMap O_E_APPDIDNTREG, 429
 369 testHresMap E_ACCESSDENIED, 70
 370 testHresMap E_OUTOFMEMORY, 7
 371 testHresMap E_INVALIDARG, 5
 372 testHresMap RPC_S_SERVER_UNAVAILABLE, 462
 373 testHresMap CO_E_SERVER_EXEC_FAILURE, 429
 374
 375 sub testVBErrorCodes()
 376     on error resume next
 377
 378     Err.clear()
 379     throwInt(&h800a00aa&)
 380     call ok(Err.number = 170, "Err.number = " & Err.number)
 381
 382     Err.clear()
 383     throwInt(&h800a10aa&)
 384     call ok(Err.number = 4266, "Err.number = " & Err.number)
 385 end sub
 386
 387 call testVBErrorCodes
 388
 389 call reportSuccess()