Added stubs for AccessCheckByType, AddAuditAccessAce,
[wine] / dlls / oleaut32 / tests / olefont.c
1 /*
2  * OLEFONT test program
3  *
4  * Copyright 2003 Marcus Meissner
5  *
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
20  */
21
22 #include <stdarg.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <math.h>
26 #include <float.h>
27 #include <time.h>
28
29 #include <wine/test.h>
30 #include <windef.h>
31 #include <winbase.h>
32 #include <winuser.h>
33 #include <wingdi.h>
34 #include <winnls.h>
35 #include <winerror.h>
36 #include <winnt.h>
37
38 #include <wtypes.h>
39 #include <olectl.h>
40
41
42 START_TEST(olefont)
43 {
44         LPVOID pvObj = NULL;
45         HRESULT hres;
46         IFont*  font = NULL;
47
48         hres = OleCreateFontIndirect(NULL, &IID_IFont, &pvObj);
49         font = pvObj;
50
51         ok(hres == S_OK,"OCFI (NULL,..) does not return 0, but 0x%08lx",hres);
52         ok(font != NULL,"OCFI (NULL,..) does return NULL, insytead of !NULL");
53
54         pvObj = NULL;
55         hres = IFont_QueryInterface( font, &IID_IFont, &pvObj);
56
57         ok(hres == S_OK,"IFont_QI does not return S_OK, but 0x%08lx", hres);
58         ok(pvObj != NULL,"IFont_QI does return NULL, instead of a ptr");
59 }