advapi32: Make sure it's a real cleanup.
[wine] / dlls / advapi32 / tests / registry.c
1 /*
2  * Unit tests for registry functions
3  *
4  * Copyright (c) 2002 Alexandre Julliard
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <assert.h>
22 #include <stdarg.h>
23 #include "wine/test.h"
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winreg.h"
27 #include "winsvc.h"
28 #include "winerror.h"
29
30 static HKEY hkey_main;
31 static DWORD GLE;
32
33 static const char * sTestpath1 = "%LONGSYSTEMVAR%\\subdir1";
34 static const char * sTestpath2 = "%FOO%\\subdir1";
35
36 /* delete key and all its subkeys */
37 static DWORD delete_key( HKEY hkey )
38 {
39     char name[MAX_PATH];
40     DWORD ret;
41
42     while (!(ret = RegEnumKeyA(hkey, 0, name, sizeof(name))))
43     {
44         HKEY tmp;
45         if (!(ret = RegOpenKeyExA( hkey, name, 0, KEY_ENUMERATE_SUB_KEYS, &tmp )))
46         {
47             ret = delete_key( tmp );
48             RegCloseKey( tmp );
49         }
50         if (ret) break;
51     }
52     if (ret != ERROR_NO_MORE_ITEMS) return ret;
53     RegDeleteKeyA( hkey, "" );
54     return 0;
55 }
56
57 static void setup_main_key(void)
58 {
59     if (RegOpenKeyA( HKEY_CURRENT_USER, "Software\\Wine\\Test", &hkey_main )) delete_key( hkey_main );
60
61     assert (!RegCreateKeyA( HKEY_CURRENT_USER, "Software\\Wine\\Test", &hkey_main ));
62 }
63
64 static void test_hkey_main_Value_A(LPCSTR name, LPCSTR string)
65 {
66     DWORD ret, type, cbData;
67     DWORD str_byte_len, full_byte_len;
68
69     ret = RegQueryValueExA(hkey_main, name, NULL, &type, NULL, &cbData);
70     GLE = GetLastError();
71     ok(ret == ERROR_SUCCESS, "RegQueryValueExA failed: %ld, GLE=%ld\n", ret, GLE);
72     if(GLE == ERROR_CALL_NOT_IMPLEMENTED) return;
73
74     str_byte_len = lstrlenA(string) + 1;
75     full_byte_len = sizeof(string);
76     ok(type == REG_SZ, "RegQueryValueExA returned type %ld\n", type);
77     ok(cbData == full_byte_len || cbData == str_byte_len,
78         "cbData=%ld instead of %ld or %ld\n", cbData, full_byte_len, str_byte_len);
79 }
80
81 static void test_hkey_main_Value_W(LPCWSTR name, LPCWSTR string)
82 {
83     DWORD ret, type, cbData;
84     DWORD str_byte_len, full_byte_len;
85
86     ret = RegQueryValueExW(hkey_main, name, NULL, &type, NULL, &cbData);
87     GLE = GetLastError();
88     ok(ret == ERROR_SUCCESS, "RegQueryValueExW failed: %ld, GLE=%ld\n", ret, GLE);
89     if(GLE == ERROR_CALL_NOT_IMPLEMENTED) return;
90
91     str_byte_len = (lstrlenW(string) + 1) * sizeof(WCHAR);
92     full_byte_len = sizeof(string);
93     ok(type == REG_SZ, "RegQueryValueExW returned type %ld\n", type);
94     ok(cbData == full_byte_len || cbData == str_byte_len,
95         "cbData=%ld instead of %ld or %ld\n", cbData, full_byte_len, str_byte_len);
96 }
97
98 static void test_set_value(void)
99 {
100     DWORD ret;
101
102     static const WCHAR name1W[] =   {'C','l','e','a','n','S','i','n','g','l','e','S','t','r','i','n','g', 0};
103     static const WCHAR name2W[] =   {'S','o','m','e','I','n','t','r','a','Z','e','r','o','e','d','S','t','r','i','n','g', 0};
104     static const WCHAR string1W[] = {'T','h','i','s','N','e','v','e','r','B','r','e','a','k','s', 0};
105     static const WCHAR string2W[] = {'T','h','i','s', 0 ,'B','r','e','a','k','s', 0 , 0 ,'A', 0 , 0 , 0 , 0 ,'L','o','t', 0 , 0 , 0 , 0};
106
107     static const char name1A[] =   "CleanSingleString";
108     static const char name2A[] =   "SomeIntraZeroedString";
109     static const char string1A[] = "ThisNeverBreaks";
110     static const char string2A[] = "This\0Breaks\0\0A\0\0\0Lot\0\0\0\0";
111
112     /* test RegSetValueExA with normal string */
113     ret = RegSetValueExA(hkey_main, name1A, 0, REG_SZ, (const BYTE *)string1A, sizeof(string1A));
114     ok(ret == ERROR_SUCCESS, "RegSetValueExA failed: %ld, GLE=%ld\n", ret, GetLastError());
115     test_hkey_main_Value_A(name1A, string1A);
116     test_hkey_main_Value_W(name1W, string1W);
117
118     /* test RegSetValueExA with intrazeroed string */
119     ret = RegSetValueExA(hkey_main, name2A, 0, REG_SZ, (const BYTE *)string2A, sizeof(string2A));
120     ok(ret == ERROR_SUCCESS, "RegSetValueExA failed: %ld, GLE=%ld\n", ret, GetLastError());
121     test_hkey_main_Value_A(name1A, string1A);
122     test_hkey_main_Value_W(name1W, string1W);
123
124     /* 9x doesn't support W-calls, so don't test them then */
125     if(GLE == ERROR_CALL_NOT_IMPLEMENTED) return; 
126
127     /* test RegSetValueExW with normal string */
128     ret = RegSetValueExW(hkey_main, name1W, 0, REG_SZ, (const BYTE *)string1W, sizeof(string1W));
129     ok(ret == ERROR_SUCCESS, "RegSetValueExW failed: %ld, GLE=%ld\n", ret, GetLastError());
130     test_hkey_main_Value_A(name1A, string1A);
131     test_hkey_main_Value_W(name1W, string1W);
132
133     /* test RegSetValueExW with intrazeroed string */
134     ret = RegSetValueExW(hkey_main, name2W, 0, REG_SZ, (const BYTE *)string2W, sizeof(string2W));
135     ok(ret == ERROR_SUCCESS, "RegSetValueExW failed: %ld, GLE=%ld\n", ret, GetLastError());
136     test_hkey_main_Value_A(name1A, string1A);
137     test_hkey_main_Value_W(name1W, string1W);
138 }
139
140 static void create_test_entries(void)
141 {
142     static const DWORD qw[2] = { 0x12345678, 0x87654321 };
143
144     SetEnvironmentVariableA("LONGSYSTEMVAR", "bar");
145     SetEnvironmentVariableA("FOO", "ImARatherLongButIndeedNeededString");
146
147     ok(!RegSetValueExA(hkey_main,"TP1_EXP_SZ",0,REG_EXPAND_SZ, (const BYTE *)sTestpath1, strlen(sTestpath1)+1), 
148         "RegSetValueExA failed\n");
149     ok(!RegSetValueExA(hkey_main,"TP1_SZ",0,REG_SZ, (const BYTE *)sTestpath1, strlen(sTestpath1)+1), 
150         "RegSetValueExA failed\n");
151     ok(!RegSetValueExA(hkey_main,"TP2_EXP_SZ",0,REG_EXPAND_SZ, (const BYTE *)sTestpath2, strlen(sTestpath2)+1), 
152         "RegSetValueExA failed\n");
153     ok(!RegSetValueExA(hkey_main,"DWORD",0,REG_DWORD, (const BYTE *)qw, 4),
154         "RegSetValueExA failed\n");
155     ok(!RegSetValueExA(hkey_main,"BIN32",0,REG_BINARY, (const BYTE *)qw, 4),
156         "RegSetValueExA failed\n");
157     ok(!RegSetValueExA(hkey_main,"BIN64",0,REG_BINARY, (const BYTE *)qw, 8),
158         "RegSetValueExA failed\n");
159 }
160         
161 static void test_enum_value(void)
162 {
163     DWORD res;
164     HKEY test_key;
165     char value[20], data[20];
166     WCHAR valueW[20], dataW[20];
167     DWORD val_count, data_count, type;
168     static const WCHAR foobarW[] = {'f','o','o','b','a','r',0};
169     static const WCHAR testW[] = {'T','e','s','t',0};
170     static const WCHAR xxxW[] = {'x','x','x','x','x','x','x','x',0};
171
172     /* create the working key for new 'Test' value */
173     res = RegCreateKeyA( hkey_main, "TestKey", &test_key );
174     ok( res == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", res);
175
176     /* check NULL data with zero length */
177     res = RegSetValueExA( test_key, "Test", 0, REG_SZ, NULL, 0 );
178     if (GetVersion() & 0x80000000)
179         ok( res == ERROR_INVALID_PARAMETER, "RegSetValueExA returned %ld\n", res );
180     else
181         ok( !res, "RegSetValueExA returned %ld\n", res );
182     res = RegSetValueExA( test_key, "Test", 0, REG_EXPAND_SZ, NULL, 0 );
183     ok( ERROR_SUCCESS == res || ERROR_INVALID_PARAMETER == res, "RegSetValueExA returned %ld\n", res );
184     res = RegSetValueExA( test_key, "Test", 0, REG_BINARY, NULL, 0 );
185     ok( ERROR_SUCCESS == res || ERROR_INVALID_PARAMETER == res, "RegSetValueExA returned %ld\n", res );
186
187     res = RegSetValueExA( test_key, "Test", 0, REG_SZ, (const BYTE *)"foobar", 7 );
188     ok( res == 0, "RegSetValueExA failed error %ld\n", res );
189
190     /* overflow both name and data */
191     val_count = 2;
192     data_count = 2;
193     type = 1234;
194     strcpy( value, "xxxxxxxxxx" );
195     strcpy( data, "xxxxxxxxxx" );
196     res = RegEnumValueA( test_key, 0, value, &val_count, NULL, &type, (LPBYTE)data, &data_count );
197     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
198     ok( val_count == 2, "val_count set to %ld\n", val_count );
199     ok( data_count == 7, "data_count set to %ld instead of 7\n", data_count );
200     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
201     ok( !strcmp( value, "xxxxxxxxxx" ), "value set to '%s'\n", value );
202     ok( !strcmp( data, "xxxxxxxxxx" ), "data set to '%s'\n", data );
203
204     /* overflow name */
205     val_count = 3;
206     data_count = 20;
207     type = 1234;
208     strcpy( value, "xxxxxxxxxx" );
209     strcpy( data, "xxxxxxxxxx" );
210     res = RegEnumValueA( test_key, 0, value, &val_count, NULL, &type, (LPBYTE)data, &data_count );
211     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
212     /* Win9x returns 2 as specified by MSDN but NT returns 3... */
213     ok( val_count == 2 || val_count == 3, "val_count set to %ld\n", val_count );
214     ok( data_count == 7, "data_count set to %ld instead of 7\n", data_count );
215     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
216     /* v5.1.2600.0 (XP Home and Proffesional) does not touch value or data in this case */
217     ok( !strcmp( value, "Te" ) || !strcmp( value, "xxxxxxxxxx" ), 
218         "value set to '%s' instead of 'Te' or 'xxxxxxxxxx'\n", value );
219     ok( !strcmp( data, "foobar" ) || !strcmp( data, "xxxxxxx" ), 
220         "data set to '%s' instead of 'foobar' or 'xxxxxxx'\n", data );
221
222     /* overflow empty name */
223     val_count = 0;
224     data_count = 20;
225     type = 1234;
226     strcpy( value, "xxxxxxxxxx" );
227     strcpy( data, "xxxxxxxxxx" );
228     res = RegEnumValueA( test_key, 0, value, &val_count, NULL, &type, (LPBYTE)data, &data_count );
229     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
230     ok( val_count == 0, "val_count set to %ld\n", val_count );
231     ok( data_count == 7, "data_count set to %ld instead of 7\n", data_count );
232     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
233     ok( !strcmp( value, "xxxxxxxxxx" ), "value set to '%s'\n", value );
234     /* v5.1.2600.0 (XP Home and Professional) does not touch data in this case */
235     ok( !strcmp( data, "foobar" ) || !strcmp( data, "xxxxxxx" ), 
236         "data set to '%s' instead of 'foobar' or 'xxxxxxx'\n", data );
237
238     /* overflow data */
239     val_count = 20;
240     data_count = 2;
241     type = 1234;
242     strcpy( value, "xxxxxxxxxx" );
243     strcpy( data, "xxxxxxxxxx" );
244     res = RegEnumValueA( test_key, 0, value, &val_count, NULL, &type, (LPBYTE)data, &data_count );
245     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
246     ok( val_count == 20, "val_count set to %ld\n", val_count );
247     ok( data_count == 7, "data_count set to %ld instead of 7\n", data_count );
248     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
249     ok( !strcmp( value, "xxxxxxxxxx" ), "value set to '%s'\n", value );
250     ok( !strcmp( data, "xxxxxxxxxx" ), "data set to '%s'\n", data );
251
252     /* no overflow */
253     val_count = 20;
254     data_count = 20;
255     type = 1234;
256     strcpy( value, "xxxxxxxxxx" );
257     strcpy( data, "xxxxxxxxxx" );
258     res = RegEnumValueA( test_key, 0, value, &val_count, NULL, &type, (LPBYTE)data, &data_count );
259     ok( res == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", res );
260     ok( val_count == 4, "val_count set to %ld instead of 4\n", val_count );
261     ok( data_count == 7, "data_count set to %ld instead of 7\n", data_count );
262     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
263     ok( !strcmp( value, "Test" ), "value is '%s' instead of Test\n", value );
264     ok( !strcmp( data, "foobar" ), "data is '%s' instead of foobar\n", data );
265
266     /* Unicode tests */
267
268     SetLastError(0);
269     res = RegSetValueExW( test_key, testW, 0, REG_SZ, (const BYTE *)foobarW, 7*sizeof(WCHAR) );
270     if (res==0 && GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
271         return;
272     ok( res == 0, "RegSetValueExW failed error %ld\n", res );
273
274     /* overflow both name and data */
275     val_count = 2;
276     data_count = 2;
277     type = 1234;
278     memcpy( valueW, xxxW, sizeof(xxxW) );
279     memcpy( dataW, xxxW, sizeof(xxxW) );
280     res = RegEnumValueW( test_key, 0, valueW, &val_count, NULL, &type, (BYTE*)dataW, &data_count );
281     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
282     ok( val_count == 2, "val_count set to %ld\n", val_count );
283     ok( data_count == 7*sizeof(WCHAR), "data_count set to %ld instead of 7*sizeof(WCHAR)\n", data_count );
284     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
285     ok( !memcmp( valueW, xxxW, sizeof(xxxW) ), "value modified\n" );
286     ok( !memcmp( dataW, xxxW, sizeof(xxxW) ), "data modified\n" );
287
288     /* overflow name */
289     val_count = 3;
290     data_count = 20;
291     type = 1234;
292     memcpy( valueW, xxxW, sizeof(xxxW) );
293     memcpy( dataW, xxxW, sizeof(xxxW) );
294     res = RegEnumValueW( test_key, 0, valueW, &val_count, NULL, &type, (BYTE*)dataW, &data_count );
295     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
296     ok( val_count == 3, "val_count set to %ld\n", val_count );
297     ok( data_count == 7*sizeof(WCHAR), "data_count set to %ld instead of 7*sizeof(WCHAR)\n", data_count );
298     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
299     ok( !memcmp( valueW, xxxW, sizeof(xxxW) ), "value modified\n" );
300     ok( !memcmp( dataW, xxxW, sizeof(xxxW) ), "data modified\n" );
301
302     /* overflow data */
303     val_count = 20;
304     data_count = 2;
305     type = 1234;
306     memcpy( valueW, xxxW, sizeof(xxxW) );
307     memcpy( dataW, xxxW, sizeof(xxxW) );
308     res = RegEnumValueW( test_key, 0, valueW, &val_count, NULL, &type, (BYTE*)dataW, &data_count );
309     ok( res == ERROR_MORE_DATA, "expected ERROR_MORE_DATA, got %ld\n", res );
310     ok( val_count == 4, "val_count set to %ld instead of 4\n", val_count );
311     ok( data_count == 7*sizeof(WCHAR), "data_count set to %ld instead of 7*sizeof(WCHAR)\n", data_count );
312     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
313     ok( !memcmp( valueW, testW, sizeof(testW) ), "value is not 'Test'\n" );
314     ok( !memcmp( dataW, xxxW, sizeof(xxxW) ), "data modified\n" );
315
316     /* no overflow */
317     val_count = 20;
318     data_count = 20;
319     type = 1234;
320     memcpy( valueW, xxxW, sizeof(xxxW) );
321     memcpy( dataW, xxxW, sizeof(xxxW) );
322     res = RegEnumValueW( test_key, 0, valueW, &val_count, NULL, &type, (BYTE*)dataW, &data_count );
323     ok( res == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", res );
324     ok( val_count == 4, "val_count set to %ld instead of 4\n", val_count );
325     ok( data_count == 7*sizeof(WCHAR), "data_count set to %ld instead of 7*sizeof(WCHAR)\n", data_count );
326     ok( type == REG_SZ, "type %ld is not REG_SZ\n", type );
327     ok( !memcmp( valueW, testW, sizeof(testW) ), "value is not 'Test'\n" );
328     ok( !memcmp( dataW, foobarW, sizeof(foobarW) ), "data is not 'foobar'\n" );
329 }
330
331 static void test_query_value_ex(void)
332 {
333     DWORD ret;
334     DWORD size;
335     DWORD type;
336     BYTE buffer[10];
337     
338     ret = RegQueryValueExA(hkey_main, "TP1_SZ", NULL, &type, NULL, &size);
339     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
340     ok(size == strlen(sTestpath1) + 1, "(%ld,%ld)\n", (DWORD)strlen(sTestpath1) + 1, size);
341     ok(type == REG_SZ, "type %ld is not REG_SZ\n", type);
342
343     type = 0xdeadbeef;
344     size = 0xdeadbeef;
345     ret = RegQueryValueExA(HKEY_CLASSES_ROOT, "Non Existent Value", NULL, &type, NULL, &size);
346     ok(ret == ERROR_FILE_NOT_FOUND, "expected ERROR_FILE_NOT_FOUND, got %ld\n", ret);
347     ok(size == 0, "size should have been set to 0 instead of %ld\n", size);
348     ok(type == (DWORD)HKEY_CLASSES_ROOT /* NT */ || type == 0 /* Win9x */,
349         "type should have been set to 0x80000000 or 0 instead of 0x%lx\n", type);
350
351     size = sizeof(buffer);
352     ret = RegQueryValueExA(HKEY_CLASSES_ROOT, "Non Existent Value", NULL, &type, buffer, &size);
353     ok(ret == ERROR_FILE_NOT_FOUND, "expected ERROR_FILE_NOT_FOUND, got %ld\n", ret);
354     ok(size == sizeof(buffer), "size shouldn't have been changed to %ld\n", size);
355 }
356
357 static void test_get_value(void)
358 {
359     HMODULE hadvapi32;
360     DWORD (WINAPI *pRegGetValueA)(HKEY,LPCSTR,LPCSTR,DWORD,LPDWORD,PVOID,LPDWORD);
361     
362     DWORD ret;
363     DWORD size;
364     DWORD type;
365     DWORD dw, qw[2];
366     CHAR buf[80];
367     CHAR expanded[] = "bar\\subdir1";
368    
369     /* This function was introduced with Windows 2003 SP1 */
370     hadvapi32 = LoadLibraryA("advapi32.dll");
371     if(!hadvapi32) 
372     {
373         ok(0, "error=%ld\n", GetLastError());
374         return;
375     }
376     pRegGetValueA = (PVOID)GetProcAddress(hadvapi32, "RegGetValueA");
377     if(!pRegGetValueA) 
378         return;
379
380     /* Query REG_DWORD using RRF_RT_REG_DWORD (ok) */
381     size = type = dw = 0xdeadbeef;
382     ret = pRegGetValueA(hkey_main, NULL, "DWORD", RRF_RT_REG_DWORD, &type, &dw, &size);
383     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
384     ok(size == 4, "size=%ld\n", size);
385     ok(type == REG_DWORD, "type=%ld\n", type);
386     ok(dw == 0x12345678, "dw=%ld\n", dw);
387
388     /* Query by subkey-name */
389     ret = pRegGetValueA(HKEY_CURRENT_USER, "Software\\Wine\\Test", "DWORD", RRF_RT_REG_DWORD, NULL, NULL, NULL);
390     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
391
392     /* Query REG_DWORD using RRF_RT_REG_BINARY (restricted) */
393     size = type = dw = 0xdeadbeef;
394     ret = pRegGetValueA(hkey_main, NULL, "DWORD", RRF_RT_REG_BINARY, &type, &dw, &size);
395     ok(ret == ERROR_UNSUPPORTED_TYPE, "ret=%ld\n", ret);
396     /* Although the function failed all values are retrieved */
397     ok(size == 4, "size=%ld\n", size);
398     ok(type == REG_DWORD, "type=%ld\n", type);
399     ok(dw == 0x12345678, "dw=%ld\n", dw);
400
401     /* Test RRF_ZEROONFAILURE */
402     type = dw = 0xdeadbeef; size = 4;
403     ret = pRegGetValueA(hkey_main, NULL, "DWORD", RRF_RT_REG_SZ|RRF_ZEROONFAILURE, &type, &dw, &size);
404     ok(ret == ERROR_UNSUPPORTED_TYPE, "ret=%ld\n", ret);
405     /* Again all values are retrieved ... */
406     ok(size == 4, "size=%ld\n", size);
407     ok(type == REG_DWORD, "type=%ld\n", type);
408     /* ... except the buffer, which is zeroed out */
409     ok(dw == 0, "dw=%ld\n", dw);
410
411     /* Query REG_DWORD using RRF_RT_DWORD (ok) */
412     size = type = dw = 0xdeadbeef;
413     ret = pRegGetValueA(hkey_main, NULL, "DWORD", RRF_RT_DWORD, &type, &dw, &size);
414     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
415     ok(size == 4, "size=%ld\n", size);
416     ok(type == REG_DWORD, "type=%ld\n", type);
417     ok(dw == 0x12345678, "dw=%ld\n", dw);
418
419     /* Query 32-bit REG_BINARY using RRF_RT_DWORD (ok) */
420     size = type = dw = 0xdeadbeef;
421     ret = pRegGetValueA(hkey_main, NULL, "BIN32", RRF_RT_DWORD, &type, &dw, &size);
422     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
423     ok(size == 4, "size=%ld\n", size);
424     ok(type == REG_BINARY, "type=%ld\n", type);
425     ok(dw == 0x12345678, "dw=%ld\n", dw);
426     
427     /* Query 64-bit REG_BINARY using RRF_RT_DWORD (type mismatch) */
428     qw[0] = qw[1] = size = type = 0xdeadbeef;
429     ret = pRegGetValueA(hkey_main, NULL, "BIN64", RRF_RT_DWORD, &type, qw, &size);
430     ok(ret == ERROR_DATATYPE_MISMATCH, "ret=%ld\n", ret);
431     ok(size == 8, "size=%ld\n", size);
432     ok(type == REG_BINARY, "type=%ld\n", type);
433     ok(qw[0] == 0x12345678 && 
434        qw[1] == 0x87654321, "qw={%ld,%ld}\n", qw[0], qw[1]);
435     
436     /* Query 64-bit REG_BINARY using 32-bit buffer (buffer too small) */
437     type = dw = 0xdeadbeef; size = 4;
438     ret = pRegGetValueA(hkey_main, NULL, "BIN64", RRF_RT_REG_BINARY, &type, &dw, &size);
439     ok(ret == ERROR_MORE_DATA, "ret=%ld\n", ret);
440     ok(dw == 0xdeadbeef, "dw=%ld\n", dw);
441     ok(size == 8, "size=%ld\n", size);
442
443     /* Query 64-bit REG_BINARY using RRF_RT_QWORD (ok) */
444     qw[0] = qw[1] = size = type = 0xdeadbeef;
445     ret = pRegGetValueA(hkey_main, NULL, "BIN64", RRF_RT_QWORD, &type, qw, &size);
446     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
447     ok(size == 8, "size=%ld\n", size);
448     ok(type == REG_BINARY, "type=%ld\n", type);
449     ok(qw[0] == 0x12345678 &&
450        qw[1] == 0x87654321, "qw={%ld,%ld}\n", qw[0], qw[1]);
451
452     /* Query REG_SZ using RRF_RT_REG_SZ (ok) */
453     buf[0] = 0; type = 0xdeadbeef; size = sizeof(buf);
454     ret = pRegGetValueA(hkey_main, NULL, "TP1_SZ", RRF_RT_REG_SZ, &type, buf, &size);
455     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
456     ok(size == strlen(sTestpath1)+1, "strlen(sTestpath1)=%d size=%ld\n", lstrlenA(sTestpath1), size);
457     ok(type == REG_SZ, "type=%ld\n", type);
458     ok(!strcmp(sTestpath1, buf), "sTestpath=\"%s\" buf=\"%s\"\n", sTestpath1, buf);
459
460     /* Query REG_SZ using RRF_RT_REG_SZ|RRF_NOEXPAND (ok) */
461     buf[0] = 0; type = 0xdeadbeef; size = sizeof(buf);
462     ret = pRegGetValueA(hkey_main, NULL, "TP1_SZ", RRF_RT_REG_SZ|RRF_NOEXPAND, &type, buf, &size);
463     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
464     ok(size == strlen(sTestpath1)+1, "strlen(sTestpath1)=%d size=%ld\n", lstrlenA(sTestpath1), size);
465     ok(type == REG_SZ, "type=%ld\n", type);
466     ok(!strcmp(sTestpath1, buf), "sTestpath=\"%s\" buf=\"%s\"\n", sTestpath1, buf);
467
468     /* Query REG_EXPAND_SZ using RRF_RT_REG_SZ (ok, expands) */
469     buf[0] = 0; type = 0xdeadbeef; size = sizeof(buf);
470     ret = pRegGetValueA(hkey_main, NULL, "TP1_EXP_SZ", RRF_RT_REG_SZ, &type, buf, &size);
471     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
472     /* At least v5.2.3790.1830 (2003 SP1) returns the unexpanded sTestpath1 length + 1 here. */
473     ok((size == strlen(expanded)+1) || (size == strlen(sTestpath1)+1), 
474         "strlen(expanded)=%d, strlen(sTestpath1)=%d, size=%ld\n", lstrlenA(expanded), lstrlenA(sTestpath1), size);
475     ok(type == REG_SZ, "type=%ld\n", type);
476     ok(!strcmp(expanded, buf), "expanded=\"%s\" buf=\"%s\"\n", expanded, buf);
477     
478     /* Query REG_EXPAND_SZ using RRF_RT_REG_EXPAND_SZ|RRF_NOEXPAND (ok, doesn't expand) */
479     buf[0] = 0; type = 0xdeadbeef; size = sizeof(buf);
480     ret = pRegGetValueA(hkey_main, NULL, "TP1_EXP_SZ", RRF_RT_REG_EXPAND_SZ|RRF_NOEXPAND, &type, buf, &size);
481     ok(ret == ERROR_SUCCESS, "ret=%ld\n", ret);
482     ok(size == strlen(sTestpath1)+1, "strlen(sTestpath1)=%d size=%ld\n", lstrlenA(sTestpath1), size);
483     ok(type == REG_EXPAND_SZ, "type=%ld\n", type);
484     ok(!strcmp(sTestpath1, buf), "sTestpath=\"%s\" buf=\"%s\"\n", sTestpath1, buf);
485     
486     /* Query REG_EXPAND_SZ using RRF_RT_REG_SZ|RRF_NOEXPAND (type mismatch) */
487     ret = pRegGetValueA(hkey_main, NULL, "TP1_EXP_SZ", RRF_RT_REG_SZ|RRF_NOEXPAND, NULL, NULL, NULL);
488     ok(ret == ERROR_UNSUPPORTED_TYPE, "ret=%ld\n", ret);
489
490     /* Query REG_EXPAND_SZ using RRF_RT_REG_EXPAND_SZ (not allowed without RRF_NOEXPAND) */
491     ret = pRegGetValueA(hkey_main, NULL, "TP1_EXP_SZ", RRF_RT_REG_EXPAND_SZ, NULL, NULL, NULL);
492     ok(ret == ERROR_INVALID_PARAMETER, "ret=%ld\n", ret);
493
494
495 static void test_reg_open_key(void)
496 {
497     DWORD ret = 0;
498     HKEY hkResult = NULL;
499     HKEY hkPreserve = NULL;
500
501     /* successful open */
502     ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Test", &hkResult);
503     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
504     ok(hkResult != NULL, "expected hkResult != NULL\n");
505     hkPreserve = hkResult;
506
507     /* these tests fail on Win9x, but we want to be compatible with NT, so
508      * run them if we can */
509     if (!(GetVersion() & 0x80000000))
510     {
511         /* open same key twice */
512         ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Test", &hkResult);
513         ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
514         ok(hkResult != hkPreserve, "epxected hkResult != hkPreserve\n");
515         ok(hkResult != NULL, "hkResult != NULL\n");
516         RegCloseKey(hkResult);
517     
518         /* open nonexistent key
519         * check that hkResult is set to NULL
520         */
521         hkResult = hkPreserve;
522         ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Nonexistent", &hkResult);
523         ok(ret == ERROR_FILE_NOT_FOUND, "expected ERROR_FILE_NOT_FOUND, got %ld\n", ret);
524         ok(hkResult == NULL, "expected hkResult == NULL\n");
525     
526         /* open the same nonexistent key again to make sure the key wasn't created */
527         hkResult = hkPreserve;
528         ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Nonexistent", &hkResult);
529         ok(ret == ERROR_FILE_NOT_FOUND, "expected ERROR_FILE_NOT_FOUND, got %ld\n", ret);
530         ok(hkResult == NULL, "expected hkResult == NULL\n");
531     
532         /* send in NULL lpSubKey
533         * check that hkResult receives the value of hKey
534         */
535         hkResult = hkPreserve;
536         ret = RegOpenKeyA(HKEY_CURRENT_USER, NULL, &hkResult);
537         ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
538         ok(hkResult == HKEY_CURRENT_USER, "expected hkResult == HKEY_CURRENT_USER\n");
539     
540         /* send empty-string in lpSubKey */
541         hkResult = hkPreserve;
542         ret = RegOpenKeyA(HKEY_CURRENT_USER, "", &hkResult);
543         ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
544         ok(hkResult == HKEY_CURRENT_USER, "expected hkResult == HKEY_CURRENT_USER\n");
545     
546         /* send in NULL lpSubKey and NULL hKey
547         * hkResult is set to NULL
548         */
549         hkResult = hkPreserve;
550         ret = RegOpenKeyA(NULL, NULL, &hkResult);
551         ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
552         ok(hkResult == NULL, "expected hkResult == NULL\n");
553     }
554
555     /* only send NULL hKey
556      * the value of hkResult remains unchanged
557      */
558     hkResult = hkPreserve;
559     ret = RegOpenKeyA(NULL, "Software\\Wine\\Test", &hkResult);
560     ok(ret == ERROR_INVALID_HANDLE || ret == ERROR_BADKEY, /* Windows 95 returns BADKEY */
561        "expected ERROR_INVALID_HANDLE or ERROR_BADKEY, got %ld\n", ret);
562     ok(hkResult == hkPreserve, "expected hkResult == hkPreserve\n");
563     RegCloseKey(hkResult);
564
565     /* send in NULL hkResult */
566     ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Test", NULL);
567     ok(ret == ERROR_INVALID_PARAMETER, "expected ERROR_INVALID_PARAMETER, got %ld\n", ret);
568
569     /*  beginning backslash character */
570     ret = RegOpenKeyA(HKEY_CURRENT_USER, "\\Software\\Wine\\Test", &hkResult);
571        ok(ret == ERROR_BAD_PATHNAME || /* NT/2k/XP */
572            ret == ERROR_FILE_NOT_FOUND /* Win9x,ME */
573            , "expected ERROR_BAD_PATHNAME or ERROR_FILE_NOT_FOUND, got %ld\n", ret);
574 }
575
576 static void test_reg_create_key(void)
577 {
578     LONG ret;
579     HKEY hkey1, hkey2;
580     ret = RegCreateKeyExA(hkey_main, "Subkey1", 0, NULL, 0, KEY_NOTIFY, NULL, &hkey1, NULL);
581     ok(!ret, "RegCreateKeyExA failed with error %ld\n", ret);
582     /* should succeed: all versions of Windows ignore the access rights
583      * to the parent handle */
584     ret = RegCreateKeyExA(hkey1, "Subkey2", 0, NULL, 0, KEY_SET_VALUE, NULL, &hkey2, NULL);
585     ok(!ret, "RegCreateKeyExA failed with error %ld\n", ret);
586
587     /* clean up */
588     RegDeleteKey(hkey2, "");
589     RegDeleteKey(hkey1, "");
590
591     /*  beginning backslash character */
592     ret = RegCreateKeyExA(hkey_main, "\\Subkey3", 0, NULL, 0, KEY_NOTIFY, NULL, &hkey1, NULL);
593     if (!(GetVersion() & 0x80000000))
594         ok(ret == ERROR_BAD_PATHNAME, "expected ERROR_BAD_PATHNAME, got %ld\n", ret);
595     else {
596         ok(!ret, "RegCreateKeyExA failed with error %ld\n", ret);
597         RegDeleteKey(hkey1, NULL);
598     }
599 }
600
601 static void test_reg_close_key(void)
602 {
603     DWORD ret = 0;
604     HKEY hkHandle;
605
606     /* successfully close key
607      * hkHandle remains changed after call to RegCloseKey
608      */
609     ret = RegOpenKeyA(HKEY_CURRENT_USER, "Software\\Wine\\Test", &hkHandle);
610     ret = RegCloseKey(hkHandle);
611     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
612
613     /* try to close the key twice */
614     ret = RegCloseKey(hkHandle); /* Windows 95 doesn't mind. */
615     ok(ret == ERROR_INVALID_HANDLE || ret == ERROR_SUCCESS,
616        "expected ERROR_INVALID_HANDLE or ERROR_SUCCESS, got %ld\n", ret);
617     
618     /* try to close a NULL handle */
619     ret = RegCloseKey(NULL);
620     ok(ret == ERROR_INVALID_HANDLE || ret == ERROR_BADKEY, /* Windows 95 returns BADKEY */
621        "expected ERROR_INVALID_HANDLE or ERROR_BADKEY, got %ld\n", ret);
622 }
623
624 static void test_reg_delete_key(void)
625 {
626     DWORD ret;
627
628     ret = RegDeleteKey(hkey_main, NULL);
629     ok(ret == ERROR_INVALID_PARAMETER ||
630        ret == ERROR_ACCESS_DENIED ||
631        ret == ERROR_BADKEY, /* Win95 */
632        "ret=%ld\n", ret);
633 }
634
635 static void test_reg_save_key(void)
636 {
637     DWORD ret;
638
639     ret = RegSaveKey(hkey_main, "saved_key", NULL);
640     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
641 }
642
643 static void test_reg_load_key(void)
644 {
645     DWORD ret;
646     HKEY hkHandle;
647
648     ret = RegLoadKey(HKEY_LOCAL_MACHINE, "Test", "saved_key");
649     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
650
651     ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Test", &hkHandle);
652     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
653
654     RegCloseKey(hkHandle);
655 }
656
657 static void test_reg_unload_key(void)
658 {
659     DWORD ret;
660
661     ret = RegUnLoadKey(HKEY_LOCAL_MACHINE, "Test");
662     ok(ret == ERROR_SUCCESS, "expected ERROR_SUCCESS, got %ld\n", ret);
663
664     DeleteFile("saved_key");
665     DeleteFile("saved_key.LOG");
666 }
667
668 static BOOL set_privileges(LPCSTR privilege, BOOL set)
669 {
670     TOKEN_PRIVILEGES tp;
671     HANDLE hToken;
672     LUID luid;
673
674     if (!OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, &hToken))
675         return FALSE;
676
677     if(!LookupPrivilegeValue(NULL, privilege, &luid))
678     {
679         CloseHandle(hToken);
680         return FALSE;
681     }
682
683     tp.PrivilegeCount = 1;
684     tp.Privileges[0].Luid = luid;
685     
686     if (set)
687         tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
688     else
689         tp.Privileges[0].Attributes = 0;
690
691     AdjustTokenPrivileges(hToken, FALSE, &tp, sizeof(TOKEN_PRIVILEGES), NULL, NULL);
692     if (GetLastError() != ERROR_SUCCESS)
693     {
694         CloseHandle(hToken);
695         return FALSE;
696     }
697
698     CloseHandle(hToken);
699     return TRUE;
700 }
701
702 /* tests that show that RegConnectRegistry and 
703    OpenSCManager accept computer names without the
704    \\ prefix (what MSDN says).   */
705 static void test_regconnectregistry( void)
706 {
707     CHAR compName[MAX_COMPUTERNAME_LENGTH + 1];
708     CHAR netwName[MAX_COMPUTERNAME_LENGTH + 3]; /* 2 chars for double backslash */
709     DWORD len = sizeof(compName) ;
710     BOOL ret;
711     LONG retl;
712     HKEY hkey;
713     SC_HANDLE schnd;
714     DWORD GLE;
715
716     ret = GetComputerNameA(compName, &len);
717     ok( ret, "GetComputerName failed err = %ld\n", GetLastError());
718     if( !ret) return;
719
720     lstrcpyA(netwName, "\\\\");
721     lstrcpynA(netwName+2, compName, MAX_COMPUTERNAME_LENGTH + 1);
722
723     retl = RegConnectRegistryA( compName, HKEY_LOCAL_MACHINE, &hkey);
724     ok( !retl || retl == ERROR_DLL_INIT_FAILED, "RegConnectRegistryA failed err = %ld\n", retl);
725     if( !retl) RegCloseKey( hkey);
726
727     retl = RegConnectRegistryA( netwName, HKEY_LOCAL_MACHINE, &hkey);
728     ok( !retl || retl == ERROR_DLL_INIT_FAILED, "RegConnectRegistryA failed err = %ld\n", retl);
729     if( !retl) RegCloseKey( hkey);
730
731     schnd = OpenSCManagerA( compName, NULL, GENERIC_READ); 
732     GLE = GetLastError();
733     ok( schnd != NULL || GLE==ERROR_CALL_NOT_IMPLEMENTED, 
734         "OpenSCManagerA failed err = %ld\n", GLE);
735     CloseServiceHandle( schnd);
736
737     schnd = OpenSCManagerA( netwName, NULL, GENERIC_READ); 
738     GLE = GetLastError();
739     ok( schnd != NULL || GLE==ERROR_CALL_NOT_IMPLEMENTED, 
740         "OpenSCManagerA failed err = %ld\n", GLE);
741     CloseServiceHandle( schnd);
742
743 }
744
745 START_TEST(registry)
746 {
747     setup_main_key();
748     test_set_value();
749     create_test_entries();
750     test_enum_value();
751     test_query_value_ex();
752     test_get_value();
753     test_reg_open_key();
754     test_reg_create_key();
755     test_reg_close_key();
756     test_reg_delete_key();
757
758     /* SaveKey/LoadKey require the SE_BACKUP_NAME privilege to be set */
759     if (set_privileges(SE_BACKUP_NAME, TRUE) &&
760         set_privileges(SE_RESTORE_NAME, TRUE))
761     {
762         test_reg_save_key();
763         test_reg_load_key();
764         test_reg_unload_key();
765
766         set_privileges(SE_BACKUP_NAME, FALSE);
767         set_privileges(SE_RESTORE_NAME, FALSE);
768     }
769
770     /* cleanup */
771     delete_key( hkey_main );
772     
773     test_regconnectregistry();
774 }