2 * Unit test suite for environment functions.
4 * Copyright 2002 Dmitry Timoshkov
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.
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.
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
23 #include "wine/test.h"
28 static void test_GetSetEnvironmentVariableA(void)
33 static const char name
[] = "SomeWildName";
34 static const char name_cased
[] = "sOMEwILDnAME";
35 static const char value
[] = "SomeWildValue";
37 ret
= SetEnvironmentVariableA(name
, value
);
39 "unexpected error in SetEnvironmentVariableA, GetLastError=%d\n",
42 /* Try to retrieve the environment variable we just set */
43 ret_size
= GetEnvironmentVariableA(name
, NULL
, 0);
44 ok(ret_size
== strlen(value
) + 1,
45 "should return length with terminating 0 ret_size=%d\n", ret_size
);
48 ret_size
= GetEnvironmentVariableA(name
, buf
, lstrlenA(value
));
49 ok(lstrcmpA(buf
, "foo") == 0, "should not touch the buffer\n");
50 ok(ret_size
== strlen(value
) + 1,
51 "should return length with terminating 0 ret_size=%d\n", ret_size
);
54 ret_size
= GetEnvironmentVariableA(name
, buf
, lstrlenA(value
) + 1);
55 ok(lstrcmpA(buf
, value
) == 0, "should touch the buffer\n");
56 ok(ret_size
== strlen(value
),
57 "should return length without terminating 0 ret_size=%d\n", ret_size
);
60 ret_size
= GetEnvironmentVariableA(name_cased
, buf
, lstrlenA(value
) + 1);
61 ok(lstrcmpA(buf
, value
) == 0, "should touch the buffer\n");
62 ok(ret_size
== strlen(value
),
63 "should return length without terminating 0 ret_size=%d\n", ret_size
);
65 /* Remove that environment variable */
66 ret
= SetEnvironmentVariableA(name_cased
, NULL
);
67 ok(ret
== TRUE
, "should erase existing variable\n");
70 ret_size
= GetEnvironmentVariableA(name
, buf
, lstrlenA(value
) + 1);
71 ok(lstrcmpA(buf
, "foo") == 0, "should not touch the buffer\n");
72 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
73 "should not find variable but ret_size=%d GetLastError=%d\n",
74 ret_size
, GetLastError());
76 /* Check behavior of SetEnvironmentVariableA(name, "") */
77 ret
= SetEnvironmentVariableA(name
, value
);
79 "unexpected error in SetEnvironmentVariableA, GetLastError=%d\n",
83 ret_size
= GetEnvironmentVariableA(name_cased
, buf
, lstrlenA(value
) + 1);
84 ok(lstrcmpA(buf
, value
) == 0, "should touch the buffer\n");
85 ok(ret_size
== strlen(value
),
86 "should return length without terminating 0 ret_size=%d\n", ret_size
);
88 ret
= SetEnvironmentVariableA(name_cased
, "");
90 "should not fail with empty value but GetLastError=%d\n", GetLastError());
94 ret_size
= GetEnvironmentVariableA(name
, buf
, lstrlenA(value
) + 1);
96 ((GetLastError() == 0 && lstrcmpA(buf
, "") == 0) ||
97 (GetLastError() == ERROR_ENVVAR_NOT_FOUND
)),
98 "%s should be set to \"\" (NT) or removed (Win9x) but ret_size=%d GetLastError=%d and buf=%s\n",
99 name
, ret_size
, GetLastError(), buf
);
101 /* Test the limits */
102 ret_size
= GetEnvironmentVariableA(NULL
, NULL
, 0);
103 ok(ret_size
== 0 && (GetLastError() == ERROR_INVALID_PARAMETER
|| GetLastError() == ERROR_ENVVAR_NOT_FOUND
),
104 "should not find variable but ret_size=%d GetLastError=%d\n",
105 ret_size
, GetLastError());
107 ret_size
= GetEnvironmentVariableA(NULL
, buf
, lstrlenA(value
) + 1);
108 ok(ret_size
== 0 && (GetLastError() == ERROR_INVALID_PARAMETER
|| GetLastError() == ERROR_ENVVAR_NOT_FOUND
),
109 "should not find variable but ret_size=%d GetLastError=%d\n",
110 ret_size
, GetLastError());
112 ret_size
= GetEnvironmentVariableA("", buf
, lstrlenA(value
) + 1);
113 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
114 "should not find variable but ret_size=%d GetLastError=%d\n",
115 ret_size
, GetLastError());
118 static void test_GetSetEnvironmentVariableW(void)
123 static const WCHAR name
[] = {'S','o','m','e','W','i','l','d','N','a','m','e',0};
124 static const WCHAR value
[] = {'S','o','m','e','W','i','l','d','V','a','l','u','e',0};
125 static const WCHAR name_cased
[] = {'s','O','M','E','w','I','L','D','n','A','M','E',0};
126 static const WCHAR empty_strW
[] = { 0 };
127 static const WCHAR fooW
[] = {'f','o','o',0};
129 ret
= SetEnvironmentVariableW(name
, value
);
130 if (ret
== FALSE
&& GetLastError()==ERROR_CALL_NOT_IMPLEMENTED
)
132 /* Must be Win9x which doesn't support the Unicode functions */
133 skip("SetEnvironmentVariableW is not implemented\n");
137 "unexpected error in SetEnvironmentVariableW, GetLastError=%d\n",
140 /* Try to retrieve the environment variable we just set */
141 ret_size
= GetEnvironmentVariableW(name
, NULL
, 0);
142 ok(ret_size
== lstrlenW(value
) + 1,
143 "should return length with terminating 0 ret_size=%d\n",
147 ret_size
= GetEnvironmentVariableW(name
, buf
, lstrlenW(value
));
148 ok(lstrcmpW(buf
, fooW
) == 0, "should not touch the buffer\n");
150 ok(ret_size
== lstrlenW(value
) + 1,
151 "should return length with terminating 0 ret_size=%d\n", ret_size
);
154 ret_size
= GetEnvironmentVariableW(name
, buf
, lstrlenW(value
) + 1);
155 ok(lstrcmpW(buf
, value
) == 0, "should touch the buffer\n");
156 ok(ret_size
== lstrlenW(value
),
157 "should return length without terminating 0 ret_size=%d\n", ret_size
);
160 ret_size
= GetEnvironmentVariableW(name_cased
, buf
, lstrlenW(value
) + 1);
161 ok(lstrcmpW(buf
, value
) == 0, "should touch the buffer\n");
162 ok(ret_size
== lstrlenW(value
),
163 "should return length without terminating 0 ret_size=%d\n", ret_size
);
165 /* Remove that environment variable */
166 ret
= SetEnvironmentVariableW(name_cased
, NULL
);
167 ok(ret
== TRUE
, "should erase existing variable\n");
170 ret_size
= GetEnvironmentVariableW(name
, buf
, lstrlenW(value
) + 1);
171 ok(lstrcmpW(buf
, fooW
) == 0, "should not touch the buffer\n");
172 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
173 "should not find variable but ret_size=%d GetLastError=%d\n",
174 ret_size
, GetLastError());
176 /* Check behavior of SetEnvironmentVariableW(name, "") */
177 ret
= SetEnvironmentVariableW(name
, value
);
179 "unexpected error in SetEnvironmentVariableW, GetLastError=%d\n",
183 ret_size
= GetEnvironmentVariableW(name
, buf
, lstrlenW(value
) + 1);
184 ok(lstrcmpW(buf
, value
) == 0, "should touch the buffer\n");
185 ok(ret_size
== lstrlenW(value
),
186 "should return length without terminating 0 ret_size=%d\n", ret_size
);
188 ret
= SetEnvironmentVariableW(name_cased
, empty_strW
);
189 ok(ret
== TRUE
, "should not fail with empty value but GetLastError=%d\n", GetLastError());
192 ret_size
= GetEnvironmentVariableW(name
, buf
, lstrlenW(value
) + 1);
193 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
194 "should not find variable but ret_size=%d GetLastError=%d\n",
195 ret_size
, GetLastError());
196 ok(lstrcmpW(buf
, empty_strW
) == 0, "should copy an empty string\n");
198 /* Test the limits */
199 ret_size
= GetEnvironmentVariableW(NULL
, NULL
, 0);
200 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
201 "should not find variable but ret_size=%d GetLastError=%d\n",
202 ret_size
, GetLastError());
204 if (0) /* Both tests crash on Vista */
206 ret_size
= GetEnvironmentVariableW(NULL
, buf
, lstrlenW(value
) + 1);
207 ok(ret_size
== 0 && GetLastError() == ERROR_ENVVAR_NOT_FOUND
,
208 "should not find variable but ret_size=%d GetLastError=%d\n",
209 ret_size
, GetLastError());
211 ret
= SetEnvironmentVariableW(NULL
, NULL
);
212 ok(ret
== FALSE
&& (GetLastError() == ERROR_INVALID_PARAMETER
|| GetLastError() == ERROR_ENVVAR_NOT_FOUND
),
213 "should fail with NULL, NULL but ret=%d and GetLastError=%d\n",
214 ret
, GetLastError());
218 static void test_ExpandEnvironmentStringsA(void)
220 const char* value
="Long long value";
221 const char* not_an_env_var
="%NotAnEnvVar%";
222 char buf
[256], buf1
[256], buf2
[0x8000];
223 DWORD ret_size
, ret_size1
;
225 SetEnvironmentVariableA("EnvVar", value
);
227 ret_size
= ExpandEnvironmentStringsA(NULL
, buf1
, sizeof(buf1
));
228 ok(ret_size
== 1 || ret_size
== 0 /* Win9x */,
229 "ExpandEnvironmentStrings returned %d\n", ret_size
);
231 /* Try to get the required buffer size 'the natural way' */
232 strcpy(buf
, "%EnvVar%");
233 ret_size
= ExpandEnvironmentStringsA(buf
, NULL
, 0);
234 /* v5.1.2600.2945 (XP SP2) returns len + 2 here! */
235 ok(ret_size
== strlen(value
)+1 || ret_size
== strlen(value
)+2 || ret_size
== 0 /* Win95 */,
236 "ExpandEnvironmentStrings returned %d instead of %d\n",
237 ret_size
, lstrlenA(value
)+1);
238 if (ret_size
== strlen(value
)+2)
239 trace("ExpandEnvironmentStrings is buggy: it returned len + 2\n");
241 /* Again, side-stepping the Win95 bug */
242 ret_size
= ExpandEnvironmentStringsA(buf
, buf1
, 0);
243 /* v5.1.2600.2945 (XP SP2) returns len + 2 here! */
244 ok(ret_size
== strlen(value
)+1 || ret_size
== strlen(value
)+2,
245 "ExpandEnvironmentStrings returned %d instead of %d\n",
246 ret_size
, lstrlenA(value
)+1);
248 /* Try with a buffer that's too small */
249 ret_size
= ExpandEnvironmentStringsA(buf
, buf1
, 12);
250 /* v5.1.2600.2945 (XP SP2) returns len + 2 here! */
251 ok(ret_size
== strlen(value
)+1 || ret_size
== strlen(value
)+2,
252 "ExpandEnvironmentStrings returned %d instead of %d\n",
253 ret_size
, lstrlenA(value
)+1);
255 /* Try with a buffer of just the right size */
256 /* v5.1.2600.2945 (XP SP2) needs and returns len + 2 here! */
257 ret_size
= ExpandEnvironmentStringsA(buf
, buf1
, ret_size
);
258 ok(ret_size
== strlen(value
)+1 || ret_size
== strlen(value
)+2,
259 "ExpandEnvironmentStrings returned %d instead of %d\n",
260 ret_size
, lstrlenA(value
)+1);
261 ok(!strcmp(buf1
, value
), "ExpandEnvironmentStrings returned [%s]\n", buf1
);
263 /* Try with an unset environment variable */
264 strcpy(buf
, not_an_env_var
);
265 ret_size
= ExpandEnvironmentStringsA(buf
, buf1
, sizeof(buf1
));
266 ok(ret_size
== strlen(not_an_env_var
)+1, "ExpandEnvironmentStrings returned %d instead of %d\n", ret_size
, lstrlenA(value
)+1);
267 ok(!strcmp(buf1
, not_an_env_var
), "ExpandEnvironmentStrings returned [%s]\n", buf1
);
269 /* test a large destination size */
270 strcpy(buf
, "12345");
271 ret_size
= ExpandEnvironmentStringsA(buf
, buf2
, sizeof(buf2
));
272 ok(!strcmp(buf
, buf2
), "ExpandEnvironmentStrings failed %s vs %s. ret_size = %d\n", buf
, buf2
, ret_size
);
274 ret_size1
= GetWindowsDirectoryA(buf1
,256);
275 ok ((ret_size1
>0) && (ret_size1
<256), "GetWindowsDirectory Failed\n");
276 ret_size
= ExpandEnvironmentStringsA("%SystemRoot%",buf
,sizeof(buf
));
277 if (ERROR_ENVVAR_NOT_FOUND
!= GetLastError())
279 ok(!strcmp(buf
, buf1
), "ExpandEnvironmentStrings failed %s vs %s. ret_size = %d\n", buf
, buf1
, ret_size
);
282 /* Try with a variable that references another */
283 SetEnvironmentVariableA("IndirectVar", "Foo%EnvVar%Bar");
284 strcpy(buf
, "Indirect-%IndirectVar%-Indirect");
285 strcpy(buf2
, "Indirect-Foo%EnvVar%Bar-Indirect");
286 ret_size
= ExpandEnvironmentStringsA(buf
, buf1
, sizeof(buf1
));
287 ok(ret_size
== strlen(buf2
)+1, "ExpandEnvironmentStrings returned %d instead of %d\n", ret_size
, lstrlen(buf2
)+1);
288 ok(!strcmp(buf1
, buf2
), "ExpandEnvironmentStrings returned [%s]\n", buf1
);
289 SetEnvironmentVariableA("IndirectVar", NULL
);
291 SetEnvironmentVariableA("EnvVar", NULL
);
294 static BOOL (WINAPI
*pGetComputerNameExA
)(COMPUTER_NAME_FORMAT
,LPSTR
,LPDWORD
);
295 static BOOL (WINAPI
*pGetComputerNameExW
)(COMPUTER_NAME_FORMAT
,LPWSTR
,LPDWORD
);
297 static void test_GetComputerName(void)
307 ret
= GetComputerNameA((LPSTR
)0xdeadbeef, &size
);
308 error
= GetLastError();
310 ok(!ret
&& error
== ERROR_BUFFER_OVERFLOW
, "GetComputerNameA should have failed with ERROR_BUFFER_OVERFLOW instead of %d\n", error
);
312 /* Only Vista returns the computer name length as documented in the MSDN */
315 size
++; /* nul terminating character */
316 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
317 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
318 ret
= GetComputerNameA(name
, &size
);
319 ok(ret
, "GetComputerNameA failed with error %d\n", GetLastError());
320 HeapFree(GetProcessHeap(), 0, name
);
323 size
= MAX_COMPUTERNAME_LENGTH
+ 1;
324 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
325 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
326 ret
= GetComputerNameA(name
, &size
);
327 ok(ret
, "GetComputerNameA failed with error %d\n", GetLastError());
328 trace("computer name is \"%s\"\n", name
);
329 name_len
= strlen(name
);
330 ok(size
== name_len
, "size should be same as length, name_len=%d, size=%d\n", name_len
, size
);
331 HeapFree(GetProcessHeap(), 0, name
);
334 SetLastError(0xdeadbeef);
335 ret
= GetComputerNameW((LPWSTR
)0xdeadbeef, &size
);
336 error
= GetLastError();
337 if (error
== ERROR_CALL_NOT_IMPLEMENTED
)
338 skip("GetComputerNameW is not implemented\n");
342 ok(!ret
&& error
== ERROR_BUFFER_OVERFLOW
, "GetComputerNameW should have failed with ERROR_BUFFER_OVERFLOW instead of %d\n", error
);
343 size
++; /* nul terminating character */
344 nameW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(nameW
[0]));
345 ok(nameW
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
346 ret
= GetComputerNameW(nameW
, &size
);
347 ok(ret
, "GetComputerNameW failed with error %d\n", GetLastError());
348 HeapFree(GetProcessHeap(), 0, nameW
);
351 pGetComputerNameExA
= (void *)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetComputerNameExA");
352 if (!pGetComputerNameExA
)
354 skip("GetComputerNameExA function not implemented, so not testing\n");
359 ret
= pGetComputerNameExA(ComputerNameDnsDomain
, (LPSTR
)0xdeadbeef, &size
);
360 error
= GetLastError();
361 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error
);
362 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
363 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
364 ret
= pGetComputerNameExA(ComputerNameDnsDomain
, name
, &size
);
365 ok(ret
, "GetComputerNameExA(ComputerNameDnsDomain) failed with error %d\n", GetLastError());
366 trace("domain name is \"%s\"\n", name
);
367 HeapFree(GetProcessHeap(), 0, name
);
370 ret
= pGetComputerNameExA(ComputerNameDnsFullyQualified
, (LPSTR
)0xdeadbeef, &size
);
371 error
= GetLastError();
372 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error
);
373 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
374 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
375 ret
= pGetComputerNameExA(ComputerNameDnsFullyQualified
, name
, &size
);
376 ok(ret
, "GetComputerNameExA(ComputerNameDnsFullyQualified) failed with error %d\n", GetLastError());
377 trace("fully qualified hostname is \"%s\"\n", name
);
378 HeapFree(GetProcessHeap(), 0, name
);
381 ret
= pGetComputerNameExA(ComputerNameDnsHostname
, (LPSTR
)0xdeadbeef, &size
);
382 error
= GetLastError();
383 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error
);
384 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
385 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
386 ret
= pGetComputerNameExA(ComputerNameDnsHostname
, name
, &size
);
387 ok(ret
, "GetComputerNameExA(ComputerNameDnsHostname) failed with error %d\n", GetLastError());
388 trace("hostname is \"%s\"\n", name
);
389 HeapFree(GetProcessHeap(), 0, name
);
392 ret
= pGetComputerNameExA(ComputerNameNetBIOS
, (LPSTR
)0xdeadbeef, &size
);
393 error
= GetLastError();
394 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error
);
395 name
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(name
[0]));
396 ok(name
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
397 ret
= pGetComputerNameExA(ComputerNameNetBIOS
, name
, &size
);
398 ok(ret
, "GetComputerNameExA(ComputerNameNetBIOS) failed with error %d\n", GetLastError());
399 trace("NetBIOS name is \"%s\"\n", name
);
400 HeapFree(GetProcessHeap(), 0, name
);
402 pGetComputerNameExW
= (void *)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetComputerNameExW");
403 if (!pGetComputerNameExW
)
405 skip("GetComputerNameExW function not implemented, so not testing\n");
410 ret
= pGetComputerNameExW(ComputerNameDnsDomain
, (LPWSTR
)0xdeadbeef, &size
);
411 error
= GetLastError();
412 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error
);
413 nameW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(nameW
[0]));
414 ok(nameW
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
415 ret
= pGetComputerNameExW(ComputerNameDnsDomain
, nameW
, &size
);
416 ok(ret
, "GetComputerNameExW(ComputerNameDnsDomain) failed with error %d\n", GetLastError());
417 HeapFree(GetProcessHeap(), 0, nameW
);
420 ret
= pGetComputerNameExW(ComputerNameDnsFullyQualified
, (LPWSTR
)0xdeadbeef, &size
);
421 error
= GetLastError();
422 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error
);
423 nameW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(nameW
[0]));
424 ok(nameW
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
425 ret
= pGetComputerNameExW(ComputerNameDnsFullyQualified
, nameW
, &size
);
426 ok(ret
, "GetComputerNameExW(ComputerNameDnsFullyQualified) failed with error %d\n", GetLastError());
427 HeapFree(GetProcessHeap(), 0, nameW
);
430 ret
= pGetComputerNameExW(ComputerNameDnsHostname
, (LPWSTR
)0xdeadbeef, &size
);
431 error
= GetLastError();
432 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error
);
433 nameW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(nameW
[0]));
434 ok(nameW
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
435 ret
= pGetComputerNameExW(ComputerNameDnsHostname
, nameW
, &size
);
436 ok(ret
, "GetComputerNameExW(ComputerNameDnsHostname) failed with error %d\n", GetLastError());
437 HeapFree(GetProcessHeap(), 0, nameW
);
440 ret
= pGetComputerNameExW(ComputerNameNetBIOS
, (LPWSTR
)0xdeadbeef, &size
);
441 error
= GetLastError();
442 ok(!ret
&& error
== ERROR_MORE_DATA
, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error
);
443 nameW
= HeapAlloc(GetProcessHeap(), 0, size
* sizeof(nameW
[0]));
444 ok(nameW
!= NULL
, "HeapAlloc failed with error %d\n", GetLastError());
445 ret
= pGetComputerNameExW(ComputerNameNetBIOS
, nameW
, &size
);
446 ok(ret
, "GetComputerNameExW(ComputerNameNetBIOS) failed with error %d\n", GetLastError());
447 HeapFree(GetProcessHeap(), 0, nameW
);
452 test_GetSetEnvironmentVariableA();
453 test_GetSetEnvironmentVariableW();
454 test_ExpandEnvironmentStringsA();
455 test_GetComputerName();