wine/dlls/oleaut32/tests olefont.c

[Alexandre Julliard]

ChangeSet ID:	21099
CVSROOT:	/opt/cvs-commit
Module name:	wine
Changes by:	[e-mail]	2005/11/04 05:13:08

Modified files:
    dlls/oleaut32/tests: olefont.c

Log message:
    Robert Shearman 
    Add a test for Invoking an OleFont function.

Patch: http://cvs.winehq.org/patch.py?id=21099

Old revision  New revision  Changes     Path
 1.9           1.10          +14 -0      wine/dlls/oleaut32/tests/olefont.c

Index: wine/dlls/oleaut32/tests/olefont.c
diff -u -p wine/dlls/oleaut32/tests/olefont.c:1.9 wine/dlls/oleaut32/tests/olefont.c:1.10
--- wine/dlls/oleaut32/tests/olefont.c:1.9	4 Nov 2005 11:13: 8 -0000
+++ wine/dlls/oleaut32/tests/olefont.c	4 Nov 2005 11:13: 8 -0000
@@ -142,6 +142,8 @@ void test_type_info(void)
    UINT n;
         LCID en_us = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),
                 SORT_DEFAULT);
+        DISPPARAMS dispparams;
+        VARIANT varresult;

pOleCreateFontIndirect(NULL, &IID_IFontDisp, &pvObj);
         fontdisp = pvObj;
@@ -156,6 +158,18 @@ void test_type_info(void)
    ok(!lstrcmpiW(names[0],name_Name), "DISPID_FONT_NAME doesn't get 'Names'.\n");

ITypeInfo_Release(pTInfo);
+
+        dispparams.cNamedArgs = 0;
+        dispparams.rgdispidNamedArgs = NULL;
+        dispparams.cArgs = 0;
+        dispparams.rgvarg = NULL;
+        VariantInit(&varresult);
+        hres = IFontDisp_Invoke(fontdisp, DISPID_FONT_NAME, &IID_NULL,
+            LOCALE_NEUTRAL, DISPATCH_PROPERTYGET, &dispparams, &varresult,
+            NULL, NULL);
+        ok(hres == S_OK, "IFontDisp_Invoke return 0x%08lx instead of S_OK.\n", hres);
+        VariantClear(&varresult);
+
    IFontDisp_Release(fontdisp);
 }