4 * Copyright 2006 Jeff Latimer
5 * Copyright 2006 Hans Leidekker
6 * Copyright 2010 CodeWeavers, Aric Stewart
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 * Uniscribe allows for processing of complex scripts such as joining
24 * and filtering characters and bi-directional text with custom line breaks.
30 #include <wine/test.h>
34 typedef struct _itemTest
{
42 static inline void _test_items_ok(LPCWSTR string
, DWORD cchString
,
43 SCRIPT_CONTROL
*Control
, SCRIPT_STATE
*State
,
44 DWORD nItems
, const itemTest
* items
, BOOL nItemsToDo
,
49 SCRIPT_ITEM outpItems
[15];
51 hr
= ScriptItemize(string
, cchString
, 15, Control
, State
, outpItems
, &outnItems
);
52 winetest_ok(!hr
, "ScriptItemize should return S_OK not %08x\n", hr
);
53 if (nItemsBroken
&& broken(nItemsBroken
== outnItems
))
55 winetest_win_skip("This test broken on this platform\n");
59 todo_wine
winetest_ok(outnItems
== nItems
, "Wrong number of items\n");
61 winetest_ok(outnItems
== nItems
, "Wrong number of items\n");
62 for (x
= 0; x
<= outnItems
; x
++)
64 if (items
[x
].todo_flag
[0])
65 todo_wine
winetest_ok(outpItems
[x
].iCharPos
== items
[x
].iCharPos
, "%i:Wrong CharPos\n",x
);
67 winetest_ok(outpItems
[x
].iCharPos
== items
[x
].iCharPos
, "%i:Wrong CharPos (%i)\n",x
,outpItems
[x
].iCharPos
);
69 if (items
[x
].todo_flag
[1])
70 todo_wine
winetest_ok(outpItems
[x
].a
.fRTL
== items
[x
].fRTL
, "%i:Wrong fRTL\n",x
);
72 winetest_ok(outpItems
[x
].a
.fRTL
== items
[x
].fRTL
, "%i:Wrong fRTL(%i)\n",x
,outpItems
[x
].a
.fRTL
);
73 if (items
[x
].todo_flag
[2])
74 todo_wine
winetest_ok(outpItems
[x
].a
.fLayoutRTL
== items
[x
].fLayoutRTL
, "%i:Wrong fLayoutRTL\n",x
);
76 winetest_ok(outpItems
[x
].a
.fLayoutRTL
== items
[x
].fLayoutRTL
, "%i:Wrong fLayoutRTL(%i)\n",x
,outpItems
[x
].a
.fLayoutRTL
);
77 if (items
[x
].todo_flag
[3])
78 todo_wine
winetest_ok(outpItems
[x
].a
.s
.uBidiLevel
== items
[x
].uBidiLevel
, "%i:Wrong BidiLevel\n",x
);
80 winetest_ok(outpItems
[x
].a
.s
.uBidiLevel
== items
[x
].uBidiLevel
, "%i:Wrong BidiLevel(%i)\n",x
,outpItems
[x
].a
.s
.uBidiLevel
);
82 winetest_ok(outpItems
[x
].a
.eScript
!= SCRIPT_UNDEFINED
, "%i: Undefined script\n",x
);
86 #define test_items_ok(a,b,c,d,e,f,g,h) (winetest_set_location(__FILE__,__LINE__), 0) ? 0 : _test_items_ok(a,b,c,d,e,f,g,h)
89 static void test_ScriptItemize( void )
91 static const WCHAR test1
[] = {'t', 'e', 's', 't',0};
92 static const itemTest t11
[2] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},4,0,0,0}};
93 static const itemTest t12
[2] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},4,0,0,0}};
95 static const WCHAR test1b
[] = {' ', ' ', ' ', ' ',0};
96 static const itemTest t1b1
[2] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},4,0,0,0}};
97 static const itemTest t1b2
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0}};
100 static const WCHAR test2
[] = {'1','2','3','-','5','2',0x064a,0x064f,0x0633,0x0627,0x0648,0x0650,0x064a,'7','1','.',0};
101 static const itemTest t21
[7] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},3,0,0,0},{{0,0,0,0},4,0,0,0},{{0,0,0,0},6,1,1,1},{{0,0,0,0},13,0,0,0},{{0,0,0,0},15,0,0,0},{{0,0,0,0},16,0,0,0}};
102 static const itemTest t22
[5] = {{{0,0,0,1},0,0,0,2},{{0,0,0,0},6,1,1,1},{{0,0,1,0},13,0,1,2},{{0,0,0,0},15,0,0,0},{{0,0,0,0},16,0,0,0}};
103 static const itemTest t23
[5] = {{{0,0,1,0},0,0,1,2},{{0,0,0,0},6,1,1,1},{{0,0,1,0},13,0,1,2},{{0,0,0,0},15,1,1,1},{{0,0,0,0},16,0,0,0}};
105 static const WCHAR test2b
[] = {'A','B','C','-','D','E','F',' ',0x0621,0x0623,0x0624,0};
106 static const itemTest t2b1
[5] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},3,0,0,0},{{0,0,0,0},4,0,0,0},{{0,0,0,0},8,1,1,1},{{0,0,0,0},11,0,0,0}};
107 static const itemTest t2b2
[5] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},3,0,0,2},{{0,0,0,0},4,0,0,2},{{0,0,0,0},7,1,1,1},{{0,0,0,0},11,0,0,0}};
108 static const itemTest t2b3
[3] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},7,1,1,1},{{0,0,0,0},11,0,0,0}};
111 static const WCHAR test2c
[] = {' ',0x0621,0x0623,0x0624,'A','B','C','-','D','E','F',0};
112 static const itemTest t2c1
[5] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0},{{0,0,0,0},7,0,0,0},{{0,0,0,0},8,0,0,0},{{0,0,0,0},11,0,0,0}};
113 static const itemTest t2c2
[6] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},1,1,1,1},{{0,0,0,0},4,0,0,0},{{0,0,0,0},7,0,0,0},{{0,0,0,0},8,0,0,0},{{0,0,0,0},11,0,0,0}};
114 static const itemTest t2c3
[5] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,2},{{0,0,0,0},7,0,0,2},{{0,0,0,0},8,0,0,2},{{0,0,0,0},11,0,0,0}};
115 static const itemTest t2c4
[3] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,2},{{0,0,0,0},11,0,0,0}};
118 static const WCHAR test2d
[] = {'A','B','C','-','D','E','F',0x0621,0x0623,0x0624,' ',0};
119 static const itemTest t2d1
[5] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},3,0,0,0},{{0,0,0,0},4,0,0,0},{{0,0,0,0},7,1,1,1},{{0,0,0,0},11,0,0,0}};
120 static const itemTest t2d2
[6] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},3,0,0,0},{{0,0,0,0},4,0,0,0},{{0,0,0,0},7,1,1,1},{{0,0,0,0},10,0,0,0},{{0,0,0,0},11,0,0,0}};
121 static const itemTest t2d3
[5] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},3,0,0,2},{{0,0,0,0},4,0,0,2},{{0,0,0,0},7,1,1,1},{{0,0,0,0},11,0,0,0}};
122 static const itemTest t2d4
[3] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},7,1,1,1},{{0,0,0,0},11,0,0,0}};
125 static const WCHAR test3
[] =
126 {0x0e04,0x0e27,0x0e32,0x0e21,0x0e1e,0x0e22,0x0e32,0x0e22,0x0e32, 0x0e21
127 ,0x0e2d,0x0e22,0x0e39,0x0e48,0x0e17,0x0e35,0x0e48,0x0e44,0x0e2b,0x0e19
128 ,0x0e04,0x0e27,0x0e32,0x0e21,0x0e2a, 0x0e33,0x0e40,0x0e23,0x0e47,0x0e08,
129 0x0e2d,0x0e22,0x0e39,0x0e48,0x0e17,0x0e35,0x0e48,0x0e19,0x0e31,0x0e48,0x0e19,0};
131 static const itemTest t31
[2] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},41,0,0,0}};
132 static const itemTest t32
[2] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},41,0,0,0}};
134 static const WCHAR test4
[] = {'1','2','3','-','5','2',' ','i','s',' ','7','1','.',0};
136 static const itemTest t41
[6] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},3,0,0,0},{{0,0,0,0},4,0,0,0},{{0,0,0,0},7,0,0,0},{{0,0,0,0},10,0,0,0},{{0,0,0,0},12,0,0,0}};
137 static const itemTest t42
[5] = {{{0,0,1,0},0,0,1,2},{{0,0,0,0},6,1,1,1},{{0,0,0,0},7,0,0,2},{{0,0,0,0},10,0,0,2},{{0,0,0,0},12,0,0,0}};
138 static const itemTest t43
[4] = {{{0,0,1,0},0,0,1,2},{{0,0,0,0},6,1,1,1},{{0,0,0,0},7,0,0,2},{{0,0,0,0},12,0,0,0}};
141 static const WCHAR test5
[] =
142 {0x0627,0x0644,0x0635,0x0651,0x0650,0x062d,0x0629,0x064f,' ',0x062a,0x064e,
143 0x0627,0x062c,0x064c,' ',0x0639,0x064e,0x0644,0x0649,' ',
144 0x0631,0x064f,0x0624,0x0648,0x0633,0x0650,' ',0x0627,0x0644
145 ,0x0623,0x0635,0x0650,0x062d,0x0651,0x064e,0x0627,0x0621,0x0650,0};
146 static const itemTest t51
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},38,0,0,0}};
149 static const WCHAR test6
[] = {0x05e9, 0x05dc, 0x05d5, 0x05dd, '.',0};
150 static const itemTest t61
[3] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0},{{0,0,0,0},5,0,0,0}};
151 static const itemTest t62
[3] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,1,1,1},{{0,0,0,0},5,0,0,0}};
152 static const itemTest t63
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},5,0,0,0}};
153 static const WCHAR test7
[] = {'p','a','r','t',' ','o','n','e',' ',0x05d7, 0x05dc, 0x05e7, ' ', 0x05e9, 0x05ea, 0x05d9, 0x05d9, 0x05dd, ' ','p','a','r','t',' ','t','h','r','e','e', 0};
154 static const itemTest t71
[4] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},9,1,1,1},{{0,0,0,0},19,0,0,0},{{0,0,0,0},29,0,0,0}};
155 static const itemTest t72
[4] = {{{0,0,0,0},0,0,0,0},{{0,0,0,0},9,1,1,1},{{0,0,0,0},18,0,0,0},{{0,0,0,0},29,0,0,0}};
156 static const itemTest t73
[4] = {{{0,0,0,0},0,0,0,2},{{0,0,0,0},8,1,1,1},{{0,0,0,0},19,0,0,2},{{0,0,0,0},29,0,0,0}};
157 static const WCHAR test8
[] = {0x0633, 0x0644, 0x0627, 0x0645,0};
158 static const itemTest t81
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0}};
160 /* Syriac (Like Arabic )*/
161 static const WCHAR test9
[] = {0x0710, 0x0712, 0x0712, 0x0714, '.',0};
162 static const itemTest t91
[3] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0},{{0,0,0,0},5,0,0,0}};
163 static const itemTest t92
[3] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,1,1,1},{{0,0,0,0},5,0,0,0}};
164 static const itemTest t93
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},5,0,0,0}};
166 static const WCHAR test10
[] = {0x0717, 0x0718, 0x071a, 0x071b,0};
167 static const itemTest t101
[2] = {{{0,0,0,0},0,1,1,1},{{0,0,0,0},4,0,0,0}};
169 SCRIPT_ITEM items
[15];
170 SCRIPT_CONTROL Control
;
175 memset(&Control
, 0, sizeof(Control
));
176 memset(&State
, 0, sizeof(State
));
178 hr
= ScriptItemize(NULL
, 4, 10, &Control
, &State
, items
, NULL
);
179 ok (hr
== E_INVALIDARG
, "ScriptItemize should return E_INVALIDARG if pwcInChars is NULL\n");
181 hr
= ScriptItemize(test1
, 4, 10, &Control
, &State
, NULL
, NULL
);
182 ok (hr
== E_INVALIDARG
, "ScriptItemize should return E_INVALIDARG if pItems is NULL\n");
184 hr
= ScriptItemize(test1
, 4, 1, &Control
, &State
, items
, NULL
);
185 ok (hr
== E_INVALIDARG
, "ScriptItemize should return E_INVALIDARG if cMaxItems < 2.\n");
187 hr
= ScriptItemize(test1
, 0, 10, NULL
, NULL
, items
, &nItems
);
188 ok (hr
== E_INVALIDARG
, "ScriptItemize should return E_INVALIDARG if cInChars is 0\n");
190 test_items_ok(test1
,4,NULL
,NULL
,1,t11
,FALSE
,0);
191 test_items_ok(test1b
,4,NULL
,NULL
,1,t1b1
,FALSE
,0);
192 test_items_ok(test2
,16,NULL
,NULL
,6,t21
,FALSE
,0);
193 test_items_ok(test2b
,11,NULL
,NULL
,4,t2b1
,FALSE
,0);
194 test_items_ok(test2c
,11,NULL
,NULL
,4,t2c1
,FALSE
,0);
195 test_items_ok(test2d
,11,NULL
,NULL
,4,t2d1
,FALSE
,0);
196 test_items_ok(test3
,41,NULL
,NULL
,1,t31
,FALSE
,0);
197 test_items_ok(test4
,12,NULL
,NULL
,5,t41
,FALSE
,0);
198 test_items_ok(test5
,38,NULL
,NULL
,1,t51
,FALSE
,0);
199 test_items_ok(test6
,5,NULL
,NULL
,2,t61
,FALSE
,0);
200 test_items_ok(test7
,29,NULL
,NULL
,3,t71
,FALSE
,0);
201 test_items_ok(test8
,4,NULL
,NULL
,1,t81
,FALSE
,0);
202 test_items_ok(test9
,5,NULL
,NULL
,2,t91
,FALSE
,0);
203 test_items_ok(test10
,4,NULL
,NULL
,1,t101
,FALSE
,0);
205 State
.uBidiLevel
= 0;
206 test_items_ok(test1
,4,&Control
,&State
,1,t11
,FALSE
,0);
207 test_items_ok(test1b
,4,&Control
,&State
,1,t1b1
,FALSE
,0);
208 test_items_ok(test2
,16,&Control
,&State
,4,t22
,FALSE
,0);
209 test_items_ok(test2b
,11,&Control
,&State
,4,t2b1
,FALSE
,0);
210 test_items_ok(test2c
,11,&Control
,&State
,5,t2c2
,FALSE
,0);
211 test_items_ok(test2d
,11,&Control
,&State
,5,t2d2
,FALSE
,0);
212 test_items_ok(test3
,41,&Control
,&State
,1,t31
,FALSE
,0);
213 test_items_ok(test4
,12,&Control
,&State
,5,t41
,FALSE
,0);
214 test_items_ok(test5
,38,&Control
,&State
,1,t51
,FALSE
,0);
215 test_items_ok(test6
,5,&Control
,&State
,2,t61
,FALSE
,0);
216 test_items_ok(test7
,29,&Control
,&State
,3,t72
,FALSE
,0);
217 test_items_ok(test8
,4,&Control
,&State
,1,t81
,FALSE
,0);
218 test_items_ok(test9
,5,&Control
,&State
,2,t91
,FALSE
,0);
219 test_items_ok(test10
,4,&Control
,&State
,1,t101
,FALSE
,0);
221 State
.uBidiLevel
= 1;
222 test_items_ok(test1
,4,&Control
,&State
,1,t12
,FALSE
,0);
223 test_items_ok(test1b
,4,&Control
,&State
,1,t1b2
,FALSE
,0);
224 test_items_ok(test2
,16,&Control
,&State
,4,t23
,FALSE
,0);
225 test_items_ok(test2b
,11,&Control
,&State
,4,t2b2
,FALSE
,0);
226 test_items_ok(test2c
,11,&Control
,&State
,4,t2c3
,FALSE
,0);
227 test_items_ok(test2d
,11,&Control
,&State
,4,t2d3
,FALSE
,0);
228 test_items_ok(test3
,41,&Control
,&State
,1,t32
,FALSE
,0);
229 test_items_ok(test4
,12,&Control
,&State
,4,t42
,FALSE
,0);
230 test_items_ok(test5
,38,&Control
,&State
,1,t51
,FALSE
,0);
231 test_items_ok(test6
,5,&Control
,&State
,2,t62
,FALSE
,0);
232 test_items_ok(test7
,29,&Control
,&State
,3,t73
,FALSE
,0);
233 test_items_ok(test8
,4,&Control
,&State
,1,t81
,FALSE
,0);
234 test_items_ok(test9
,5,&Control
,&State
,2,t92
,FALSE
,0);
235 test_items_ok(test10
,4,&Control
,&State
,1,t101
,FALSE
,0);
237 State
.uBidiLevel
= 1;
238 Control
.fMergeNeutralItems
= TRUE
;
239 test_items_ok(test1
,4,&Control
,&State
,1,t12
,FALSE
,0);
240 test_items_ok(test1b
,4,&Control
,&State
,1,t1b2
,FALSE
,0);
241 test_items_ok(test2
,16,&Control
,&State
,4,t23
,FALSE
,0);
242 test_items_ok(test2b
,11,&Control
,&State
,2,t2b3
,FALSE
,4);
243 test_items_ok(test2c
,11,&Control
,&State
,2,t2c4
,FALSE
,4);
244 test_items_ok(test2d
,11,&Control
,&State
,2,t2d4
,FALSE
,4);
245 test_items_ok(test3
,41,&Control
,&State
,1,t32
,FALSE
,0);
246 test_items_ok(test4
,12,&Control
,&State
,3,t43
,FALSE
,4);
247 test_items_ok(test5
,38,&Control
,&State
,1,t51
,FALSE
,0);
248 test_items_ok(test6
,5,&Control
,&State
,1,t63
,FALSE
,2);
249 test_items_ok(test7
,29,&Control
,&State
,3,t73
,FALSE
,0);
250 test_items_ok(test8
,4,&Control
,&State
,1,t81
,FALSE
,0);
251 test_items_ok(test9
,5,&Control
,&State
,1,t93
,FALSE
,2);
252 test_items_ok(test10
,4,&Control
,&State
,1,t101
,FALSE
,0);
256 static void test_ScriptShape(HDC hdc
)
258 static const WCHAR test1
[] = {'w', 'i', 'n', 'e',0};
259 static const WCHAR test2
[] = {0x202B, 'i', 'n', 0x202C,0};
261 SCRIPT_CACHE sc
= NULL
;
262 WORD glyphs
[4], glyphs2
[4], logclust
[4];
263 SCRIPT_VISATTR attrs
[4];
264 SCRIPT_ITEM items
[2];
267 hr
= ScriptItemize(test1
, 4, 2, NULL
, NULL
, items
, NULL
);
268 ok(!hr
, "ScriptItemize should return S_OK not %08x\n", hr
);
269 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
271 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, NULL
, NULL
, &nb
);
272 ok(hr
== E_INVALIDARG
, "ScriptShape should return E_INVALIDARG not %08x\n", hr
);
274 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, NULL
, attrs
, NULL
);
275 ok(hr
== E_INVALIDARG
, "ScriptShape should return E_INVALIDARG not %08x\n", hr
);
277 hr
= ScriptShape(NULL
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, NULL
, attrs
, &nb
);
278 ok(hr
== E_PENDING
, "ScriptShape should return E_PENDING not %08x\n", hr
);
280 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, NULL
, attrs
, &nb
);
281 ok(broken(hr
== S_OK
) ||
282 hr
== E_INVALIDARG
|| /* Vista, W2K8 */
283 hr
== E_FAIL
, /* WIN7 */
284 "ScriptShape should return E_FAIL or E_INVALIDARG, not %08x\n", hr
);
285 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
287 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, logclust
, attrs
, &nb
);
288 ok(!hr
, "ScriptShape should return S_OK not %08x\n", hr
);
289 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
292 memset(glyphs
,-1,sizeof(glyphs
));
293 memset(logclust
,-1,sizeof(logclust
));
294 memset(attrs
,-1,sizeof(attrs
));
295 hr
= ScriptShape(NULL
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, logclust
, attrs
, &nb
);
296 ok(!hr
, "ScriptShape should return S_OK not %08x\n", hr
);
297 ok(nb
== 4, "Wrong number of items\n");
298 ok(logclust
[0] == 0, "clusters out of order\n");
299 ok(logclust
[1] == 1, "clusters out of order\n");
300 ok(logclust
[2] == 2, "clusters out of order\n");
301 ok(logclust
[3] == 3, "clusters out of order\n");
302 ok(attrs
[0].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
303 ok(attrs
[1].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
304 ok(attrs
[2].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
305 ok(attrs
[3].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
306 ok(attrs
[0].fClusterStart
== 1, "fClusterStart incorrect\n");
307 ok(attrs
[1].fClusterStart
== 1, "fClusterStart incorrect\n");
308 ok(attrs
[2].fClusterStart
== 1, "fClusterStart incorrect\n");
309 ok(attrs
[3].fClusterStart
== 1, "fClusterStart incorrect\n");
310 ok(attrs
[0].fDiacritic
== 0, "fDiacritic incorrect\n");
311 ok(attrs
[1].fDiacritic
== 0, "fDiacritic incorrect\n");
312 ok(attrs
[2].fDiacritic
== 0, "fDiacritic incorrect\n");
313 ok(attrs
[3].fDiacritic
== 0, "fDiacritic incorrect\n");
314 ok(attrs
[0].fZeroWidth
== 0, "fZeroWidth incorrect\n");
315 ok(attrs
[1].fZeroWidth
== 0, "fZeroWidth incorrect\n");
316 ok(attrs
[2].fZeroWidth
== 0, "fZeroWidth incorrect\n");
317 ok(attrs
[3].fZeroWidth
== 0, "fZeroWidth incorrect\n");
319 ScriptFreeCache(&sc
);
322 memset(glyphs2
,-1,sizeof(glyphs2
));
323 memset(logclust
,-1,sizeof(logclust
));
324 memset(attrs
,-1,sizeof(attrs
));
325 hr
= ScriptShape(hdc
, &sc
, test2
, 4, 4, &items
[0].a
, glyphs2
, logclust
, attrs
, &nb
);
326 ok(hr
== S_OK
, "ScriptShape should return S_OK not %08x\n", hr
);
327 ok(nb
== 4, "Wrong number of items\n");
328 ok(glyphs2
[0] == 0 || broken(glyphs2
[0] == 0x80), "Incorrect glyph for 0x202B\n");
329 ok(glyphs2
[3] == 0 || broken(glyphs2
[3] == 0x80), "Incorrect glyph for 0x202C\n");
330 ok(logclust
[0] == 0, "clusters out of order\n");
331 ok(logclust
[1] == 1, "clusters out of order\n");
332 ok(logclust
[2] == 2, "clusters out of order\n");
333 ok(logclust
[3] == 3, "clusters out of order\n");
334 ok(attrs
[0].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
335 ok(attrs
[1].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
336 ok(attrs
[2].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
337 ok(attrs
[3].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
338 ok(attrs
[0].fClusterStart
== 1, "fClusterStart incorrect\n");
339 ok(attrs
[1].fClusterStart
== 1, "fClusterStart incorrect\n");
340 ok(attrs
[2].fClusterStart
== 1, "fClusterStart incorrect\n");
341 ok(attrs
[3].fClusterStart
== 1, "fClusterStart incorrect\n");
342 ok(attrs
[0].fDiacritic
== 0, "fDiacritic incorrect\n");
343 ok(attrs
[1].fDiacritic
== 0, "fDiacritic incorrect\n");
344 ok(attrs
[2].fDiacritic
== 0, "fDiacritic incorrect\n");
345 ok(attrs
[3].fDiacritic
== 0, "fDiacritic incorrect\n");
346 ok(attrs
[0].fZeroWidth
== 0, "fZeroWidth incorrect\n");
347 ok(attrs
[1].fZeroWidth
== 0, "fZeroWidth incorrect\n");
348 ok(attrs
[2].fZeroWidth
== 0, "fZeroWidth incorrect\n");
349 ok(attrs
[3].fZeroWidth
== 0, "fZeroWidth incorrect\n");
351 /* modify LTR to RTL */
353 memset(glyphs2
,-1,sizeof(glyphs2
));
354 memset(logclust
,-1,sizeof(logclust
));
355 memset(attrs
,-1,sizeof(attrs
));
356 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs2
, logclust
, attrs
, &nb
);
357 ok(!hr
, "ScriptShape should return S_OK not %08x\n", hr
);
358 ok(nb
== 4, "Wrong number of items\n");
359 ok(glyphs2
[0] == glyphs
[3], "Glyphs not reordered properly\n");
360 ok(glyphs2
[1] == glyphs
[2], "Glyphs not reordered properly\n");
361 ok(glyphs2
[2] == glyphs
[1], "Glyphs not reordered properly\n");
362 ok(glyphs2
[3] == glyphs
[0], "Glyphs not reordered properly\n");
363 ok(logclust
[0] == 3, "clusters out of order\n");
364 ok(logclust
[1] == 2, "clusters out of order\n");
365 ok(logclust
[2] == 1, "clusters out of order\n");
366 ok(logclust
[3] == 0, "clusters out of order\n");
367 ok(attrs
[0].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
368 ok(attrs
[1].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
369 ok(attrs
[2].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
370 ok(attrs
[3].uJustification
== SCRIPT_JUSTIFY_CHARACTER
, "uJustification incorrect\n");
371 ok(attrs
[0].fClusterStart
== 1, "fClusterStart incorrect\n");
372 ok(attrs
[1].fClusterStart
== 1, "fClusterStart incorrect\n");
373 ok(attrs
[2].fClusterStart
== 1, "fClusterStart incorrect\n");
374 ok(attrs
[3].fClusterStart
== 1, "fClusterStart incorrect\n");
375 ok(attrs
[0].fDiacritic
== 0, "fDiacritic incorrect\n");
376 ok(attrs
[1].fDiacritic
== 0, "fDiacritic incorrect\n");
377 ok(attrs
[2].fDiacritic
== 0, "fDiacritic incorrect\n");
378 ok(attrs
[3].fDiacritic
== 0, "fDiacritic incorrect\n");
379 ok(attrs
[0].fZeroWidth
== 0, "fZeroWidth incorrect\n");
380 ok(attrs
[1].fZeroWidth
== 0, "fZeroWidth incorrect\n");
381 ok(attrs
[2].fZeroWidth
== 0, "fZeroWidth incorrect\n");
382 ok(attrs
[3].fZeroWidth
== 0, "fZeroWidth incorrect\n");
384 ScriptFreeCache(&sc
);
387 static void test_ScriptPlace(HDC hdc
)
389 static const WCHAR test1
[] = {'t', 'e', 's', 't',0};
392 SCRIPT_CACHE sc
= NULL
;
393 WORD glyphs
[4], logclust
[4];
394 SCRIPT_VISATTR attrs
[4];
395 SCRIPT_ITEM items
[2];
400 hr
= ScriptItemize(test1
, 4, 2, NULL
, NULL
, items
, NULL
);
401 ok(!hr
, "ScriptItemize should return S_OK not %08x\n", hr
);
402 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
404 hr
= ScriptShape(hdc
, &sc
, test1
, 4, 4, &items
[0].a
, glyphs
, logclust
, attrs
, &nb
);
405 ok(!hr
, "ScriptShape should return S_OK not %08x\n", hr
);
406 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
408 hr
= ScriptPlace(hdc
, &sc
, glyphs
, 4, NULL
, &items
[0].a
, widths
, NULL
, NULL
);
409 ok(hr
== E_INVALIDARG
, "ScriptPlace should return E_INVALIDARG not %08x\n", hr
);
411 hr
= ScriptPlace(NULL
, &sc
, glyphs
, 4, attrs
, &items
[0].a
, widths
, NULL
, NULL
);
412 ok(broken(hr
== E_PENDING
) ||
413 hr
== E_INVALIDARG
|| /* Vista, W2K8 */
414 hr
== E_FAIL
, /* WIN7 */
415 "ScriptPlace should return E_FAIL or E_INVALIDARG, not %08x\n", hr
);
417 hr
= ScriptPlace(NULL
, &sc
, glyphs
, 4, attrs
, &items
[0].a
, widths
, offset
, NULL
);
418 ok(hr
== E_PENDING
, "ScriptPlace should return E_PENDING not %08x\n", hr
);
420 hr
= ScriptPlace(NULL
, &sc
, glyphs
, 4, attrs
, &items
[0].a
, widths
, NULL
, abc
);
421 ok(broken(hr
== E_PENDING
) ||
422 hr
== E_INVALIDARG
|| /* Vista, W2K8 */
423 hr
== E_FAIL
, /* WIN7 */
424 "ScriptPlace should return E_FAIL or E_INVALIDARG, not %08x\n", hr
);
426 hr
= ScriptPlace(hdc
, &sc
, glyphs
, 4, attrs
, &items
[0].a
, widths
, offset
, NULL
);
427 ok(!hr
, "ScriptPlace should return S_OK not %08x\n", hr
);
428 ok(items
[0].a
.fNoGlyphIndex
== FALSE
, "fNoGlyphIndex TRUE\n");
430 ret
= ExtTextOutW(hdc
, 1, 1, 0, NULL
, glyphs
, 4, widths
);
431 ok(ret
, "ExtTextOutW should return TRUE\n");
433 ScriptFreeCache(&sc
);
436 static void test_ScriptItemIzeShapePlace(HDC hdc
, unsigned short pwOutGlyphs
[256])
440 const SCRIPT_PROPERTIES
**ppSp
;
444 SCRIPT_ITEM pItem
[255];
446 WCHAR TestItem1
[] = {'T', 'e', 's', 't', 'a', 0};
447 WCHAR TestItem2
[] = {'T', 'e', 's', 't', 'b', 0};
448 WCHAR TestItem3
[] = {'T', 'e', 's', 't', 'c',' ','1','2','3',' ',' ','e','n','d',0};
449 WCHAR TestItem4
[] = {'T', 'e', 's', 't', 'd',' ',0x0684,0x0694,0x06a4,' ',' ','\r','\n','e','n','d',0};
450 WCHAR TestItem5
[] = {0x0684,'T','e','s','t','e',' ',0x0684,0x0694,0x06a4,' ',' ','e','n','d',0};
451 WCHAR TestItem6
[] = {'T', 'e', 's', 't', 'f',' ',' ',' ','\r','\n','e','n','d',0};
456 unsigned short pwOutGlyphs1
[256];
457 unsigned short pwOutGlyphs2
[256];
458 unsigned short pwLogClust
[256];
459 SCRIPT_VISATTR psva
[256];
462 GOFFSET pGoffset
[256];
466 /* Start testing usp10 functions */
467 /* This test determines that the pointer returned by ScriptGetProperties is valid
468 * by checking a known value in the table */
469 hr
= ScriptGetProperties(&ppSp
, &iMaxProps
);
470 ok(hr
== S_OK
, "ScriptGetProperties failed: 0x%08x\n", hr
);
471 trace("number of script properties %d\n", iMaxProps
);
472 ok (iMaxProps
> 0, "Number of scripts returned should not be 0\n");
474 ok( ppSp
[0]->langid
== 0, "Langid[0] not = to 0\n"); /* Check a known value to ensure */
477 /* This is a valid test that will cause parsing to take place */
480 hr
= ScriptItemize(TestItem1
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
481 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
482 /* This test is for the interim operation of ScriptItemize where only one SCRIPT_ITEM is *
484 ok (pcItems
> 0, "The number of SCRIPT_ITEMS should be greater than 0\n");
486 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== cInChars
,
487 "Start pos not = 0 (%d) or end pos not = %d (%d)\n",
488 pItem
[0].iCharPos
, cInChars
, pItem
[1].iCharPos
);
490 /* It would appear that we have a valid SCRIPT_ANALYSIS and can continue
491 * ie. ScriptItemize has succeeded and that pItem has been set */
494 psc
= NULL
; /* must be null on first call */
496 cMaxGlyphs
= cInChars
;
497 hr
= ScriptShape(NULL
, &psc
, TestItem1
, cChars
,
498 cMaxGlyphs
, &pItem
[0].a
,
499 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
500 ok (hr
== E_PENDING
, "If psc is NULL (%08x) the E_PENDING should be returned\n", hr
);
502 hr
= ScriptShape(hdc
, &psc
, TestItem1
, cChars
,
503 cMaxGlyphs
, &pItem
[0].a
,
504 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
505 ok (hr
== E_OUTOFMEMORY
, "If not enough output area cChars (%d) is > than CMaxGlyphs "
506 "(%d) but not E_OUTOFMEMORY\n",
509 hr
= ScriptShape(hdc
, &psc
, TestItem1
, cChars
,
510 cMaxGlyphs
, &pItem
[0].a
,
511 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
512 ok (hr
== 0, "ScriptShape should return 0 not (%08x)\n", hr
);
513 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
514 ok (pcGlyphs
== cChars
, "Chars in (%d) should equal Glyphs out (%d)\n", cChars
, pcGlyphs
);
516 hr
= ScriptPlace(hdc
, &psc
, pwOutGlyphs1
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
518 ok (hr
== 0, "ScriptPlace should return 0 not (%08x)\n", hr
);
519 hr
= ScriptPlace(NULL
, &psc
, pwOutGlyphs1
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
521 ok (hr
== 0, "ScriptPlace should return 0 not (%08x)\n", hr
);
522 for (cnt
=0; cnt
< pcGlyphs
; cnt
++)
523 pwOutGlyphs
[cnt
] = pwOutGlyphs1
[cnt
]; /* Send to next function */
526 /* This test will check to make sure that SCRIPT_CACHE is reused and that not translation *
527 * takes place if fNoGlyphIndex is set. */
531 hr
= ScriptItemize(TestItem2
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
532 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
533 /* This test is for the interim operation of ScriptItemize where only one SCRIPT_ITEM is *
535 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== cInChars
,
536 "Start pos not = 0 (%d) or end pos not = %d (%d)\n",
537 pItem
[0].iCharPos
, cInChars
, pItem
[1].iCharPos
);
538 /* It would appear that we have a valid SCRIPT_ANALYSIS and can continue */
542 pItem
[0].a
.fNoGlyphIndex
= 1; /* say no translate */
543 hr
= ScriptShape(NULL
, &psc
, TestItem2
, cChars
,
544 cMaxGlyphs
, &pItem
[0].a
,
545 pwOutGlyphs2
, pwLogClust
, psva
, &pcGlyphs
);
546 ok (hr
!= E_PENDING
, "If psc should not be NULL (%08x) and the E_PENDING should be returned\n", hr
);
547 ok (hr
== 0, "ScriptShape should return 0 not (%08x)\n", hr
);
548 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
549 ok (pcGlyphs
== cChars
, "Chars in (%d) should equal Glyphs out (%d)\n", cChars
, pcGlyphs
);
550 for (cnt
=0; cnt
< cChars
&& TestItem2
[cnt
] == pwOutGlyphs2
[cnt
]; cnt
++) {}
551 ok (cnt
== cChars
, "Translation to place when told not to. WCHAR %d - %04x != %04x\n",
552 cnt
, TestItem2
[cnt
], pwOutGlyphs2
[cnt
]);
554 hr
= ScriptPlace(hdc
, &psc
, pwOutGlyphs2
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
556 ok (hr
== 0, "ScriptPlace should return 0 not (%08x)\n", hr
);
559 ScriptFreeCache( &psc
);
560 ok (!psc
, "psc is not null after ScriptFreeCache\n");
564 /* This is a valid test that will cause parsing to take place and create 3 script_items */
565 cInChars
= (sizeof(TestItem3
)/2)-1;
567 hr
= ScriptItemize(TestItem3
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
568 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
571 ok (pcItems
== 3, "The number of SCRIPT_ITEMS should be 3 not %d\n", pcItems
);
574 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== 6,
575 "Start pos [0] not = 0 (%d) or end pos [1] not = %d\n",
576 pItem
[0].iCharPos
, pItem
[1].iCharPos
);
577 ok (pItem
[1].iCharPos
== 6 && pItem
[2].iCharPos
== 11,
578 "Start pos [1] not = 6 (%d) or end pos [2] not = 11 (%d)\n",
579 pItem
[1].iCharPos
, pItem
[2].iCharPos
);
580 ok (pItem
[2].iCharPos
== 11 && pItem
[3].iCharPos
== cInChars
,
581 "Start pos [2] not = 11 (%d) or end [3] pos not = 14 (%d), cInChars = %d\n",
582 pItem
[2].iCharPos
, pItem
[3].iCharPos
, cInChars
);
586 /* This is a valid test that will cause parsing to take place and create 5 script_items */
587 cInChars
= (sizeof(TestItem4
)/2)-1;
589 hr
= ScriptItemize(TestItem4
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
590 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
593 ok (pcItems
== 5, "The number of SCRIPT_ITEMS should be 5 not %d\n", pcItems
);
596 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== 6,
597 "Start pos [0] not = 0 (%d) or end pos [1] not = %d\n",
598 pItem
[0].iCharPos
, pItem
[1].iCharPos
);
599 ok (pItem
[0].a
.s
.uBidiLevel
== 0, "Should have been bidi=0 not %d\n",
600 pItem
[0].a
.s
.uBidiLevel
);
601 ok (pItem
[1].iCharPos
== 6 && pItem
[2].iCharPos
== 11,
602 "Start pos [1] not = 6 (%d) or end pos [2] not = 11 (%d)\n",
603 pItem
[1].iCharPos
, pItem
[2].iCharPos
);
604 ok (pItem
[1].a
.s
.uBidiLevel
== 1, "Should have been bidi=1 not %d\n",
605 pItem
[1].a
.s
.uBidiLevel
);
606 ok (pItem
[2].iCharPos
== 11 && pItem
[3].iCharPos
== 12,
607 "Start pos [2] not = 11 (%d) or end [3] pos not = 12 (%d)\n",
608 pItem
[2].iCharPos
, pItem
[3].iCharPos
);
609 ok (pItem
[2].a
.s
.uBidiLevel
== 0, "Should have been bidi=0 not %d\n",
610 pItem
[2].a
.s
.uBidiLevel
);
611 ok (pItem
[3].iCharPos
== 12 && pItem
[4].iCharPos
== 13,
612 "Start pos [3] not = 12 (%d) or end [4] pos not = 13 (%d)\n",
613 pItem
[3].iCharPos
, pItem
[4].iCharPos
);
614 ok (pItem
[3].a
.s
.uBidiLevel
== 0, "Should have been bidi=0 not %d\n",
615 pItem
[3].a
.s
.uBidiLevel
);
616 ok (pItem
[4].iCharPos
== 13 && pItem
[5].iCharPos
== cInChars
,
617 "Start pos [4] not = 13 (%d) or end [5] pos not = 16 (%d), cInChars = %d\n",
618 pItem
[4].iCharPos
, pItem
[5].iCharPos
, cInChars
);
623 * This test is for when the first unicode character requires bidi support
625 cInChars
= (sizeof(TestItem5
)-1)/sizeof(WCHAR
);
626 hr
= ScriptItemize(TestItem5
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
627 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
628 ok (pcItems
== 4, "There should have been 4 items, found %d\n", pcItems
);
629 ok (pItem
[0].a
.s
.uBidiLevel
== 1, "The first character should have been bidi=1 not %d\n",
630 pItem
[0].a
.s
.uBidiLevel
);
632 /* This test checks to make sure that the test to see if there are sufficient buffers to store *
633 * the pointer to the last char works. Note that windows often needs a greater number of *
634 * SCRIPT_ITEMS to process a string than is returned in pcItems. */
635 cInChars
= (sizeof(TestItem6
)/2)-1;
637 hr
= ScriptItemize(TestItem6
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
638 ok (hr
== E_OUTOFMEMORY
, "ScriptItemize should return E_OUTOFMEMORY, returned %08x\n", hr
);
642 static void test_ScriptGetCMap(HDC hdc
, unsigned short pwOutGlyphs
[256])
645 SCRIPT_CACHE psc
= NULL
;
648 unsigned short pwOutGlyphs2
[256];
649 unsigned short pwOutGlyphs3
[256];
653 static const WCHAR TestItem1
[] = {'T', 'e', 's', 't', 'a', 0};
654 static const WCHAR TestItem2
[] = {0x202B, 'i', 'n', 0x202C,0};
655 static const WCHAR TestItem3
[] = {'a','b','c','d','(','<','{','[',0x2039,0};
656 static const WCHAR TestItem3b
[] = {'a','b','c','d',')','>','}',']',0x203A,0};
658 /* Check to make sure that SCRIPT_CACHE gets allocated ok */
660 cInChars
= cChars
= 5;
661 /* Some sanity checks for ScriptGetCMap */
663 hr
= ScriptGetCMap(NULL
, NULL
, NULL
, 0, 0, NULL
);
664 ok( hr
== E_INVALIDARG
, "(NULL,NULL,NULL,0,0,NULL), "
665 "expected E_INVALIDARG, got %08x\n", hr
);
667 hr
= ScriptGetCMap(NULL
, NULL
, TestItem1
, cInChars
, dwFlags
, pwOutGlyphs3
);
668 ok( hr
== E_INVALIDARG
, "(NULL,NULL,TestItem1, cInChars, dwFlags, pwOutGlyphs3), "
669 "expected E_INVALIDARG, got %08x\n", hr
);
671 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
673 hr
= ScriptGetCMap(NULL
, &psc
, TestItem1
, cInChars
, 0, pwOutGlyphs3
);
674 ok( hr
== E_PENDING
, "(NULL,&psc,NULL,0,0,NULL), expected E_PENDING, "
676 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
678 /* Set psc to NULL but add hdc, to be able to check if a pointer is returned in psc */
680 hr
= ScriptGetCMap(hdc
, &psc
, TestItem1
, cInChars
, 0, pwOutGlyphs3
);
681 ok( hr
== S_OK
, "ScriptGetCMap(NULL,&psc,NULL,0,0,NULL), expected S_OK, "
683 ok( psc
!= NULL
, "ScritpGetCMap expected psc to be not NULL\n");
684 ScriptFreeCache( &psc
);
686 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
688 hr
= ScriptGetCMap(NULL
, &psc
, TestItem1
, cInChars
, dwFlags
, pwOutGlyphs3
);
689 ok( hr
== E_PENDING
, "(NULL,&psc,), expected E_PENDING, got %08x\n", hr
);
690 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
691 /* Check to see if the results are the same as those returned by ScriptShape */
692 hr
= ScriptGetCMap(hdc
, &psc
, TestItem1
, cInChars
, dwFlags
, pwOutGlyphs3
);
693 ok (hr
== 0, "ScriptGetCMap should return 0 not (%08x)\n", hr
);
694 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
695 for (cnt
=0; cnt
< cChars
&& pwOutGlyphs
[cnt
] == pwOutGlyphs3
[cnt
]; cnt
++) {}
696 ok (cnt
== cInChars
, "Translation not correct. WCHAR %d - %04x != %04x\n",
697 cnt
, pwOutGlyphs
[cnt
], pwOutGlyphs3
[cnt
]);
699 ScriptFreeCache( &psc
);
700 ok (!psc
, "psc is not null after ScriptFreeCache\n");
702 cInChars
= cChars
= 4;
703 hr
= ScriptGetCMap(hdc
, &psc
, TestItem2
, cInChars
, dwFlags
, pwOutGlyphs3
);
704 ok (hr
== S_FALSE
, "ScriptGetCMap should return S_FALSE not (%08x)\n", hr
);
705 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
706 ok(pwOutGlyphs3
[0] == 0 || broken(pwOutGlyphs3
[0] == 0x80), "Glyph 0 should be default glyph\n");
707 ok(pwOutGlyphs3
[3] == 0 || broken(pwOutGlyphs3
[0] == 0x80), "Glyph 0 should be default glyph\n");
710 cInChars
= cChars
= 9;
711 hr
= ScriptGetCMap(hdc
, &psc
, TestItem3b
, cInChars
, dwFlags
, pwOutGlyphs2
);
712 ok (hr
== S_OK
, "ScriptGetCMap should return S_OK not (%08x)\n", hr
);
713 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
715 cInChars
= cChars
= 9;
717 hr
= ScriptGetCMap(hdc
, &psc
, TestItem3
, cInChars
, dwFlags
, pwOutGlyphs3
);
718 ok (hr
== S_OK
, "ScriptGetCMap should return S_OK not (%08x)\n", hr
);
719 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
720 ok(pwOutGlyphs3
[0] == pwOutGlyphs2
[0], "glyph incorrectly altered\n");
721 ok(pwOutGlyphs3
[1] == pwOutGlyphs2
[1], "glyph incorreclty altered\n");
722 ok(pwOutGlyphs3
[2] == pwOutGlyphs2
[2], "glyph incorreclty altered\n");
723 ok(pwOutGlyphs3
[3] == pwOutGlyphs2
[3], "glyph incorreclty altered\n");
724 ok(pwOutGlyphs3
[4] == pwOutGlyphs2
[4], "glyph not mirrored correctly\n");
725 ok(pwOutGlyphs3
[5] == pwOutGlyphs2
[5], "glyph not mirrored correctly\n");
726 ok(pwOutGlyphs3
[6] == pwOutGlyphs2
[6], "glyph not mirrored correctly\n");
727 ok(pwOutGlyphs3
[7] == pwOutGlyphs2
[7], "glyph not mirrored correctly\n");
728 ok(pwOutGlyphs3
[8] == pwOutGlyphs2
[8], "glyph not mirrored correctly\n");
730 ScriptFreeCache( &psc
);
731 ok (!psc
, "psc is not null after ScriptFreeCache\n");
734 static void test_ScriptGetFontProperties(HDC hdc
)
737 SCRIPT_CACHE psc
,old_psc
;
738 SCRIPT_FONTPROPERTIES sfp
;
740 /* Some sanity checks for ScriptGetFontProperties */
742 hr
= ScriptGetFontProperties(NULL
,NULL
,NULL
);
743 ok( hr
== E_INVALIDARG
, "(NULL,NULL,NULL), expected E_INVALIDARG, got %08x\n", hr
);
745 hr
= ScriptGetFontProperties(NULL
,NULL
,&sfp
);
746 ok( hr
== E_INVALIDARG
, "(NULL,NULL,&sfp), expected E_INVALIDARG, got %08x\n", hr
);
748 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
750 hr
= ScriptGetFontProperties(NULL
,&psc
,NULL
);
751 ok( hr
== E_INVALIDARG
, "(NULL,&psc,NULL), expected E_INVALIDARG, got %08x\n", hr
);
752 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
754 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
756 hr
= ScriptGetFontProperties(NULL
,&psc
,&sfp
);
757 ok( hr
== E_PENDING
, "(NULL,&psc,&sfp), expected E_PENDING, got %08x\n", hr
);
758 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
760 hr
= ScriptGetFontProperties(hdc
,NULL
,NULL
);
761 ok( hr
== E_INVALIDARG
, "(hdc,NULL,NULL), expected E_INVALIDARG, got %08x\n", hr
);
763 hr
= ScriptGetFontProperties(hdc
,NULL
,&sfp
);
764 ok( hr
== E_INVALIDARG
, "(hdc,NULL,&sfp), expected E_INVALIDARG, got %08x\n", hr
);
766 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
768 hr
= ScriptGetFontProperties(hdc
,&psc
,NULL
);
769 ok( hr
== E_INVALIDARG
, "(hdc,&psc,NULL), expected E_INVALIDARG, got %08x\n", hr
);
770 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
772 /* Pass an invalid sfp */
774 sfp
.cBytes
= sizeof(SCRIPT_FONTPROPERTIES
) - 1;
775 hr
= ScriptGetFontProperties(hdc
,&psc
,&sfp
);
776 ok( hr
== E_INVALIDARG
, "(hdc,&psc,&sfp) invalid, expected E_INVALIDARG, got %08x\n", hr
);
777 ok( psc
!= NULL
, "Expected a pointer in psc, got NULL\n");
778 ScriptFreeCache(&psc
);
779 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
781 /* Give it the correct cBytes, we don't care about what's coming back */
782 sfp
.cBytes
= sizeof(SCRIPT_FONTPROPERTIES
);
784 hr
= ScriptGetFontProperties(hdc
,&psc
,&sfp
);
785 ok( hr
== S_OK
, "(hdc,&psc,&sfp) partly initialized, expected S_OK, got %08x\n", hr
);
786 ok( psc
!= NULL
, "Expected a pointer in psc, got NULL\n");
788 /* Save the psc pointer */
790 /* Now a NULL hdc again */
791 hr
= ScriptGetFontProperties(NULL
,&psc
,&sfp
);
792 ok( hr
== S_OK
, "(NULL,&psc,&sfp), expected S_OK, got %08x\n", hr
);
793 ok( psc
== old_psc
, "Expected psc not to be changed, was %p is now %p\n", old_psc
, psc
);
794 ScriptFreeCache(&psc
);
795 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
798 static void test_ScriptTextOut(HDC hdc
)
804 SCRIPT_ITEM pItem
[255];
806 WCHAR TestItem1
[] = {'T', 'e', 's', 't', 'a', 0};
811 unsigned short pwOutGlyphs1
[256];
812 WORD pwLogClust
[256];
813 SCRIPT_VISATTR psva
[256];
816 GOFFSET pGoffset
[256];
821 BOOL fTrailing
= FALSE
;
822 SCRIPT_LOGATTR
*psla
;
823 SCRIPT_LOGATTR sla
[256];
825 /* This is a valid test that will cause parsing to take place */
828 hr
= ScriptItemize(TestItem1
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
829 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
830 /* This test is for the interim operation of ScriptItemize where only one SCRIPT_ITEM is *
832 ok (pcItems
> 0, "The number of SCRIPT_ITEMS should be greater than 0\n");
834 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== cInChars
,
835 "Start pos not = 0 (%d) or end pos not = %d (%d)\n",
836 pItem
[0].iCharPos
, cInChars
, pItem
[1].iCharPos
);
838 /* It would appear that we have a valid SCRIPT_ANALYSIS and can continue
839 * ie. ScriptItemize has succeeded and that pItem has been set */
842 psc
= NULL
; /* must be null on first call */
845 hr
= ScriptShape(hdc
, &psc
, TestItem1
, cChars
,
846 cMaxGlyphs
, &pItem
[0].a
,
847 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
848 ok (hr
== 0, "ScriptShape should return 0 not (%08x)\n", hr
);
849 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
850 ok (pcGlyphs
== cChars
, "Chars in (%d) should equal Glyphs out (%d)\n", cChars
, pcGlyphs
);
852 /* Note hdc is needed as glyph info is not yet in psc */
853 hr
= ScriptPlace(hdc
, &psc
, pwOutGlyphs1
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
855 ok (hr
== 0, "Should return 0 not (%08x)\n", hr
);
856 ScriptFreeCache(&psc
); /* Get rid of psc for next test set */
857 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
859 hr
= ScriptTextOut(NULL
, NULL
, 0, 0, 0, NULL
, NULL
, NULL
, 0, NULL
, 0, NULL
, NULL
, NULL
);
860 ok (hr
== E_INVALIDARG
, "Should return 0 not (%08x)\n", hr
);
862 hr
= ScriptTextOut(NULL
, NULL
, 0, 0, 0, NULL
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
863 piAdvance
, NULL
, pGoffset
);
864 ok( hr
== E_INVALIDARG
, "(NULL,NULL,TestItem1, cInChars, dwFlags, pwOutGlyphs3), "
865 "expected E_INVALIDARG, got %08x\n", hr
);
867 /* Set psc to NULL, to be able to check if a pointer is returned in psc */
869 hr
= ScriptTextOut(NULL
, &psc
, 0, 0, 0, NULL
, NULL
, NULL
, 0, NULL
, 0,
871 ok( hr
== E_INVALIDARG
, "(NULL,&psc,NULL,0,0,0,NULL,), expected E_INVALIDARG, "
873 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
875 /* hdc is required for this one rather than the usual optional */
877 hr
= ScriptTextOut(NULL
, &psc
, 0, 0, 0, NULL
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
878 piAdvance
, NULL
, pGoffset
);
879 ok( hr
== E_INVALIDARG
, "(NULL,&psc,), expected E_INVALIDARG, got %08x\n", hr
);
880 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
882 /* Set that it returns 0 status */
883 hr
= ScriptTextOut(hdc
, &psc
, 0, 0, 0, NULL
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
884 piAdvance
, NULL
, pGoffset
);
885 ok (hr
== 0, "ScriptTextOut should return 0 not (%08x)\n", hr
);
887 /* Test Rect Rgn is acceptable */
892 hr
= ScriptTextOut(hdc
, &psc
, 0, 0, 0, &rect
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
893 piAdvance
, NULL
, pGoffset
);
894 ok (hr
== 0, "ScriptTextOut should return 0 not (%08x)\n", hr
);
897 hr
= ScriptCPtoX(iCP
, fTrailing
, cChars
, pcGlyphs
, (const WORD
*) &pwLogClust
,
898 (const SCRIPT_VISATTR
*) &psva
, (const int *)&piAdvance
, &pItem
[0].a
, &piX
);
899 ok(hr
== S_OK
, "ScriptCPtoX Stub should return S_OK not %08x\n", hr
);
901 psla
= (SCRIPT_LOGATTR
*)&sla
;
902 hr
= ScriptBreak(TestItem1
, cChars
, &pItem
[0].a
, psla
);
903 ok(hr
== S_OK
, "ScriptBreak Stub should return S_OK not %08x\n", hr
);
905 /* Clean up and go */
906 ScriptFreeCache(&psc
);
907 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
912 static void test_ScriptTextOut2(HDC hdc
)
914 /* Intent is to validate that the HDC passed into ScriptTextOut is
915 * used instead of the (possibly) invalid cached one
922 SCRIPT_ITEM pItem
[255];
924 WCHAR TestItem1
[] = {'T', 'e', 's', 't', 'a', 0};
929 unsigned short pwOutGlyphs1
[256];
930 WORD pwLogClust
[256];
931 SCRIPT_VISATTR psva
[256];
934 GOFFSET pGoffset
[256];
937 /* Create an extra DC that will be used until the ScriptTextOut */
938 hdc1
= CreateCompatibleDC(hdc
);
939 ok (hdc1
!= 0, "CreateCompatibleDC failed to create a DC\n");
940 hdc2
= CreateCompatibleDC(hdc
);
941 ok (hdc2
!= 0, "CreateCompatibleDC failed to create a DC\n");
943 /* This is a valid test that will cause parsing to take place */
946 hr
= ScriptItemize(TestItem1
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
947 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
948 /* This test is for the interim operation of ScriptItemize where only one SCRIPT_ITEM is *
950 ok (pcItems
> 0, "The number of SCRIPT_ITEMS should be greater than 0\n");
952 ok (pItem
[0].iCharPos
== 0 && pItem
[1].iCharPos
== cInChars
,
953 "Start pos not = 0 (%d) or end pos not = %d (%d)\n",
954 pItem
[0].iCharPos
, cInChars
, pItem
[1].iCharPos
);
956 /* It would appear that we have a valid SCRIPT_ANALYSIS and can continue
957 * ie. ScriptItemize has succeeded and that pItem has been set */
960 psc
= NULL
; /* must be null on first call */
963 hr
= ScriptShape(hdc2
, &psc
, TestItem1
, cChars
,
964 cMaxGlyphs
, &pItem
[0].a
,
965 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
966 ok (hr
== 0, "ScriptShape should return 0 not (%08x)\n", hr
);
967 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
968 ok (pcGlyphs
== cChars
, "Chars in (%d) should equal Glyphs out (%d)\n", cChars
, pcGlyphs
);
970 /* Note hdc is needed as glyph info is not yet in psc */
971 hr
= ScriptPlace(hdc2
, &psc
, pwOutGlyphs1
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
973 ok (hr
== 0, "Should return 0 not (%08x)\n", hr
);
975 /* key part!!! cached dc is being deleted */
977 ok(hr
== 1, "DeleteDC should return 1 not %08x\n", hr
);
979 /* At this point the cached hdc (hdc2) has been destroyed,
980 * however, we are passing in a *real* hdc (the original hdc).
981 * The text should be written to that DC
983 hr
= ScriptTextOut(hdc1
, &psc
, 0, 0, 0, NULL
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
984 piAdvance
, NULL
, pGoffset
);
985 ok (hr
== 0, "ScriptTextOut should return 0 not (%08x)\n", hr
);
986 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
990 /* Clean up and go */
991 ScriptFreeCache(&psc
);
992 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
997 static void test_ScriptTextOut3(HDC hdc
)
1003 SCRIPT_ITEM pItem
[255];
1005 WCHAR TestItem1
[] = {' ','\r', 0};
1010 unsigned short pwOutGlyphs1
[256];
1011 WORD pwLogClust
[256];
1012 SCRIPT_VISATTR psva
[256];
1015 GOFFSET pGoffset
[256];
1019 /* This is to ensure that non exisiting glyphs are translated into a valid glyph number */
1022 hr
= ScriptItemize(TestItem1
, cInChars
, cMaxItems
, NULL
, NULL
, pItem
, &pcItems
);
1023 ok (hr
== 0, "ScriptItemize should return 0, returned %08x\n", hr
);
1024 /* This test is for the interim operation of ScriptItemize where only one SCRIPT_ITEM is *
1026 ok (pcItems
> 0, "The number of SCRIPT_ITEMS should be greater than 0\n");
1028 ok (pItem
[0].iCharPos
== 0 && pItem
[2].iCharPos
== cInChars
,
1029 "Start pos not = 0 (%d) or end pos not = %d (%d)\n",
1030 pItem
[0].iCharPos
, cInChars
, pItem
[2].iCharPos
);
1032 /* It would appear that we have a valid SCRIPT_ANALYSIS and can continue
1033 * ie. ScriptItemize has succeeded and that pItem has been set */
1036 psc
= NULL
; /* must be null on first call */
1039 hr
= ScriptShape(hdc
, &psc
, TestItem1
, cChars
,
1040 cMaxGlyphs
, &pItem
[0].a
,
1041 pwOutGlyphs1
, pwLogClust
, psva
, &pcGlyphs
);
1042 ok (hr
== 0, "ScriptShape should return 0 not (%08x)\n", hr
);
1043 ok (psc
!= NULL
, "psc should not be null and have SCRIPT_CACHE buffer address\n");
1044 ok (pcGlyphs
== cChars
, "Chars in (%d) should equal Glyphs out (%d)\n", cChars
, pcGlyphs
);
1046 /* Note hdc is needed as glyph info is not yet in psc */
1047 hr
= ScriptPlace(hdc
, &psc
, pwOutGlyphs1
, pcGlyphs
, psva
, &pItem
[0].a
, piAdvance
,
1049 ok (hr
== 0, "Should return 0 not (%08x)\n", hr
);
1051 /* Test Rect Rgn is acceptable */
1056 hr
= ScriptTextOut(hdc
, &psc
, 0, 0, 0, &rect
, &pItem
[0].a
, NULL
, 0, pwOutGlyphs1
, pcGlyphs
,
1057 piAdvance
, NULL
, pGoffset
);
1058 ok (hr
== 0, "ScriptTextOut should return 0 not (%08x)\n", hr
);
1061 /* Clean up and go */
1062 ScriptFreeCache(&psc
);
1063 ok( psc
== NULL
, "Expected psc to be NULL, got %p\n", psc
);
1067 static void test_ScriptXtoX(void)
1068 /****************************************************************************************
1069 * This routine tests the ScriptXtoCP and ScriptCPtoX functions using static variables *
1070 ****************************************************************************************/
1072 static const WCHAR test
[] = {'t', 'e', 's', 't',0};
1073 SCRIPT_ITEM items
[2];
1077 WORD pwLogClust
[10] = {0, 0, 0, 1, 1, 2, 2, 3, 3, 3};
1078 WORD pwLogClust_RTL
[10] = {3, 3, 3, 2, 2, 1, 1, 0, 0, 0};
1079 SCRIPT_VISATTR psva
[10];
1080 int piAdvance
[10] = {200, 190, 210, 180, 170, 204, 189, 195, 212, 203};
1085 static const int offsets
[13] = {0, 66, 133, 200, 295, 390, 495, 600, 1051, 1502, 1953, 1953, 1953};
1086 static const int offsets_RTL
[13] = {780, 720, 660, 600, 495, 390, 295, 200, 133, 66, 0, 0, 0};
1088 hr
= ScriptItemize(test
, lstrlenW(test
), sizeof(items
)/sizeof(items
[0]), NULL
, NULL
, items
, NULL
);
1089 ok(!hr
, "ScriptItemize should return S_OK not %08x\n", hr
);
1094 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1095 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1097 ok(piCP
== -1, "Negative iX should return piCP=-1 not %d\n", piCP
);
1099 ok(piCP
== 10, "Negative iX should return piCP=10 not %d\n", piCP
);
1101 for(iCP
= 0; iCP
< 10; iCP
++)
1103 iX
= offsets
[iCP
]+1;
1106 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1107 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1108 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1109 ok(piTrailing
== 0, "iX=%d should return piTrailing=0 not %d\n", iX
, piTrailing
);
1112 for(iCP
= 0; iCP
< 10; iCP
++)
1114 iX
= offsets
[iCP
+1]-1;
1117 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1118 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1119 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1120 ok(piTrailing
== 1, "iX=%d should return piTrailing=1 not %d\n", iX
, piTrailing
);
1123 /* 0,1,2 are actaully fractional offsets meaning that they will not be reporting the same iCP as comes in so dont test those */
1124 for(iCP
= 3; iCP
< 10; iCP
++)
1129 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1130 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1131 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1132 ok(piTrailing
== 0, "iX=%d should return piTrailing=0 not %d\n", iX
, piTrailing
);
1135 items
[0].a
.fRTL
= TRUE
;
1140 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1141 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1143 ok(piCP
== -1, "Negative iX should return piCP=-1 not %d\n", piCP
);
1145 ok(piCP
== 10, "Negative iX should return piCP=10 not %d\n", piCP
);
1150 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1151 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1152 ok(piCP
== -1, "iX=%d should return piCP=-1 not %d\n", iX
, piCP
);
1153 ok(piTrailing
== 1, "iX=%d should return piTrailing=1 not %d\n", iX
, piTrailing
);
1155 for(iCP
= 0; iCP
< 10; iCP
++)
1157 iX
= offsets_RTL
[iCP
]-1;
1160 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1161 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1162 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1163 ok(piTrailing
== 0, "iX=%d should return piTrailing=0 not %d\n", iX
, piTrailing
);
1166 for(iCP
= 0; iCP
< 10; iCP
++)
1168 iX
= offsets_RTL
[iCP
+1]+1;
1171 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1172 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1173 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1174 ok(piTrailing
== 1, "iX=%d should return piTrailing=1 not %d\n", iX
, piTrailing
);
1177 for(iCP
= 0; iCP
< 10; iCP
++)
1179 iX
= offsets_RTL
[iCP
];
1182 hr
= ScriptXtoCP(iX
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piCP
, &piTrailing
);
1183 ok(hr
== S_OK
, "ScriptXtoCP should return S_OK not %08x\n", hr
);
1184 ok(piCP
== iCP
, "iX=%d should return piCP=%d not %d\n", iX
, iCP
, piCP
);
1185 ok(piTrailing
== 0, "iX=%d should return piTrailing=0 not %d\n", iX
, piTrailing
);
1188 items
[0].a
.fRTL
= FALSE
;
1190 for(iCP
= 0; iCP
<= 11; iCP
++)
1195 hr
= ScriptCPtoX(iCP
, fTrailing
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piX
);
1196 ok(hr
== S_OK
, "ScriptCPtoX should return S_OK not %08x\n", hr
);
1197 ok(piX
== offsets
[iCP
],
1198 "iCP=%d should return piX=%d not %d\n", iCP
, offsets
[iCP
], piX
);
1201 for(iCP
= 0; iCP
<= 11; iCP
++)
1206 hr
= ScriptCPtoX(iCP
, fTrailing
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
, &items
[0].a
, &piX
);
1207 ok(hr
== S_OK
, "ScriptCPtoX should return S_OK not %08x\n", hr
);
1208 ok(piX
== offsets
[iCP
+1],
1209 "iCP=%d should return piX=%d not %d\n", iCP
, offsets
[iCP
+1], piX
);
1212 items
[0].a
.fRTL
= TRUE
;
1214 for(iCP
= 0; iCP
<= 11; iCP
++)
1219 hr
= ScriptCPtoX(iCP
, fTrailing
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piX
);
1220 ok(hr
== S_OK
, "ScriptCPtoX should return S_OK not %08x\n", hr
);
1221 ok(piX
== offsets_RTL
[iCP
],
1222 "iCP=%d should return piX=%d not %d\n", iCP
, offsets_RTL
[iCP
], piX
);
1225 for(iCP
= 0; iCP
<= 11; iCP
++)
1230 hr
= ScriptCPtoX(iCP
, fTrailing
, cChars
, cGlyphs
, pwLogClust_RTL
, psva
, piAdvance
, &items
[0].a
, &piX
);
1231 ok(hr
== S_OK
, "ScriptCPtoX should return S_OK not %08x\n", hr
);
1232 ok(piX
== offsets_RTL
[iCP
+1],
1233 "iCP=%d should return piX=%d not %d\n", iCP
, offsets_RTL
[iCP
+1], piX
);
1237 static void test_ScriptString(HDC hdc
)
1239 /*******************************************************************************************
1241 * This set of tests are for the string functions of uniscribe. The ScriptStringAnalyse
1242 * function allocates memory pointed to by the SCRIPT_STRING_ANALYSIS ssa pointer. This
1243 * memory if freed by ScriptStringFree. There needs to be a valid hdc for this as
1244 * ScriptStringAnalyse calls ScriptSItemize, ScriptShape and ScriptPlace which require it.
1249 WCHAR teststr
[] = {'T','e','s','t','1',' ','a','2','b','3', '\0'};
1250 int len
= (sizeof(teststr
) / sizeof(WCHAR
)) - 1;
1251 int Glyphs
= len
* 2 + 16;
1253 DWORD Flags
= SSA_GLYPHS
;
1255 const int Dx
[5] = {10, 10, 10, 10, 10};
1256 const BYTE InClass
= 0;
1257 SCRIPT_STRING_ANALYSIS ssa
= NULL
;
1262 const RECT rc
= {0, 50, 100, 100};
1265 BOOL Disabled
= FALSE
;
1266 const int *clip_len
;
1271 Charset
= -1; /* this flag indicates unicode input */
1272 /* Test without hdc to get E_PENDING */
1273 hr
= ScriptStringAnalyse( NULL
, teststr
, len
, Glyphs
, Charset
, Flags
,
1274 ReqWidth
, NULL
, NULL
, Dx
, NULL
,
1276 ok(hr
== E_PENDING
, "ScriptStringAnalyse Stub should return E_PENDING not %08x\n", hr
);
1278 /* test with hdc, this should be a valid test */
1279 hr
= ScriptStringAnalyse( hdc
, teststr
, len
, Glyphs
, Charset
, Flags
,
1280 ReqWidth
, NULL
, NULL
, Dx
, NULL
,
1282 ok(hr
== S_OK
, "ScriptStringAnalyse should return S_OK not %08x\n", hr
);
1283 ScriptStringFree(&ssa
);
1285 /* test makes sure that a call with a valid pssa still works */
1286 hr
= ScriptStringAnalyse( hdc
, teststr
, len
, Glyphs
, Charset
, Flags
,
1287 ReqWidth
, NULL
, NULL
, Dx
, NULL
,
1289 ok(hr
== S_OK
, "ScriptStringAnalyse should return S_OK not %08x\n", hr
);
1290 ok(ssa
!= NULL
, "ScriptStringAnalyse pssa should not be NULL\n");
1294 hr
= ScriptStringOut(ssa
, X
, Y
, Options
, &rc
, MinSel
, MaxSel
, Disabled
);
1295 ok(hr
== S_OK
, "ScriptStringOut should return S_OK not %08x\n", hr
);
1298 clip_len
= ScriptString_pcOutChars(ssa
);
1299 ok(*clip_len
== len
, "ScriptString_pcOutChars failed, got %d, expected %d\n", *clip_len
, len
);
1301 order
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, *clip_len
* sizeof(UINT
));
1302 hr
= ScriptStringGetOrder(ssa
, order
);
1303 ok(hr
== S_OK
, "ScriptStringGetOrder failed, got %08x, expected S_OK\n", hr
);
1305 for (i
= 0; i
< *clip_len
; i
++) ok(order
[i
] == i
, "%d: got %d expected %d\n", i
, order
[i
], i
);
1306 HeapFree(GetProcessHeap(), 0, order
);
1308 hr
= ScriptStringFree(&ssa
);
1309 ok(hr
== S_OK
, "ScriptStringFree should return S_OK not %08x\n", hr
);
1312 static void test_ScriptStringXtoCP_CPtoX(HDC hdc
)
1314 /*****************************************************************************************
1316 * This test is for the ScriptStringXtoCP and ScriptStringXtoCP functions. Due to the
1317 * nature of the fonts between Windows and Wine, the test is implemented by generating
1318 * values using one one function then checking the output of the second. In this way
1319 * the validity of the functions is established using Windows as a base and confirming
1320 * similar behaviour in wine.
1324 static const WCHAR teststr1
[] = {0x05e9, 'i', 0x05dc, 'n', 0x05d5, 'e', 0x05dd, '.',0};
1325 static const BOOL rtl
[] = {1, 0, 1, 0, 1, 0, 1, 0};
1326 void *String
= (WCHAR
*) &teststr1
; /* ScriptStringAnalysis needs void */
1327 int String_len
= (sizeof(teststr1
)/sizeof(WCHAR
))-1;
1328 int Glyphs
= String_len
* 2 + 16; /* size of buffer as recommended */
1329 int Charset
= -1; /* unicode */
1330 DWORD Flags
= SSA_GLYPHS
;
1332 const BYTE InClass
= 0;
1333 SCRIPT_STRING_ANALYSIS ssa
= NULL
;
1335 int Ch
; /* Character position in string */
1337 int Cp
; /* Character position in string */
1342 /* Test with hdc, this should be a valid test
1343 * Here we generate an SCRIPT_STRING_ANALYSIS that will be used as input to the
1344 * following character positions to X and X to character position functions.
1347 hr
= ScriptStringAnalyse( hdc
, String
, String_len
, Glyphs
, Charset
, Flags
,
1348 ReqWidth
, NULL
, NULL
, NULL
, NULL
,
1351 hr
== E_INVALIDARG
, /* NT */
1352 "ScriptStringAnalyse should return S_OK or E_INVALIDARG not %08x\n", hr
);
1356 ok(ssa
!= NULL
, "ScriptStringAnalyse ssa should not be NULL\n");
1359 * Loop to generate character positions to provide starting positions for the
1360 * ScriptStringCPtoX and ScriptStringXtoCP functions
1362 for (Cp
= 0; Cp
< String_len
; Cp
++)
1364 /* The fTrailing flag is used to indicate whether the X being returned is at
1365 * the beginning or the end of the character. What happens here is that if
1366 * fTrailing indicates the end of the character, ie. FALSE, then ScriptStringXtoCP
1367 * returns the beginning of the next character and iTrailing is FALSE. So for this
1368 * loop iTrailing will be FALSE in both cases.
1370 hr
= ScriptStringCPtoX(ssa
, Cp
, TRUE
, &trail
);
1371 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1372 hr
= ScriptStringCPtoX(ssa
, Cp
, FALSE
, &lead
);
1373 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1375 ok(lead
> trail
, "Leading values should be after trialing for rtl chracters(%i)\n",Cp
);
1377 ok(lead
< trail
, "Trailing values should be after leading for ltr chracters(%i)\n",Cp
);
1379 /* move by 1 pixel so that we are not inbetween 2 characters. That could result in being the lead of a rtl and
1380 at the same time the trail of an ltr */
1382 /* inside the leading edge */
1384 if (rtl
[Cp
]) X
--; else X
++;
1385 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1386 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1387 ok(Cp
== Ch
, "ScriptStringXtoCP should return Ch = %d not %d for X = %d\n", Cp
, Ch
, trail
);
1388 ok(iTrailing
== FALSE
, "ScriptStringXtoCP should return iTrailing = 0 not %d for X = %d\n",
1391 /* inside the trailing edge */
1393 if (rtl
[Cp
]) X
++; else X
--;
1394 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1395 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1396 ok(Cp
== Ch
, "ScriptStringXtoCP should return Ch = %d not %d for X = %d\n", Cp
, Ch
, trail
);
1397 ok(iTrailing
== TRUE
, "ScriptStringXtoCP should return iTrailing = 1 not %d for X = %d\n",
1400 /* outside the "trailing" edge */
1401 if (Cp
< String_len
-1)
1403 if (rtl
[Cp
]) X
= lead
; else X
= trail
;
1405 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1406 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1407 ok(Cp
+ 1 == Ch
, "ScriptStringXtoCP should return Ch = %d not %d for X = %d\n", Cp
+ 1, Ch
, trail
);
1409 ok(iTrailing
== TRUE
, "ScriptStringXtoCP should return iTrailing = 1 not %d for X = %d\n",
1412 ok(iTrailing
== FALSE
, "ScriptStringXtoCP should return iTrailing = 0 not %d for X = %d\n",
1416 /* outside the "leading" edge */
1419 if (rtl
[Cp
]) X
= trail
; else X
= lead
;
1421 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1422 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1423 ok(Cp
- 1 == Ch
, "ScriptStringXtoCP should return Ch = %d not %d for X = %d\n", Cp
- 1, Ch
, trail
);
1424 if (Cp
!= 0 && rtl
[Cp
-1])
1425 ok(iTrailing
== FALSE
, "ScriptStringXtoCP should return iTrailing = 0 not %d for X = %d\n",
1428 ok(iTrailing
== TRUE
, "ScriptStringXtoCP should return iTrailing = 1 not %d for X = %d\n",
1433 /* Check beyond the leading boundary of the whole string */
1436 /* having a leading rtl character seems to confuse usp */
1437 /* this looks to be a windows bug we should emulate */
1438 hr
= ScriptStringCPtoX(ssa
, 0, TRUE
, &X
);
1439 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1441 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1442 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1443 ok(Ch
== 1, "ScriptStringXtoCP should return Ch = 1 not %d for X outside leading edge when rtl\n", Ch
);
1444 ok(iTrailing
== FALSE
, "ScriptStringXtoCP should return iTrailing = 0 not %d for X = outside leading edge when rtl\n",
1449 hr
= ScriptStringCPtoX(ssa
, 0, FALSE
, &X
);
1450 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1452 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1453 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1454 ok(Ch
== -1, "ScriptStringXtoCP should return Ch = -1 not %d for X outside leading edge\n", Ch
);
1455 ok(iTrailing
== TRUE
, "ScriptStringXtoCP should return iTrailing = 1 not %d for X = outside leading edge\n",
1459 /* Check beyond the end boundary of the whole string */
1460 if (rtl
[String_len
-1])
1462 hr
= ScriptStringCPtoX(ssa
, String_len
-1, FALSE
, &X
);
1463 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1467 hr
= ScriptStringCPtoX(ssa
, String_len
-1, TRUE
, &X
);
1468 ok(hr
== S_OK
, "ScriptStringCPtoX should return S_OK not %08x\n", hr
);
1471 hr
= ScriptStringXtoCP(ssa
, X
, &Ch
, &iTrailing
);
1472 ok(hr
== S_OK
, "ScriptStringXtoCP should return S_OK not %08x\n", hr
);
1473 ok(Ch
== String_len
, "ScriptStringXtoCP should return Ch = %i not %d for X outside trailing edge\n", String_len
, Ch
);
1474 ok(iTrailing
== FALSE
, "ScriptStringXtoCP should return iTrailing = 0 not %d for X = outside traling edge\n",
1478 * Cleanup the SSA for the next round of tests
1480 hr
= ScriptStringFree(&ssa
);
1481 ok(hr
== S_OK
, "ScriptStringFree should return S_OK not %08x\n", hr
);
1484 * Test to see that exceeding the number of chars returns E_INVALIDARG. First
1485 * generate an SSA for the subsequent tests.
1487 hr
= ScriptStringAnalyse( hdc
, String
, String_len
, Glyphs
, Charset
, Flags
,
1488 ReqWidth
, NULL
, NULL
, NULL
, NULL
,
1490 ok(hr
== S_OK
, "ScriptStringAnalyse should return S_OK not %08x\n", hr
);
1493 * When ScriptStringCPtoX is called with a character position Cp that exceeds the
1494 * string length, return E_INVALIDARG. This also invalidates the ssa so a
1495 * ScriptStringFree should also fail.
1498 Cp
= String_len
+ 1;
1499 hr
= ScriptStringCPtoX(ssa
, Cp
, fTrailing
, &X
);
1500 ok(hr
== E_INVALIDARG
, "ScriptStringCPtoX should return E_INVALIDARG not %08x\n", hr
);
1502 ScriptStringFree(&ssa
);
1506 static void test_ScriptCacheGetHeight(HDC hdc
)
1509 SCRIPT_CACHE sc
= NULL
;
1512 hr
= ScriptCacheGetHeight(NULL
, NULL
, NULL
);
1513 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1515 hr
= ScriptCacheGetHeight(NULL
, &sc
, NULL
);
1516 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1518 hr
= ScriptCacheGetHeight(NULL
, &sc
, &height
);
1519 ok(hr
== E_PENDING
, "expected E_PENDING, got 0x%08x\n", hr
);
1523 hr
= ScriptCacheGetHeight(hdc
, &sc
, &height
);
1524 ok(hr
== S_OK
, "expected S_OK, got 0x%08x\n", hr
);
1525 ok(height
> 0, "expected height > 0\n");
1527 ScriptFreeCache(&sc
);
1530 static void test_ScriptGetGlyphABCWidth(HDC hdc
)
1533 SCRIPT_CACHE sc
= NULL
;
1536 hr
= ScriptGetGlyphABCWidth(NULL
, NULL
, 'a', NULL
);
1537 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1539 hr
= ScriptGetGlyphABCWidth(NULL
, &sc
, 'a', NULL
);
1540 ok(broken(hr
== E_PENDING
) ||
1541 hr
== E_INVALIDARG
, /* WIN7 */
1542 "expected E_INVALIDARG, got 0x%08x\n", hr
);
1544 hr
= ScriptGetGlyphABCWidth(NULL
, &sc
, 'a', &abc
);
1545 ok(hr
== E_PENDING
, "expected E_PENDING, got 0x%08x\n", hr
);
1547 if (0) { /* crashes on WinXP */
1548 hr
= ScriptGetGlyphABCWidth(hdc
, &sc
, 'a', NULL
);
1549 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1552 hr
= ScriptGetGlyphABCWidth(hdc
, &sc
, 'a', &abc
);
1553 ok(hr
== S_OK
, "expected S_OK, got 0x%08x\n", hr
);
1555 ScriptFreeCache(&sc
);
1558 static void test_ScriptLayout(void)
1561 static const BYTE levels
[][10] =
1563 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 },
1564 { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 },
1565 { 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 },
1566 { 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
1568 { 0, 0, 0, 0, 0, 1, 1, 1, 1, 1},
1569 { 1, 1, 1, 2, 2, 2, 1, 1, 1, 1 },
1570 { 2, 2, 2, 1, 1, 1, 2, 2, 2, 2 },
1571 { 0, 0, 1, 1, 2, 2, 1, 1, 0, 0 },
1572 { 1, 1, 2, 2, 3, 3, 2, 2, 1, 1 },
1574 { 0, 0, 1, 1, 2, 2, 1, 1, 0, 1 },
1575 { 1, 0, 1, 2, 2, 1, 2, 1, 0, 1 },
1577 static const int expect_l2v
[][10] =
1579 { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 },
1580 { 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 },
1581 { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 },
1582 { 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 },
1584 { 0, 1, 2, 3, 4, 9, 8 ,7 ,6, 5},
1585 /**/ { 9, 8, 7, 4, 5, 6, 3 ,2 ,1, 0},
1586 /**/ { 7, 8, 9, 6, 5, 4, 0 ,1 ,2, 3},
1587 { 0, 1, 7, 6, 4, 5, 3 ,2 ,8, 9},
1588 { 9, 8, 2, 3, 5, 4, 6 ,7 ,1, 0},
1590 { 0, 1, 7, 6, 4, 5, 3 ,2 ,8, 9},
1591 /**/ { 0, 1, 7, 5, 6, 4, 3 ,2 ,8, 9},
1593 static const int expect_v2l
[][10] =
1595 { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 },
1596 { 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 },
1597 { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 },
1598 { 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 },
1600 { 0, 1, 2, 3, 4, 9, 8 ,7 ,6, 5},
1601 { 9, 8, 7, 6, 3, 4, 5 ,2 ,1, 0},
1602 { 6, 7, 8, 9, 5, 4, 3 ,0 ,1, 2},
1603 { 0, 1, 7, 6, 4, 5, 3 ,2 ,8, 9},
1604 { 9, 8, 2, 3, 5, 4, 6 ,7 ,1, 0},
1606 { 0, 1, 7, 6, 4, 5, 3 ,2 ,8, 9},
1607 { 0, 1, 7, 6, 5, 3, 4 ,2 ,8, 9},
1610 int i
, j
, vistolog
[sizeof(levels
[0])], logtovis
[sizeof(levels
[0])];
1612 hr
= ScriptLayout(sizeof(levels
[0]), NULL
, vistolog
, logtovis
);
1613 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1615 hr
= ScriptLayout(sizeof(levels
[0]), levels
[0], NULL
, NULL
);
1616 ok(hr
== E_INVALIDARG
, "expected E_INVALIDARG, got 0x%08x\n", hr
);
1618 for (i
= 0; i
< sizeof(levels
)/sizeof(levels
[0]); i
++)
1620 hr
= ScriptLayout(sizeof(levels
[0]), levels
[i
], vistolog
, logtovis
);
1621 ok(hr
== S_OK
, "expected S_OK, got 0x%08x\n", hr
);
1623 for (j
= 0; j
< sizeof(levels
[i
]); j
++)
1625 ok(expect_v2l
[i
][j
] == vistolog
[j
],
1626 "failure: levels[%d][%d] = %d, vistolog[%d] = %d\n",
1627 i
, j
, levels
[i
][j
], j
, vistolog
[j
] );
1630 for (j
= 0; j
< sizeof(levels
[i
]); j
++)
1632 ok(expect_l2v
[i
][j
] == logtovis
[j
],
1633 "failure: levels[%d][%d] = %d, logtovis[%d] = %d\n",
1634 i
, j
, levels
[i
][j
], j
, logtovis
[j
] );
1639 static BOOL CALLBACK
enum_proc(LGRPID group
, LCID lcid
, LPSTR locale
, LONG_PTR lparam
)
1642 SCRIPT_DIGITSUBSTITUTE sds
;
1647 if (!IsValidLocale(lcid
, LCID_INSTALLED
)) return TRUE
;
1649 memset(&sds
, 0, sizeof(sds
));
1650 memset(&sc
, 0, sizeof(sc
));
1651 memset(&ss
, 0, sizeof(ss
));
1653 lcid_old
= GetThreadLocale();
1654 if (!SetThreadLocale(lcid
)) return TRUE
;
1656 hr
= ScriptRecordDigitSubstitution(lcid
, &sds
);
1657 ok(hr
== S_OK
, "ScriptRecordDigitSubstitution failed: 0x%08x\n", hr
);
1659 hr
= ScriptApplyDigitSubstitution(&sds
, &sc
, &ss
);
1660 ok(hr
== S_OK
, "ScriptApplyDigitSubstitution failed: 0x%08x\n", hr
);
1662 SetThreadLocale(lcid_old
);
1666 static void test_digit_substitution(void)
1670 static const LGRPID groups
[] =
1672 LGRPID_WESTERN_EUROPE
,
1673 LGRPID_CENTRAL_EUROPE
,
1680 LGRPID_TRADITIONAL_CHINESE
,
1681 LGRPID_SIMPLIFIED_CHINESE
,
1691 static BOOL (WINAPI
* pEnumLanguageGroupLocalesA
)(LANGGROUPLOCALE_ENUMPROCA
,LGRPID
,DWORD
,LONG_PTR
);
1693 hKernel32
= GetModuleHandleA("kernel32.dll");
1694 pEnumLanguageGroupLocalesA
= (void*)GetProcAddress(hKernel32
, "EnumLanguageGroupLocalesA");
1696 if (!pEnumLanguageGroupLocalesA
)
1698 win_skip("EnumLanguageGroupLocalesA not available on this platform\n");
1702 for (i
= 0; i
< sizeof(groups
)/sizeof(groups
[0]); i
++)
1704 ret
= pEnumLanguageGroupLocalesA(enum_proc
, groups
[i
], 0, 0);
1705 if (!ret
&& GetLastError() == ERROR_CALL_NOT_IMPLEMENTED
)
1707 win_skip("EnumLanguageGroupLocalesA not implemented on this platform\n");
1711 ok(ret
, "EnumLanguageGroupLocalesA failed unexpectedly: %u\n", GetLastError());
1715 static void test_ScriptGetProperties(void)
1717 const SCRIPT_PROPERTIES
**props
;
1721 hr
= ScriptGetProperties(NULL
, NULL
);
1722 ok(hr
== E_INVALIDARG
, "ScriptGetProperties succeeded\n");
1724 hr
= ScriptGetProperties(NULL
, &num
);
1725 ok(hr
== S_OK
, "ScriptGetProperties failed: 0x%08x\n", hr
);
1727 hr
= ScriptGetProperties(&props
, NULL
);
1728 ok(hr
== S_OK
, "ScriptGetProperties failed: 0x%08x\n", hr
);
1730 hr
= ScriptGetProperties(&props
, &num
);
1731 ok(hr
== S_OK
, "ScriptGetProperties failed: 0x%08x\n", hr
);
1734 static void test_ScriptBreak(void)
1736 static const WCHAR test
[] = {' ','\r','\n',0};
1737 SCRIPT_ITEM items
[4];
1741 hr
= ScriptItemize(test
, 3, 4, NULL
, NULL
, items
, NULL
);
1742 ok(!hr
, "ScriptItemize should return S_OK not %08x\n", hr
);
1744 memset(&la
, 0, sizeof(la
));
1745 hr
= ScriptBreak(test
, 1, &items
[0].a
, &la
);
1746 ok(!hr
, "ScriptBreak should return S_OK not %08x\n", hr
);
1748 ok(!la
.fSoftBreak
, "fSoftBreak set\n");
1749 ok(la
.fWhiteSpace
, "fWhiteSpace not set\n");
1750 ok(la
.fCharStop
, "fCharStop not set\n");
1751 ok(!la
.fWordStop
, "fWordStop set\n");
1752 ok(!la
.fInvalid
, "fInvalid set\n");
1753 ok(!la
.fReserved
, "fReserved set\n");
1755 memset(&la
, 0, sizeof(la
));
1756 hr
= ScriptBreak(test
+ 1, 1, &items
[1].a
, &la
);
1757 ok(!hr
, "ScriptBreak should return S_OK not %08x\n", hr
);
1759 ok(!la
.fSoftBreak
, "fSoftBreak set\n");
1760 ok(!la
.fWhiteSpace
, "fWhiteSpace set\n");
1761 ok(la
.fCharStop
, "fCharStop not set\n");
1762 ok(!la
.fWordStop
, "fWordStop set\n");
1763 ok(!la
.fInvalid
, "fInvalid set\n");
1764 ok(!la
.fReserved
, "fReserved set\n");
1766 memset(&la
, 0, sizeof(la
));
1767 hr
= ScriptBreak(test
+ 2, 1, &items
[2].a
, &la
);
1768 ok(!hr
, "ScriptBreak should return S_OK not %08x\n", hr
);
1770 ok(!la
.fSoftBreak
, "fSoftBreak set\n");
1771 ok(!la
.fWhiteSpace
, "fWhiteSpace set\n");
1772 ok(la
.fCharStop
, "fCharStop not set\n");
1773 ok(!la
.fWordStop
, "fWordStop set\n");
1774 ok(!la
.fInvalid
, "fInvalid set\n");
1775 ok(!la
.fReserved
, "fReserved set\n");
1778 static void test_newlines(void)
1780 static const WCHAR test1
[] = {'t','e','x','t','\r','t','e','x','t',0};
1781 static const WCHAR test2
[] = {'t','e','x','t','\n','t','e','x','t',0};
1782 static const WCHAR test3
[] = {'t','e','x','t','\r','\n','t','e','x','t',0};
1783 static const WCHAR test4
[] = {'t','e','x','t','\n','\r','t','e','x','t',0};
1784 static const WCHAR test5
[] = {'1','2','3','4','\n','\r','1','2','3','4',0};
1785 SCRIPT_ITEM items
[5];
1790 hr
= ScriptItemize(test1
, lstrlenW(test1
), 5, NULL
, NULL
, items
, &count
);
1791 ok(hr
== S_OK
, "ScriptItemize failed: 0x%08x\n", hr
);
1792 ok(count
== 3, "got %d expected 3\n", count
);
1795 hr
= ScriptItemize(test2
, lstrlenW(test2
), 5, NULL
, NULL
, items
, &count
);
1796 ok(hr
== S_OK
, "ScriptItemize failed: 0x%08x\n", hr
);
1797 ok(count
== 3, "got %d expected 3\n", count
);
1800 hr
= ScriptItemize(test3
, lstrlenW(test3
), 5, NULL
, NULL
, items
, &count
);
1801 ok(hr
== S_OK
, "ScriptItemize failed: 0x%08x\n", hr
);
1802 ok(count
== 4, "got %d expected 4\n", count
);
1805 hr
= ScriptItemize(test4
, lstrlenW(test4
), 5, NULL
, NULL
, items
, &count
);
1806 ok(hr
== S_OK
, "ScriptItemize failed: 0x%08x\n", hr
);
1807 ok(count
== 4, "got %d expected 4\n", count
);
1810 hr
= ScriptItemize(test5
, lstrlenW(test5
), 5, NULL
, NULL
, items
, &count
);
1811 ok(hr
== S_OK
, "ScriptItemize failed: 0x%08x\n", hr
);
1812 ok(count
== 4, "got %d expected 4\n", count
);
1822 unsigned short pwOutGlyphs
[256];
1824 /* We need a valid HDC to drive a lot of Script functions which requires the following *
1825 * to set up for the tests. */
1826 hwnd
= CreateWindowExA(0, "static", "", WS_POPUP
, 0,0,100,100,
1829 ShowWindow(hwnd
, SW_SHOW
);
1832 hdc
= GetDC(hwnd
); /* We now have a hdc */
1833 ok( hdc
!= NULL
, "HDC failed to be created %p\n", hdc
);
1835 memset(&lf
, 0, sizeof(LOGFONTA
));
1836 lstrcpyA(lf
.lfFaceName
, "Tahoma");
1841 hfont
= SelectObject(hdc
, CreateFontIndirectA(&lf
));
1842 ok(hfont
!= NULL
, "SelectObject failed: %p\n", hfont
);
1844 test_ScriptItemize();
1845 test_ScriptItemIzeShapePlace(hdc
,pwOutGlyphs
);
1846 test_ScriptGetCMap(hdc
, pwOutGlyphs
);
1847 test_ScriptCacheGetHeight(hdc
);
1848 test_ScriptGetGlyphABCWidth(hdc
);
1849 test_ScriptShape(hdc
);
1850 test_ScriptPlace(hdc
);
1852 test_ScriptGetFontProperties(hdc
);
1853 test_ScriptTextOut(hdc
);
1854 test_ScriptTextOut2(hdc
);
1855 test_ScriptTextOut3(hdc
);
1857 test_ScriptString(hdc
);
1858 test_ScriptStringXtoCP_CPtoX(hdc
);
1860 test_ScriptLayout();
1861 test_digit_substitution();
1862 test_ScriptGetProperties();
1866 ReleaseDC(hwnd
, hdc
);
1867 DestroyWindow(hwnd
);