dlls/kernel32/tests/environ.c

   1 /*
   2  * Unit test suite for environment functions.
   3  *
   4  * Copyright 2002 Dmitry Timoshkov
   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 <stdarg.h>
  22
  23 #include "wine/test.h"
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winerror.h"
  27
  28 static void test_GetSetEnvironmentVariableA(void)
  29 {
  30     char buf[256];
  31     BOOL ret;
  32     DWORD ret_size;
  33     static const char name[] = "SomeWildName";
  34     static const char name_cased[] = "sOMEwILDnAME";
  35     static const char value[] = "SomeWildValue";
  36
  37     ret = SetEnvironmentVariableA(name, value);
  38     ok(ret == TRUE,
  39        "unexpected error in SetEnvironmentVariableA, GetLastError=%d\n",
  40        GetLastError());
  41
  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);
  46
  47     lstrcpyA(buf, "foo");
  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);
  52
  53     lstrcpyA(buf, "foo");
  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);
  58
  59     lstrcpyA(buf, "foo");
  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);
  64
  65     /* Remove that environment variable */
  66     ret = SetEnvironmentVariableA(name_cased, NULL);
  67     ok(ret == TRUE, "should erase existing variable\n");
  68
  69     lstrcpyA(buf, "foo");
  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());
  75
  76     /* Check behavior of SetEnvironmentVariableA(name, "") */
  77     ret = SetEnvironmentVariableA(name, value);
  78     ok(ret == TRUE,
  79        "unexpected error in SetEnvironmentVariableA, GetLastError=%d\n",
  80        GetLastError());
  81
  82     lstrcpyA(buf, "foo");
  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);
  87
  88     ret = SetEnvironmentVariableA(name_cased, "");
  89     ok(ret == TRUE,
  90        "should not fail with empty value but GetLastError=%d\n", GetLastError());
  91
  92     lstrcpyA(buf, "foo");
  93     SetLastError(0);
  94     ret_size = GetEnvironmentVariableA(name, buf, lstrlenA(value) + 1);
  95     ok(ret_size == 0 &&
  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);
 100
 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());
 106
 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());
 111
 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());
 116 }
 117
 118 static void test_GetSetEnvironmentVariableW(void)
 119 {
 120     WCHAR buf[256];
 121     BOOL ret;
 122     DWORD ret_size;
 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};
 128
 129     ret = SetEnvironmentVariableW(name, value);
 130     if (ret == FALSE && GetLastError()==ERROR_CALL_NOT_IMPLEMENTED)
 131     {
 132         /* Must be Win9x which doesn't support the Unicode functions */
 133         skip("SetEnvironmentVariableW is not implemented\n");
 134         return;
 135     }
 136     ok(ret == TRUE,
 137        "unexpected error in SetEnvironmentVariableW, GetLastError=%d\n",
 138        GetLastError());
 139
 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",
 144        ret_size);
 145
 146     lstrcpyW(buf, fooW);
 147     ret_size = GetEnvironmentVariableW(name, buf, lstrlenW(value));
 148     ok(lstrcmpW(buf, fooW) == 0, "should not touch the buffer\n");
 149
 150     ok(ret_size == lstrlenW(value) + 1,
 151        "should return length with terminating 0 ret_size=%d\n", ret_size);
 152
 153     lstrcpyW(buf, fooW);
 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);
 158
 159     lstrcpyW(buf, fooW);
 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);
 164
 165     /* Remove that environment variable */
 166     ret = SetEnvironmentVariableW(name_cased, NULL);
 167     ok(ret == TRUE, "should erase existing variable\n");
 168
 169     lstrcpyW(buf, fooW);
 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());
 175
 176     /* Check behavior of SetEnvironmentVariableW(name, "") */
 177     ret = SetEnvironmentVariableW(name, value);
 178     ok(ret == TRUE,
 179        "unexpected error in SetEnvironmentVariableW, GetLastError=%d\n",
 180        GetLastError());
 181
 182     lstrcpyW(buf, fooW);
 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);
 187
 188     ret = SetEnvironmentVariableW(name_cased, empty_strW);
 189     ok(ret == TRUE, "should not fail with empty value but GetLastError=%d\n", GetLastError());
 190
 191     lstrcpyW(buf, fooW);
 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");
 197
 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());
 203
 204     if (0) /* Both tests crash on Vista */
 205     {
 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());
 210
 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());
 215     }
 216 }
 217
 218 static void test_ExpandEnvironmentStringsA(void)
 219 {
 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;
 224
 225     SetEnvironmentVariableA("EnvVar", value);
 226
 227     ret_size = ExpandEnvironmentStringsA(NULL, buf1, sizeof(buf1));
 228     ok(ret_size == 1 || ret_size == 0 /* Win9x */,
 229        "ExpandEnvironmentStrings returned %d\n", ret_size);
 230
 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");
 240
 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);
 247
 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);
 254
 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);
 262
 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);
 268
 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);
 273
 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())
 278     {
 279         ok(!strcmp(buf, buf1), "ExpandEnvironmentStrings failed %s vs %s. ret_size = %d\n", buf, buf1, ret_size);
 280     }
 281
 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);
 290
 291     SetEnvironmentVariableA("EnvVar", NULL);
 292 }
 293
 294 static BOOL (WINAPI *pGetComputerNameExA)(COMPUTER_NAME_FORMAT,LPSTR,LPDWORD);
 295 static BOOL (WINAPI *pGetComputerNameExW)(COMPUTER_NAME_FORMAT,LPWSTR,LPDWORD);
 296
 297 static void test_GetComputerName(void)
 298 {
 299     DWORD size;
 300     BOOL ret;
 301     LPSTR name;
 302     LPWSTR nameW;
 303     DWORD error;
 304     int name_len;
 305
 306     size = 0;
 307     ret = GetComputerNameA((LPSTR)0xdeadbeef, &size);
 308     error = GetLastError();
 309     todo_wine
 310     ok(!ret && error == ERROR_BUFFER_OVERFLOW, "GetComputerNameA should have failed with ERROR_BUFFER_OVERFLOW instead of %d\n", error);
 311
 312     /* Only Vista returns the computer name length as documented in the MSDN */
 313     if (size != 0)
 314     {
 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);
 321     }
 322
 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);
 332
 333     size = 0;
 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");
 339     else
 340     {
 341         todo_wine
 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);
 349     }
 350
 351     pGetComputerNameExA = (void *)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetComputerNameExA");
 352     if (!pGetComputerNameExA)
 353     {
 354         skip("GetComputerNameExA function not implemented, so not testing\n");
 355         return;
 356     }
 357
 358     size = 0;
 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     trace("domain size is %d\n", size);
 363     name = HeapAlloc(GetProcessHeap(), 0, size * sizeof(name[0]));
 364     ok(name != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 365     ret = pGetComputerNameExA(ComputerNameDnsDomain, name, &size);
 366     ok(ret, "GetComputerNameExA(ComputerNameDnsDomain) failed with error %d\n", GetLastError());
 367     trace("domain name is \"%s\"\n", name);
 368     HeapFree(GetProcessHeap(), 0, name);
 369
 370     size = 0;
 371     ret = pGetComputerNameExA(ComputerNameDnsFullyQualified, (LPSTR)0xdeadbeef, &size);
 372     error = GetLastError();
 373     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error);
 374     trace("fully qualified hostname size is %d\n", size);
 375     name = HeapAlloc(GetProcessHeap(), 0, size * sizeof(name[0]));
 376     ok(name != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 377     ret = pGetComputerNameExA(ComputerNameDnsFullyQualified, name, &size);
 378     ok(ret, "GetComputerNameExA(ComputerNameDnsFullyQualified) failed with error %d\n", GetLastError());
 379     trace("fully qualified hostname is \"%s\"\n", name);
 380     HeapFree(GetProcessHeap(), 0, name);
 381
 382     size = 0;
 383     ret = pGetComputerNameExA(ComputerNameDnsHostname, (LPSTR)0xdeadbeef, &size);
 384     error = GetLastError();
 385     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error);
 386     trace("hostname size is %d\n", size);
 387     name = HeapAlloc(GetProcessHeap(), 0, size * sizeof(name[0]));
 388     ok(name != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 389     ret = pGetComputerNameExA(ComputerNameDnsHostname, name, &size);
 390     ok(ret, "GetComputerNameExA(ComputerNameDnsHostname) failed with error %d\n", GetLastError());
 391     trace("hostname is \"%s\"\n", name);
 392     HeapFree(GetProcessHeap(), 0, name);
 393
 394     size = 0;
 395     ret = pGetComputerNameExA(ComputerNameNetBIOS, (LPSTR)0xdeadbeef, &size);
 396     error = GetLastError();
 397     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExA should have failed with ERROR_MORE_DATA instead of %d\n", error);
 398     trace("NetBIOS size is %d\n", size);
 399     name = HeapAlloc(GetProcessHeap(), 0, size * sizeof(name[0]));
 400     ok(name != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 401     ret = pGetComputerNameExA(ComputerNameNetBIOS, name, &size);
 402     ok(ret, "GetComputerNameExA(ComputerNameNetBIOS) failed with error %d\n", GetLastError());
 403     trace("NetBIOS name is \"%s\"\n", name);
 404     HeapFree(GetProcessHeap(), 0, name);
 405
 406     pGetComputerNameExW = (void *)GetProcAddress(GetModuleHandle("kernel32.dll"), "GetComputerNameExW");
 407     if (!pGetComputerNameExW)
 408     {
 409         skip("GetComputerNameExW function not implemented, so not testing\n");
 410         return;
 411     }
 412
 413     size = 0;
 414     ret = pGetComputerNameExW(ComputerNameDnsDomain, (LPWSTR)0xdeadbeef, &size);
 415     error = GetLastError();
 416     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error);
 417     nameW = HeapAlloc(GetProcessHeap(), 0, size * sizeof(nameW[0]));
 418     ok(nameW != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 419     ret = pGetComputerNameExW(ComputerNameDnsDomain, nameW, &size);
 420     ok(ret, "GetComputerNameExW(ComputerNameDnsDomain) failed with error %d\n", GetLastError());
 421     HeapFree(GetProcessHeap(), 0, nameW);
 422
 423     size = 0;
 424     ret = pGetComputerNameExW(ComputerNameDnsFullyQualified, (LPWSTR)0xdeadbeef, &size);
 425     error = GetLastError();
 426     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error);
 427     nameW = HeapAlloc(GetProcessHeap(), 0, size * sizeof(nameW[0]));
 428     ok(nameW != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 429     ret = pGetComputerNameExW(ComputerNameDnsFullyQualified, nameW, &size);
 430     ok(ret, "GetComputerNameExW(ComputerNameDnsFullyQualified) failed with error %d\n", GetLastError());
 431     HeapFree(GetProcessHeap(), 0, nameW);
 432
 433     size = 0;
 434     ret = pGetComputerNameExW(ComputerNameDnsHostname, (LPWSTR)0xdeadbeef, &size);
 435     error = GetLastError();
 436     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error);
 437     nameW = HeapAlloc(GetProcessHeap(), 0, size * sizeof(nameW[0]));
 438     ok(nameW != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 439     ret = pGetComputerNameExW(ComputerNameDnsHostname, nameW, &size);
 440     ok(ret, "GetComputerNameExW(ComputerNameDnsHostname) failed with error %d\n", GetLastError());
 441     HeapFree(GetProcessHeap(), 0, nameW);
 442
 443     size = 0;
 444     ret = pGetComputerNameExW(ComputerNameNetBIOS, (LPWSTR)0xdeadbeef, &size);
 445     error = GetLastError();
 446     ok(!ret && error == ERROR_MORE_DATA, "GetComputerNameExW should have failed with ERROR_MORE_DATA instead of %d\n", error);
 447     nameW = HeapAlloc(GetProcessHeap(), 0, size * sizeof(nameW[0]));
 448     ok(nameW != NULL, "HeapAlloc failed with error %d\n", GetLastError());
 449     ret = pGetComputerNameExW(ComputerNameNetBIOS, nameW, &size);
 450     ok(ret, "GetComputerNameExW(ComputerNameNetBIOS) failed with error %d\n", GetLastError());
 451     HeapFree(GetProcessHeap(), 0, nameW);
 452 }
 453
 454 START_TEST(environ)
 455 {
 456     test_GetSetEnvironmentVariableA();
 457     test_GetSetEnvironmentVariableW();
 458     test_ExpandEnvironmentStringsA();
 459     test_GetComputerName();
 460 }