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

vbscript: Added vbSunday constant implementation.

This commit is contained in:
Jacek Caban 2011-10-21 12:42:37 +02:00 committed by Alexandre Julliard
parent 42f126e80d
commit 89c7671403
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dlls/vbscript/global.c
View File

@ -75,6 +75,16 @@ static HRESULT return_bstr(VARIANT *res, const WCHAR *str)
return S_OK;
}
static HRESULT return_short(VARIANT *res, short val)
{
if(res) {
V_VT(res) = VT_I2;
V_I2(res) = val;
}
return S_OK;
}
static IUnknown *create_object(script_ctx_t *ctx, const WCHAR *progid)
{
IInternetHostSecurityManager *secmgr = NULL;
@ -897,8 +907,8 @@ static HRESULT Global_vbUseSystemDayOfWeek(vbdisp_t *This, VARIANT *arg, unsigne
static HRESULT Global_vbSunday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
{
FIXME("\n");
return E_NOTIMPL;
TRACE("\n");
return return_short(res, 1);
}
static HRESULT Global_vbMonday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)

3
dlls/vbscript/tests/api.vbs
View File

@ -23,6 +23,9 @@ Dim x
Class EmptyClass
End Class
Call ok(vbSunday = 1, "vbSunday = " & vbSunday)
Call ok(getVT(vbSunday) = "VT_I2", "getVT(vbSunday) = " & getVT(vbSunday))
Call ok(isObject(new EmptyClass), "isObject(new EmptyClass) is not true?")
Set x = new EmptyClass
Call ok(isObject(x), "isObject(x) is not true?")