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

jscript/tests: Add more error reporting tests. 

Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Jacek Caban 2020-01-24 20:41:40 +01:00 committed by Alexandre Julliard
parent 78853e3853
commit f58420b4ad
1 changed files with 435 additions and 182 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

617
dlls/jscript/tests/run.c
View File

@ -122,6 +122,15 @@ DEFINE_EXPECT(DeleteMemberByDispID_false);
DEFINE_EXPECT(DeleteMemberByDispID_error);
DEFINE_EXPECT(BindHandler);
#define JS_E_SUBSCRIPT_OUT_OF_RANGE 0x800a0009
#define JS_E_INVALID_ACTION 0x800a01bd
#define JS_E_OBJECT_EXPECTED 0x800a138f
#define JS_E_UNDEFINED_VARIABLE 0x800a1391
#define JS_E_EXCEPTION_THROWN 0x800a139e
#define JS_E_SYNTAX 0x800a03ea
#define JS_E_MISSING_RBRACKET 0x800a03ee
#define JS_E_MISPLACED_RETURN 0x800a03fa
#define DISPID_GLOBAL_TESTPROPGET 0x1000
#define DISPID_GLOBAL_TESTPROPPUT 0x1001
#define DISPID_GLOBAL_REPORTSUCCESS 0x1002
@ -155,6 +164,8 @@ DEFINE_EXPECT(BindHandler);
#define DISPID_GLOBAL_TESTENUMOBJ 0x101e
#define DISPID_GLOBAL_CALLEVAL 0x101f
#define DISPID_GLOBAL_PROPARGPUTOP 0x1020
#define DISPID_GLOBAL_THROWINT 0x1021
#define DISPID_GLOBAL_THROWEI 0x1022
#define DISPID_GLOBAL_TESTPROPDELETE 0x2000
#define DISPID_GLOBAL_TESTNOPROPDELETE 0x2001
@ -926,6 +937,18 @@ static HRESULT WINAPI Global_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD
return S_OK;
}
if(!lstrcmpW(bstrName, L"throwInt")) {
test_grfdex(grfdex, fdexNameCaseSensitive);
*pid = DISPID_GLOBAL_THROWINT;
return S_OK;
}
if(!lstrcmpW(bstrName, L"throwEI")) {
test_grfdex(grfdex, fdexNameCaseSensitive);
*pid = DISPID_GLOBAL_THROWEI;
return S_OK;
}
if(!lstrcmpW(bstrName, L"propArgPutO")) {
CHECK_EXPECT(global_propargput_d);
test_grfdex(grfdex, fdexNameEnsure|fdexNameCaseSensitive);
@ -1587,6 +1610,73 @@ static HRESULT WINAPI Global_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid,
IDispatchEx_Release(eval_func);
return S_OK;
}
case DISPID_GLOBAL_THROWINT: {
VARIANT *v = pdp->rgvarg;
HRESULT hres;
ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
ok(pdp != NULL, "pdp == NULL\n");
ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
ok(pdp->cArgs == 1, "cArgs = %d\n", pdp->cArgs);
ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
ok(pei != NULL, "pei == NULL\n");
if(pvarRes) {
ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
V_VT(pvarRes) = VT_BOOL;
V_BOOL(pvarRes) = VARIANT_FALSE;
}
switch(V_VT(v)) {
case VT_I4:
hres = V_I4(v);
break;
case VT_R8:
hres = (HRESULT)V_R8(v);
break;
default:
ok(0, "unexpected vt %d\n", V_VT(v));
return E_INVALIDARG;
}
return hres;
}
case DISPID_GLOBAL_THROWEI: {
VARIANT *v = pdp->rgvarg + pdp->cArgs - 1;
HRESULT hres;
ok(wFlags == INVOKE_FUNC, "wFlags = %x\n", wFlags);
ok(pdp != NULL, "pdp == NULL\n");
ok(pdp->rgvarg != NULL, "rgvarg == NULL\n");
ok(!pdp->rgdispidNamedArgs, "rgdispidNamedArgs != NULL\n");
ok(pdp->cArgs == 1 || pdp->cArgs == 2, "cArgs = %d\n", pdp->cArgs);
ok(!pdp->cNamedArgs, "cNamedArgs = %d\n", pdp->cNamedArgs);
ok(pei != NULL, "pei == NULL\n");
if(pvarRes) {
ok(V_VT(pvarRes) == VT_EMPTY, "V_VT(pvarRes) = %d\n", V_VT(pvarRes));
V_VT(pvarRes) = VT_BOOL;
V_BOOL(pvarRes) = VARIANT_FALSE;
}
switch(V_VT(v)) {
case VT_I4:
hres = V_I4(v);
break;
case VT_R8:
hres = (HRESULT)V_R8(v);
break;
default:
ok(0, "unexpected vt %d\n", V_VT(v));
return E_INVALIDARG;
}
pei->scode = hres;
if(pdp->cArgs == 1) {
pei->bstrSource = SysAllocString(L"test source");
pei->bstrDescription = SysAllocString(L"test description");
}
return DISP_E_EXCEPTION;
}
}
ok(0, "unexpected call %x\n", id);
@ -1709,8 +1799,6 @@ static HRESULT WINAPI ActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
return E_NOTIMPL;
}
#undef ACTSCPSITE_THIS
static const IActiveScriptSiteVtbl ActiveScriptSiteVtbl = {
ActiveScriptSite_QueryInterface,
ActiveScriptSite_AddRef,
@ -1926,148 +2014,360 @@ static HRESULT parse_htmlscript(const WCHAR *script_str)
return hres;
}
static void test_IActiveScriptError(IActiveScriptError *error, SCODE errorcode, ULONG line, LONG pos, const WCHAR *script_source,
const WCHAR *description, const WCHAR *line_text)
{
HRESULT hres;
DWORD source_context;
ULONG line_number;
LONG char_position;
BSTR linetext;
EXCEPINFO excep;
#define ERROR_TODO_PARSE 0x0001
#define ERROR_TODO_SCODE 0x0002
#define ERROR_TODO_DESCRIPTION 0x0004
/* IActiveScriptError_GetSourcePosition */
hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, NULL);
ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
source_context = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(error, &source_context, NULL, NULL);
ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
ok(source_context == 0, "IActiveScriptError_GetSourcePosition -- source_context: expected 0, got 0x%08x\n", source_context);
line_number = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(error, NULL, &line_number, NULL);
ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
ok(line_number == line, "IActiveScriptError_GetSourcePosition -- line_number: expected %d, got %d\n", line, line_number);
char_position = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(error, NULL, NULL, &char_position);
ok(hres == S_OK, "IActiveScriptError_GetSourcePosition -- hres: expected S_OK, got 0x%08x\n", hres);
ok(char_position == pos, "IActiveScriptError_GetSourcePosition -- char_position: expected %d, got %d\n", pos, char_position);
/* IActiveScriptError_GetSourceLineText */
hres = IActiveScriptError_GetSourceLineText(error, NULL);
ok(hres == E_POINTER, "IActiveScriptError_GetSourceLineText -- hres: expected E_POINTER, got 0x%08x\n", hres);
linetext = NULL;
hres = IActiveScriptError_GetSourceLineText(error, &linetext);
if (line_text) {
ok(hres == S_OK, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
ok(linetext != NULL && !lstrcmpW(linetext, line_text),
"IActiveScriptError_GetSourceLineText -- expected %s, got %s\n", wine_dbgstr_w(line_text), wine_dbgstr_w(linetext));
} else {
ok(hres == E_FAIL, "IActiveScriptError_GetSourceLineText -- hres: expected S_OK, got 0x%08x\n", hres);
ok(linetext == NULL,
"IActiveScriptError_GetSourceLineText -- expected NULL, got %s\n", wine_dbgstr_w(linetext));
}
SysFreeString(linetext);
/* IActiveScriptError_GetExceptionInfo */
hres = IActiveScriptError_GetExceptionInfo(error, NULL);
ok(hres == E_POINTER, "IActiveScriptError_GetExceptionInfo -- hres: expected E_POINTER, got 0x%08x\n", hres);
excep.wCode = 0xdead;
excep.wReserved = 0xdead;
excep.bstrSource = (BSTR)0xdeadbeef;
excep.bstrDescription = (BSTR)0xdeadbeef;
excep.bstrHelpFile = (BSTR)0xdeadbeef;
excep.dwHelpContext = 0xdeadbeef;
excep.pvReserved = (void *)0xdeadbeef;
excep.pfnDeferredFillIn = (void *)0xdeadbeef;
excep.scode = 0xdeadbeef;
hres = IActiveScriptError_GetExceptionInfo(error, &excep);
ok(hres == S_OK, "IActiveScriptError_GetExceptionInfo -- hres: expected S_OK, got 0x%08x\n", hres);
ok(excep.wCode == 0, "IActiveScriptError_GetExceptionInfo -- excep.wCode: expected 0, got 0x%08x\n", excep.wCode);
ok(excep.wReserved == 0, "IActiveScriptError_GetExceptionInfo -- excep.wReserved: expected 0, got %d\n", excep.wReserved);
if (!is_lang_english())
skip("Non-english UI (test with hardcoded strings)\n");
else {
ok(excep.bstrSource != NULL && !lstrcmpW(excep.bstrSource, script_source),
"IActiveScriptError_GetExceptionInfo -- excep.bstrSource is not valid: expected %s, got %s\n",
wine_dbgstr_w(script_source), wine_dbgstr_w(excep.bstrSource));
ok(excep.bstrDescription != NULL && !lstrcmpW(excep.bstrDescription, description),
"IActiveScriptError_GetExceptionInfo -- excep.bstrDescription is not valid: got %s\n", wine_dbgstr_w(excep.bstrDescription));
}
ok(excep.bstrHelpFile == NULL,
"IActiveScriptError_GetExceptionInfo -- excep.bstrHelpFile: expected NULL, got %s\n", wine_dbgstr_w(excep.bstrHelpFile));
ok(excep.dwHelpContext == 0, "IActiveScriptError_GetExceptionInfo -- excep.dwHelpContext: expected 0, got %d\n", excep.dwHelpContext);
ok(excep.pvReserved == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pvReserved: expected NULL, got %p\n", excep.pvReserved);
ok(excep.pfnDeferredFillIn == NULL, "IActiveScriptError_GetExceptionInfo -- excep.pfnDeferredFillIn: expected NULL, got %p\n", excep.pfnDeferredFillIn);
ok(excep.scode == errorcode, "IActiveScriptError_GetExceptionInfo -- excep.scode: expected 0x%08x, got 0x%08x\n", errorcode, excep.scode);
SysFreeString(excep.bstrSource);
SysFreeString(excep.bstrDescription);
SysFreeString(excep.bstrHelpFile);
}
static void parse_script_with_error(DWORD flags, const WCHAR *script_str, SCODE errorcode, ULONG line, LONG pos, const WCHAR *script_source,
const WCHAR *description, const WCHAR *line_text)
static void test_error_reports(void)
{
IActiveScriptParse *parser;
IActiveScript *engine;
unsigned i;
HRESULT hres;
engine = create_script();
if(!engine)
return;
static const struct {
const WCHAR *script;
HRESULT error;
unsigned line;
unsigned character;
const WCHAR *error_source;
const WCHAR *description;
const WCHAR *line_text;
BOOL todo_flags;
BOOL reserved_lcid;
} tests[] = {
{
L"?",
JS_E_SYNTAX, 0, 0,
L"Microsoft JScript compilation error",
L"Syntax error",
L"?"
},
{
L"var a=1;\nif(a\n-->0) a=5;\n",
JS_E_MISSING_RBRACKET, 2, 0,
L"Microsoft JScript compilation error",
L"Expected ')'",
L"-->0) a=5;",
ERROR_TODO_PARSE
},
{
L"new 3;",
JS_E_INVALID_ACTION, 0, 0,
L"Microsoft JScript runtime error",
L"Object doesn't support this action"
},
{
L"new null;",
JS_E_OBJECT_EXPECTED, 0, 0,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"var a;\nnew null;",
JS_E_OBJECT_EXPECTED, 1, 0,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"var a; new null;",
JS_E_OBJECT_EXPECTED, 0, 7,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"var a;\na=\n new null;",
JS_E_OBJECT_EXPECTED, 1, 0,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"var a;\nif(na=\n new null) {}",
JS_E_OBJECT_EXPECTED, 1, 0,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"not_existing_variable.something();",
JS_E_UNDEFINED_VARIABLE, 0, 0,
L"Microsoft JScript runtime error",
L"'not_existing_variable' is undefined"
},
{
L" throw 1;",
JS_E_EXCEPTION_THROWN, 0, 1,
L"Microsoft JScript runtime error",
L"Exception thrown and not caught"
},
{
L"var f = function() { throw 1; };\n"
L"f();\n",
JS_E_EXCEPTION_THROWN, 0, 21,
L"Microsoft JScript runtime error",
L"Exception thrown and not caught"
},
{
L"var f = function() { throw 1; };\n"
L"try { f(); } finally { 2; }\n",
JS_E_EXCEPTION_THROWN, 1, 21,
L"Microsoft JScript runtime error",
L"Exception thrown and not caught"
},
{
L" throwInt(-2146827270);",
JS_E_MISPLACED_RETURN, 0, 1,
L"Microsoft JScript runtime error",
L"'return' statement outside of function"
},
{
L" throwEI(-2146827270);",
JS_E_MISPLACED_RETURN, 0, 1,
L"test source",
L"test description"
},
{
L" throwEI(-2146827270, false);",
JS_E_MISPLACED_RETURN, 0, 1,
L"Microsoft JScript runtime error",
L"'return' statement outside of function"
},
{
L" throwEI(-2147467259 /* E_FAIL */, false);",
E_FAIL, 0, 1
},
{
L" throwInt(-2147467259 /* E_FAIL */);",
E_FAIL, 0, 1,
NULL,
NULL,
NULL,
FALSE,
0x409
},
{
L" throwEI(-2147467259 /* E_FAIL */);",
E_FAIL, 0, 1,
L"test source",
L"test description"
},
{
L"switch(2) {\n"
L" case 1: break;\n"
L" case 0: break;\n"
L" case new null: break;\n"
L" default: throw 1;\n"
L"}\n",
JS_E_OBJECT_EXPECTED, 3, 4,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"do {\n"
L" 1;\n"
L"} while ( new null );\n",
JS_E_OBJECT_EXPECTED, 2, 2,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"for (var i = 0; i < 100; new null) { i++ }",
JS_E_OBJECT_EXPECTED, 0, 25,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"for (var i = 0; new null; i++) { i++ }",
JS_E_OBJECT_EXPECTED, 0, 16,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"for (new null; i < 100; i++) { i++ }",
JS_E_OBJECT_EXPECTED, 0, 5,
L"Microsoft JScript runtime error",
L"Object expected"
},
{
L"var e = new Error();\n"
L"e.number = -2146828279;\n"
L"e.description = 'test';\n"
L"throw e;",
JS_E_SUBSCRIPT_OUT_OF_RANGE, 3, 0,
L"Microsoft JScript runtime error",
L"test",
NULL,
FALSE,
TRUE
},
{
L"var e = new Error();\n"
L"e.number = -2146828279;\n"
L"e.message = 'test';\n"
L"throw e;",
JS_E_SUBSCRIPT_OUT_OF_RANGE, 3, 0,
L"Microsoft JScript runtime error",
L"",
NULL,
FALSE,
TRUE
},
{
L"var e = new Error();\n"
L"throw e;",
E_FAIL, 1, 0,
NULL,
L"",
NULL,
FALSE,
TRUE
},
{
L"var e = new Object();\n"
L"e.number = -2146828279;\n"
L"e.description = 'test';\n"
L"throw e;",
JS_E_EXCEPTION_THROWN, 3, 0,
L"Microsoft JScript runtime error",
L"Exception thrown and not caught",
NULL,
ERROR_TODO_SCODE | ERROR_TODO_DESCRIPTION
},
};
hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
if (FAILED(hres))
if (!is_lang_english())
skip("Non-english UI (test with hardcoded strings)\n");
for (i = 0; i < ARRAY_SIZE(tests); i++)
{
engine = create_script();
hres = IActiveScript_QueryInterface(engine, &IID_IActiveScriptParse, (void**)&parser);
ok(hres == S_OK, "Could not get IActiveScriptParse: %08x\n", hres);
hres = IActiveScriptParse_InitNew(parser);
ok(hres == S_OK, "InitNew failed: %08x\n", hres);
hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
hres = IActiveScript_AddNamedItem(engine, L"test",
SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|SCRIPTITEM_GLOBALMEMBERS);
ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
ok(script_disp != NULL, "script_disp == NULL\n");
ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
script_error = NULL;
SET_EXPECT(ActiveScriptSite_OnScriptError);
hres = IActiveScriptParse_ParseScriptText(parser, tests[i].script, NULL, NULL, NULL, 10, 0, 0, NULL, NULL);
todo_wine
ok(hres == SCRIPT_E_REPORTED || (tests[i].error == JS_E_EXCEPTION_THROWN && hres == SCRIPT_E_PROPAGATE), "[%u] got: 0x%08x\n", i, hres);
todo_wine
CHECK_CALLED(ActiveScriptSite_OnScriptError);
if (script_error)
{
DWORD source_context;
ULONG line_number;
LONG character;
BSTR line_text;
EXCEPINFO ei;
hres = IActiveScriptError_GetSourcePosition(script_error, NULL, NULL, NULL);
ok(hres == S_OK, "GetSourcePosition failed %08x\n", hres);
source_context = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(script_error, &source_context, NULL, NULL);
ok(hres == S_OK, "GetSourcePosition failed0x%08x\n", hres);
ok(source_context == 10, "source_context = %x\n", source_context);
line_number = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(script_error, NULL, &line_number, NULL);
ok(hres == S_OK, "GetSourcePosition failed%08x\n", hres);
ok(line_number == tests[i].line, "[%u] line = %u expected %u\n", i, line_number, tests[i].line);
character = 0xdeadbeef;
hres = IActiveScriptError_GetSourcePosition(script_error, NULL, NULL, &character);
ok(hres == S_OK, "GetSourcePosition failed: %08x\n", hres);
ok(character == tests[i].character, "[%u] character = %u expected %u\n", i, character, tests[i].character);
hres = IActiveScriptError_GetSourceLineText(script_error, NULL);
ok(hres == E_POINTER, "GetSourceLineText returned %08x\n", hres);
line_text = (BSTR)0xdeadbeef;
hres = IActiveScriptError_GetSourceLineText(script_error, &line_text);
if (tests[i].line_text)
{
todo_wine
ok(hres == S_OK, "GetSourceLineText failed: %08x\n", hres);
todo_wine
ok(line_text != NULL && !lstrcmpW(line_text, tests[i].line_text), "[%u] GetSourceLineText returned %s expected %s\n",
i, wine_dbgstr_w(line_text), wine_dbgstr_w(tests[i].line_text));
}
else
{
ok(hres == E_FAIL, "GetSourceLineText failed: %08x\n", hres);
}
if (SUCCEEDED(hres))
SysFreeString(line_text);
hres = IActiveScriptError_GetExceptionInfo(script_error, NULL);
ok(hres == E_POINTER, "GetExceptionInfo failed: %08x\n", hres);
ei.wCode = 0xdead;
ei.wReserved = 0xdead;
ei.bstrSource = (BSTR)0xdeadbeef;
ei.bstrDescription = (BSTR)0xdeadbeef;
ei.bstrHelpFile = (BSTR)0xdeadbeef;
ei.dwHelpContext = 0xdeadbeef;
ei.pvReserved = (void *)0xdeadbeef;
ei.pfnDeferredFillIn = (void *)0xdeadbeef;
ei.scode = 0xdeadbeef;
hres = IActiveScriptError_GetExceptionInfo(script_error, &ei);
ok(hres == S_OK, "GetExceptionInfo failed: %08x\n", hres);
todo_wine_if(tests[i].todo_flags & ERROR_TODO_SCODE)
ok(ei.scode == tests[i].error, "[%u] scode = %08x, expected %08x\n", i, ei.scode, tests[i].error);
ok(ei.wCode == 0, "wCode = %x\n", ei.wCode);
todo_wine_if(tests[i].reserved_lcid)
ok(ei.wReserved == (tests[i].reserved_lcid ? GetUserDefaultLCID() : 0), "[%u] wReserved = %x expected %x\n",
i, ei.wReserved, (tests[i].reserved_lcid ? GetUserDefaultLCID() : 0));
if (is_lang_english())
{
if(tests[i].error_source)
ok(ei.bstrSource && !lstrcmpW(ei.bstrSource, tests[i].error_source), "[%u] bstrSource = %s expected %s\n",
i, wine_dbgstr_w(ei.bstrSource), wine_dbgstr_w(tests[i].error_source));
else
ok(!ei.bstrSource, "[%u] bstrSource = %s expected NULL\n", i, wine_dbgstr_w(ei.bstrSource));
if(tests[i].description)
todo_wine_if(tests[i].todo_flags & ERROR_TODO_DESCRIPTION)
ok(ei.bstrDescription && !lstrcmpW(ei.bstrDescription, tests[i].description),
"[%u] bstrDescription = %s expected %s\n", i, wine_dbgstr_w(ei.bstrDescription), wine_dbgstr_w(tests[i].description));
else
ok(!ei.bstrDescription, "[%u] bstrDescription = %s expected NULL\n", i, wine_dbgstr_w(ei.bstrDescription));
}
ok(!ei.bstrHelpFile, "bstrHelpFile = %s\n", wine_dbgstr_w(ei.bstrHelpFile));
ok(!ei.dwHelpContext, "dwHelpContext = %d\n", ei.dwHelpContext);
ok(!ei.pvReserved, "pvReserved = %p\n", ei.pvReserved);
ok(!ei.pfnDeferredFillIn, "pfnDeferredFillIn = %p\n", ei.pfnDeferredFillIn);
SysFreeString(ei.bstrSource);
SysFreeString(ei.bstrDescription);
SysFreeString(ei.bstrHelpFile);
IActiveScriptError_Release(script_error);
}
IDispatch_Release(script_disp);
IActiveScript_Release(engine);
return;
IActiveScriptParse_Release(parser);
}
hres = IActiveScriptParse_InitNew(parser);
ok(hres == S_OK, "InitNew failed: %08x\n", hres);
hres = IActiveScript_SetScriptSite(engine, &ActiveScriptSite_CheckError);
ok(hres == S_OK, "SetScriptSite failed: %08x\n", hres);
hres = IActiveScript_AddNamedItem(engine, L"test",
SCRIPTITEM_ISVISIBLE|SCRIPTITEM_ISSOURCE|flags);
ok(hres == S_OK, "AddNamedItem failed: %08x\n", hres);
hres = IActiveScript_SetScriptState(engine, SCRIPTSTATE_STARTED);
ok(hres == S_OK, "SetScriptState(SCRIPTSTATE_STARTED) failed: %08x\n", hres);
hres = IActiveScript_GetScriptDispatch(engine, NULL, &script_disp);
ok(hres == S_OK, "GetScriptDispatch failed: %08x\n", hres);
ok(script_disp != NULL, "script_disp == NULL\n");
ok(script_disp != (IDispatch*)&Global, "script_disp == Global\n");
script_error = NULL;
SET_EXPECT(ActiveScriptSite_OnScriptError);
hres = IActiveScriptParse_ParseScriptText(parser, script_str, NULL, NULL, NULL, 0, 0, 0, NULL, NULL);
todo_wine ok(hres == 0x80020101, "parse_script_with_error should have returned 0x80020101, got: 0x%08x\n", hres);
todo_wine CHECK_CALLED(ActiveScriptSite_OnScriptError);
if (script_error)
{
test_IActiveScriptError(script_error, errorcode, line, pos, script_source, description, line_text);
IActiveScriptError_Release(script_error);
}
IDispatch_Release(script_disp);
IActiveScript_Release(engine);
IActiveScriptParse_Release(parser);
}
#define run_script(a) _run_script(__LINE__,a)
@ -3039,54 +3339,7 @@ static BOOL run_tests(void)
test_script_exprs();
test_invokeex();
test_eval();
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"?",
0x800a03ea, 0, 0,
L"Microsoft JScript compilation error",
L"Syntax error",
L"?");
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"var a=1;\nif(a\n-->0) a=5;\n",
0x800a03ee, 2, 0,
L"Microsoft JScript compilation error",
L"Expected ')'",
L"-->0) a=5;");
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"new 3;",
0x800a01bd, 0, 0,
L"Microsoft JScript runtime error",
L"Object doesn't support this action",
NULL);
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"new null;",
0x800a138f, 0, 0,
L"Microsoft JScript runtime error",
L"Object expected",
NULL);
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"var a;\nnew null;",
0x800a138f, 1, 0,
L"Microsoft JScript runtime error",
L"Object expected",
NULL);
parse_script_with_error(
SCRIPTITEM_GLOBALMEMBERS,
L"var a; new null;",
0x800a138f, 0, 7,
L"Microsoft JScript runtime error",
L"Object expected",
NULL);
test_error_reports();
run_bom_tests();