Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-08-03 20:35:43 +00:00
Code Issues Projects Releases Packages Wiki Activity

[VBSCRIPT_WINETEST]

Browse source 
* Sync with Wine 1.7.27.
CORE-8540

svn path=/trunk/; revision=64609
This commit is contained in:
Amine Khaldi 2014-10-08 19:03:40 +00:00
parent 0b53a29c3a
commit 189e1394bd
4 changed files with 913 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
rostests/winetests/vbscript/error.vbs
View file

@ -284,6 +284,20 @@ x = 0
call callTestOnError(false)
call ok(x = 1, "x = " & x)
sub testOnErrorClear()
on error resume next
call ok(Err.Number = 0, "Err.Number = " & Err.Number)
throwInt(E_TESTERROR)
call ok(Err.Number = E_TESTERROR, "Err.Number = " & Err.Number)
on error goto 0
call ok(Err.Number = 0, "Err.Number = " & Err.Number)
x = "ok"
end sub
call testOnErrorClear()
call ok(x = "ok", "testOnErrorClear failed")
sub testForEachError()
on error resume next