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
a5fe24c6
Commit
a5fe24c6
authored
Sep 12, 2011
by
Jacek Caban
Committed by
Alexandre Julliard
Sep 12, 2011
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
vbscript: Added concatenation tests.
parent
fad15f78
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
42 additions
and
0 deletions
+42
-0
lang.vbs
dlls/vbscript/tests/lang.vbs
+11
-0
run.c
dlls/vbscript/tests/run.c
+31
-0
No files found.
dlls/vbscript/tests/lang.vbs
View file @
a5fe24c6
...
...
@@ -52,5 +52,16 @@ Call ok(getVT(&h10&) = "VT_I2", "getVT(&h10&) is not VT_I2")
Call
ok
(
getVT
(
&
h10000&
)
=
"VT_I4"
,
"getVT(&h10000&) is not VT_I4"
)
Call
ok
(
getVT
(
&
H10000
&
)
=
"VT_I4"
,
"getVT(&H10000&) is not VT_I4"
)
Call
ok
(
getVT
(
&
hffFFffFF&
)
=
"VT_I2"
,
"getVT(&hffFFffFF&) is not VT_I2"
)
Call
ok
(
getVT
(
1
&
100000
)
=
"VT_BSTR"
,
"getVT(1 & 100000) is not VT_BSTR"
)
Call
ok
(
"ab"
&
"cd"
=
"abcd"
,
"
""
ab
""
&
""
cd
""
<>
""
abcd
""
"
)
Call
ok
(
"ab "
&
null
=
"ab "
,
"
""
ab
""
& null = "
&
(
"ab "
&
null
))
Call
ok
(
"ab "
&
empty
=
"ab "
,
"
""
ab
""
& empty = "
&
(
"ab "
&
empty
))
Call
ok
(
1
&
100000
=
"1100000"
,
"1 & 100000 = "
&
(
1
&
100000
))
'if(isEnglishLocale) then
' Call ok("" & true = "True", """"" & true = " & true)
' Call ok(true & false = "TrueFalse", "true & false = " & (true & false))
'end if
reportSuccess
()
dlls/vbscript/tests/run.c
View file @
a5fe24c6
...
...
@@ -63,6 +63,7 @@ DEFINE_EXPECT(global_success_i);
#define DISPID_GLOBAL_TRACE 1001
#define DISPID_GLOBAL_OK 1002
#define DISPID_GLOBAL_GETVT 1003
#define DISPID_GLOBAL_ISENGLOC 1004
static
const
WCHAR
testW
[]
=
{
't'
,
'e'
,
's'
,
't'
,
0
};
...
...
@@ -121,6 +122,12 @@ static const char *vt2a(VARIANT *v)
}
}
static
BOOL
is_english
(
void
)
{
return
PRIMARYLANGID
(
GetSystemDefaultLangID
())
==
LANG_ENGLISH
&&
PRIMARYLANGID
(
GetUserDefaultLangID
())
==
LANG_ENGLISH
;
}
#define test_grfdex(a,b) _test_grfdex(__LINE__,a,b)
static
void
_test_grfdex
(
unsigned
line
,
DWORD
grfdex
,
DWORD
expect
)
{
...
...
@@ -240,6 +247,11 @@ static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD
*
pid
=
DISPID_GLOBAL_GETVT
;
return
S_OK
;
}
if
(
!
strcmp_wa
(
bstrName
,
"isEnglishLocale"
))
{
test_grfdex
(
grfdex
,
fdexNameCaseInsensitive
);
*
pid
=
DISPID_GLOBAL_ISENGLOC
;
return
S_OK
;
}
if
(
strict_dispid_check
&&
strcmp_wa
(
bstrName
,
"x"
))
ok
(
0
,
"unexpected call %s %x
\n
"
,
wine_dbgstr_w
(
bstrName
),
grfdex
);
...
...
@@ -319,6 +331,25 @@ static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid,
V_VT
(
pvarRes
)
=
VT_BSTR
;
V_BSTR
(
pvarRes
)
=
a2bstr
(
vt2a
(
pdp
->
rgvarg
));
return
S_OK
;
case
DISPID_GLOBAL_ISENGLOC
:
ok
(
wFlags
==
(
INVOKE_FUNC
|
INVOKE_PROPERTYGET
),
"wFlags = %x
\n
"
,
wFlags
);
ok
(
pdp
!=
NULL
,
"pdp == NULL
\n
"
);
ok
(
!
pdp
->
rgdispidNamedArgs
,
"rgdispidNamedArgs != NULL
\n
"
);
ok
(
pdp
->
cArgs
==
0
,
"cArgs = %d
\n
"
,
pdp
->
cArgs
);
ok
(
!
pdp
->
cNamedArgs
,
"cNamedArgs = %d
\n
"
,
pdp
->
cNamedArgs
);
ok
(
pvarRes
!=
NULL
,
"pvarRes == NULL
\n
"
);
ok
(
pei
!=
NULL
,
"pei == NULL
\n
"
);
V_VT
(
pvarRes
)
=
VT_BOOL
;
if
(
is_english
())
{
V_BOOL
(
pvarRes
)
=
VARIANT_TRUE
;
}
else
{
skip
(
"Skipping some test in non-English locale
\n
"
);
V_BOOL
(
pvarRes
)
=
VARIANT_FALSE
;
}
return
S_OK
;
}
ok
(
0
,
"unexpected call %d
\n
"
,
id
);
...
...
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