From a9221d7688f4584f731c080b849db54895431202 Mon Sep 17 00:00:00 2001
From: Vincent Povirk <vincent@codeweavers.com>
Date: Tue, 25 Aug 2009 12:46:44 -0500
Subject: [PATCH] oleaut32/tests: Add test for tlibattr->lcid.

---
 dlls/oleaut32/tests/tmarshal.c | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/dlls/oleaut32/tests/tmarshal.c b/dlls/oleaut32/tests/tmarshal.c
index 6b309fee183..b73a0da663a 100644
--- a/dlls/oleaut32/tests/tmarshal.c
+++ b/dlls/oleaut32/tests/tmarshal.c
@@ -1399,6 +1399,29 @@ static void test_StaticWidget(void)
     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)
 {
     HRESULT hr;
@@ -1411,6 +1434,7 @@ START_TEST(tmarshal)
     test_typelibmarshal();
     test_DispCallFunc();
     test_StaticWidget();
+    test_libattr();
 
     hr = UnRegisterTypeLib(&LIBID_TestTypelib, 1, 0, LOCALE_NEUTRAL,
                            sizeof(void*) == 8 ? SYS_WIN64 : SYS_WIN32);