Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-winehq
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-winehq
Commits
39e79c76
Commit
39e79c76
authored
Nov 01, 2019
by
Jacek Caban
Committed by
Alexandre Julliard
Nov 01, 2019
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript/tests: Add redim statement tests.
Signed-off-by:
Jacek Caban
<
jacek@codeweavers.com
>
Signed-off-by:
Alexandre Julliard
<
julliard@winehq.org
>
parent
5cb1631f
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
32 additions
and
1 deletion
+32
-1
lang.vbs
dlls/vbscript/tests/lang.vbs
+30
-1
run.c
dlls/vbscript/tests/run.c
+2
-0
No files found.
dlls/vbscript/tests/lang.vbs
View file @
39e79c76
...
...
@@ -18,7 +18,7 @@
OPTION
EXPLICIT
:
:
DIM
W
dim
x
,
y
,
z
dim
x
,
y
,
z
,
e
Dim
obj
call
ok
(
true
,
"true is not true?"
)
...
...
@@ -1316,11 +1316,38 @@ end sub
x
=
Array
(
1
)
changearg
x
(
0
)
ok
x
(
0
)
=
2
,
"x(0) = "
&
x
(
0
)
ok
getVT
(
x
)
=
"VT_ARRAY|VT_VARIANT*"
,
"getVT(x) after redim = "
&
getVT
(
x
)
x
=
Array
(
1
)
changearg
(
x
(
0
))
ok
x
(
0
)
=
1
,
"x(0) = "
&
x
(
0
)
x
=
Array
(
1
)
redim
x
(
4
)
ok
ubound
(
x
)
=
4
,
"ubound(x) = "
&
ubound
(
x
)
ok
x
(
0
)
=
empty
,
"x(0) = "
&
x
(
0
)
x
=
1
redim
x
(
3
)
ok
ubound
(
x
)
=
3
,
"ubound(x) = "
&
ubound
(
x
)
x
=
Array
(
1
,
2
)
redim
x
(
-
1
)
ok
lbound
(
x
)
=
0
,
"lbound(x) = "
&
lbound
(
x
)
ok
ubound
(
x
)
=
-
1
,
"ubound(x) = "
&
ubound
(
x
)
redim
x
(
3
,
2
)
ok
ubound
(
x
)
=
3
,
"ubound(x) = "
&
ubound
(
x
)
ok
ubound
(
x
,
1
)
=
3
,
"ubound(x, 1) = "
&
ubound
(
x
,
1
)
ok
ubound
(
x
,
2
)
=
2
,
"ubound(x, 2) = "
&
ubound
(
x
,
2
)
&
" expected 2"
dim
staticarray
(
4
)
on
error
resume
next
redim
staticarray
(
3
)
e
=
err
.
number
on
error
goto
0
todo_wine_ok
e
=
10
,
"e = "
&
e
Class
ArrClass
Dim
classarr
(
3
)
Dim
classnoarr
()
...
...
@@ -1523,6 +1550,8 @@ sub test_dotIdentifiers
Call
ok
(
testObj
.
resume
=
10
,
"testObj.resume = "
&
testObj
.
resume
&
" expected 10"
)
Call
ok
(
testObj
.
goto
=
10
,
"testObj.goto = "
&
testObj
.
goto
&
" expected 10"
)
Call
ok
(
testObj
.
with
=
10
,
"testObj.with = "
&
testObj
.
with
&
" expected 10"
)
Call
ok
(
testObj
.
redim
=
10
,
"testObj.redim = "
&
testObj
.
redim
&
" expected 10"
)
Call
ok
(
testObj
.
preserve
=
10
,
"testObj.preserve = "
&
testObj
.
preserve
&
" expected 10"
)
end
sub
call
test_dotIdentifiers
...
...
dlls/vbscript/tests/run.c
View file @
39e79c76
...
...
@@ -856,6 +856,8 @@ static HRESULT WINAPI testObj_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD
{
L"on"
,
DISPID_TESTOBJ_KEYWORD
},
{
L"resume"
,
DISPID_TESTOBJ_KEYWORD
},
{
L"goto"
,
DISPID_TESTOBJ_KEYWORD
},
{
L"redim"
,
DISPID_TESTOBJ_KEYWORD
},
{
L"preserve"
,
DISPID_TESTOBJ_KEYWORD
},
{
L"with"
,
DISPID_TESTOBJ_KEYWORD
}
};
...
...
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