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

oleaut32/tests: Add test for tlibattr->lcid.

This commit is contained in:
Vincent Povirk 2009-08-25 12:46:44 -05:00 committed by Alexandre Julliard
parent 34f1d8a200
commit a9221d7688
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
dlls/oleaut32/tests/tmarshal.c
View File

@ -1399,6 +1399,29 @@ static void test_StaticWidget(void)
ITypeInfo_Release(type_info); ITypeInfo_Release(type_info);
} }
static void test_libattr(void)
{
ITypeLib *pTypeLib;
HRESULT hr;
TLIBATTR *pattr;
hr = LoadRegTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL, &pTypeLib);
ok_ole_success(hr, LoadRegTypeLib);
if (FAILED(hr))
return;
hr = ITypeLib_GetLibAttr(pTypeLib, &pattr);
ok_ole_success(hr, GetLibAttr);
if (SUCCEEDED(hr))
{
ok(pattr->lcid == MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL), "lcid %x\n", pattr->lcid);
ITypeLib_ReleaseTLibAttr(pTypeLib, pattr);
}
ITypeLib_Release(pTypeLib);
}
START_TEST(tmarshal) START_TEST(tmarshal)
{ {
HRESULT hr; HRESULT hr;
@ -1411,6 +1434,7 @@ START_TEST(tmarshal)
test_typelibmarshal(); test_typelibmarshal();
test_DispCallFunc(); test_DispCallFunc();
test_StaticWidget(); test_StaticWidget();
test_libattr();
hr = UnRegisterTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL, hr = UnRegisterTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL,
sizeof(void*) == 8 ? SYS_WIN64 : SYS_WIN32); sizeof(void*) == 8 ? SYS_WIN64 : SYS_WIN32);