Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
95845e9f
Commit
95845e9f
authored
Jan 27, 2023
by
Robert Wilhelm
Committed by
Alexandre Julliard
Jan 27, 2023
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Return type mismatch for LBound(Empty) and LBound(NULL).
parent
f23a50d1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
23 additions
and
0 deletions
+23
-0
global.c
dlls/vbscript/global.c
+3
-0
api.vbs
dlls/vbscript/tests/api.vbs
+20
-0
No files found.
dlls/vbscript/global.c
View file @
95845e9f
...
...
@@ -1184,6 +1184,9 @@ static HRESULT Global_LBound(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt,
case
VT_VARIANT
|
VT_ARRAY
|
VT_BYREF
:
sa
=
*
V_ARRAYREF
(
arg
);
break
;
case
VT_EMPTY
:
case
VT_NULL
:
return
MAKE_VBSERROR
(
VBSE_TYPE_MISMATCH
);
default:
FIXME
(
"arg %s not supported
\n
"
,
debugstr_variant
(
arg
));
return
E_NOTIMPL
;
...
...
dlls/vbscript/tests/api.vbs
View file @
95845e9f
...
...
@@ -292,6 +292,24 @@ Call ok(Lbound(arr2) = 0, "Lbound(x) = " & Lbound(x))
Call
ok
(
Lbound
(
arr2
,
1
)
=
0
,
"Lbound(x) = "
&
Lbound
(
x
))
Call
ok
(
Lbound
(
arr2
,
2
)
=
0
,
"Lbound(x) = "
&
Lbound
(
x
))
sub
testLBoundError
()
on
error
resume
next
call
Err
.
clear
()
call
LBound
()
call
ok
(
Err
.
number
=
450
,
"Err.number = "
&
Err
.
number
)
call
Err
.
clear
()
call
LBound
(
Empty
)
call
ok
(
Err
.
number
=
13
,
"Err.number = "
&
Err
.
number
)
call
Err
.
clear
()
call
LBound
(
Null
)
call
ok
(
Err
.
number
=
13
,
"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"
,
_
"Err.description = "
&
Err
.
description
)
end
sub
sub
testUBoundError
()
on
error
resume
next
call
Err
.
clear
()
...
...
@@ -309,6 +327,8 @@ sub testUBoundError()
if
isEnglishLang
then
call
ok
(
Err
.
description
=
"Wrong number of arguments or invalid property assignment"
,
_
"Err.description = "
&
Err
.
description
)
end
sub
call
testLBoundError
()
call
testUBoundError
()
Dim
newObject
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment