From: Shuai Meng Subject: [PATCH 1/4] vbscript: Implemented ScriptEngine Message-Id: <53D5D4D2.7010305@gmail.com> Date: Mon, 28 Jul 2014 12:42:58 +0800 testbot: https://testbot.winehq.org/JobDetails.pl?Key=8108 --- dlls/vbscript/global.c | 7 +++++-- dlls/vbscript/tests/api.vbs | 3 +++ 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index f8c875d..14676ef 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -1526,8 +1526,11 @@ static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cn static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { - FIXME("\n"); - return E_NOTIMPL; + TRACE("%s\n", debugstr_variant(arg)); + + assert(args_cnt == 0); + + return return_string(res, vbscriptW); } static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs index 46c80d4..e2f2aec 100644 --- a/dlls/vbscript/tests/api.vbs +++ b/dlls/vbscript/tests/api.vbs @@ -634,4 +634,7 @@ MyObject.myval = 0 Call ok(CCur(MyObject) = 0, "CCur(MyObject) = " & CCur(MyObject)) Call ok(getVT(CCur(MyObject)) = "VT_CY", "getVT(CCur(MyObject)) = " & getVT(CCur(MyObject))) +Call ok(ScriptEngine = "VBScript", "Is scriptengine not VBScript?") +Call ok(getVT(ScriptEngine) = "VT_BSTR", "getVT(ScriptEngine) = " & getVT(ScriptEngine)) + Call reportSuccess()