From: Francis De Brabandere <francisdb@gmail.com> --- dlls/vbscript/tests/api.vbs | 48 +++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs index 8cbd5824b39..b9d1ad8b8e0 100644 --- a/dlls/vbscript/tests/api.vbs +++ b/dlls/vbscript/tests/api.vbs @@ -332,6 +332,9 @@ Call ok(Lbound(arr2, 1) = 0, "Lbound(x) = " & Lbound(x)) Call ok(Lbound(arr2, 2) = 0, "Lbound(x) = " & Lbound(x)) sub testLBoundError() + Dim nothingObj : Set nothingObj = Nothing + Dim emptyObj : Set emptyObj = new EmptyClass + Dim dictObj : Set dictObj = CreateObject("Scripting.Dictionary") on error resume next call Err.clear() call LBound() @@ -343,6 +346,27 @@ sub testLBoundError() call LBound(Null) call ok(Err.number = 13, "Err.number = " & Err.number) call Err.clear() + call LBound(42) + todo_wine_ok Err.number = 13, "LBound(int) Err.number = " & Err.number + call Err.clear() + call LBound("str") + todo_wine_ok Err.number = 13, "LBound(string) Err.number = " & Err.number + call Err.clear() + call LBound(True) + todo_wine_ok Err.number = 13, "LBound(bool) Err.number = " & Err.number + call Err.clear() + call LBound(3.14) + todo_wine_ok Err.number = 13, "LBound(double) Err.number = " & Err.number + call Err.clear() + call LBound(nothingObj) + todo_wine_ok Err.number = 91, "LBound(Nothing) Err.number = " & Err.number + call Err.clear() + call LBound(emptyObj) + todo_wine_ok Err.number = 438, "LBound(no-default-object) Err.number = " & Err.number + call Err.clear() + call LBound(dictObj) + todo_wine_ok Err.number = 450, "LBound(default-needs-arg) Err.number = " & Err.number + call Err.clear() call LBound(arr, 1, 2) call ok(Err.number = 450, "Err.number = " & Err.number) if isEnglishLang then call ok(Err.description = "Wrong number of arguments or invalid property assignment", _ @@ -350,6 +374,9 @@ sub testLBoundError() end sub sub testUBoundError() + Dim nothingObj : Set nothingObj = Nothing + Dim emptyObj : Set emptyObj = new EmptyClass + Dim dictObj : Set dictObj = CreateObject("Scripting.Dictionary") on error resume next call Err.clear() call UBound() @@ -361,6 +388,27 @@ sub testUBoundError() call UBound(Null) call ok(Err.number = 13, "Err.number = " & Err.number) call Err.clear() + call UBound(42) + todo_wine_ok Err.number = 13, "UBound(int) Err.number = " & Err.number + call Err.clear() + call UBound("str") + todo_wine_ok Err.number = 13, "UBound(string) Err.number = " & Err.number + call Err.clear() + call UBound(True) + todo_wine_ok Err.number = 13, "UBound(bool) Err.number = " & Err.number + call Err.clear() + call UBound(3.14) + todo_wine_ok Err.number = 13, "UBound(double) Err.number = " & Err.number + call Err.clear() + call UBound(nothingObj) + todo_wine_ok Err.number = 91, "UBound(Nothing) Err.number = " & Err.number + call Err.clear() + call UBound(emptyObj) + todo_wine_ok Err.number = 438, "UBound(no-default-object) Err.number = " & Err.number + call Err.clear() + call UBound(dictObj) + todo_wine_ok Err.number = 450, "UBound(default-needs-arg) Err.number = " & Err.number + call Err.clear() call UBound(arr, 1, 2) call ok(Err.number = 450, "Err.number = " & Err.number) if isEnglishLang then call ok(Err.description = "Wrong number of arguments or invalid property assignment", _ -- GitLab https://gitlab.winehq.org/wine/wine/-/merge_requests/10895