ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript/tests: Added named item ref count tests. 

Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Jacek Caban 2018-03-20 22:37:44 +01:00 committed by Alexandre Julliard
parent c07ade82ed
commit a4824803da
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
dlls/vbscript/tests/run.c
View File

@ -974,6 +974,18 @@ static IDispatchExVtbl RefObjVtbl = {
static IDispatchEx RefObj = { &RefObjVtbl };
static ULONG global_ref;
static ULONG WINAPI Global_AddRef(IDispatchEx *iface)
{
return ++global_ref;
}
static ULONG WINAPI Global_Release(IDispatchEx *iface)
{
return --global_ref;
}
static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
{
if(!strcmp_wa(bstrName, "ok")) {
@ -1476,8 +1488,8 @@ static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid,
static IDispatchExVtbl GlobalVtbl = {
DispatchEx_QueryInterface,
DispatchEx_AddRef,
DispatchEx_Release,
Global_AddRef,
Global_Release,
DispatchEx_GetTypeInfoCount,
DispatchEx_GetTypeInfo,
DispatchEx_GetIDsOfNames,
@ -1619,6 +1631,7 @@ static HRESULT WINAPI ActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPC
ok(0, "unexpected pstrName %s\n", wine_dbgstr_w(pstrName));
*ppiunkItem = (IUnknown*)&Global;
IUnknown_AddRef(*ppiunkItem);
return S_OK;
}
@ -1814,6 +1827,7 @@ static void test_parse_context(void)
static const WCHAR xW[] = {'x',0};
static const WCHAR yW[] = {'y',0};
global_ref = 1;
engine = create_and_init_script(0);
if(!engine)
return;
@ -1855,6 +1869,7 @@ static void test_parse_context(void)
IActiveScriptParse_Release(parser);
close_script(engine);
ok(global_ref == 1, "global_ref = %u\n", global_ref);
}
static void parse_script_a(const char *src)