Commit 89c76714 authored by Jacek Caban's avatar Jacek Caban Committed by Alexandre Julliard

vbscript: Added vbSunday constant implementation.

parent 42f126e8
......@@ -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)
......
......@@ -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?")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment