dlls/mscoree/tests/mscoree.c

   1 /*
   2  * Copyright 2010 Louis Lenders
   3  * Copyright 2011 André Hentschel
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  */
  19
  20 #include <stdio.h>
  21
  22 #define COBJMACROS
  23
  24 #include "corerror.h"
  25 #include "mscoree.h"
  26 #include "metahost.h"
  27 #include "shlwapi.h"
  28 #include "initguid.h"
  29 #include "wine/test.h"
  30
  31 DEFINE_GUID(IID__AppDomain, 0x05f696dc,0x2b29,0x3663,0xad,0x8b,0xc4,0x38,0x9c,0xf2,0xa7,0x13);
  32
  33 static const WCHAR v4_0[] = {'v','4','.','0','.','3','0','3','1','9',0};
  34
  35 static HMODULE hmscoree;
  36
  37 static HRESULT (WINAPI *pGetCORVersion)(LPWSTR, DWORD, DWORD*);
  38 static HRESULT (WINAPI *pGetCORSystemDirectory)(LPWSTR, DWORD, DWORD*);
  39 static HRESULT (WINAPI *pGetRequestedRuntimeInfo)(LPCWSTR, LPCWSTR, LPCWSTR, DWORD, DWORD, LPWSTR, DWORD, DWORD*, LPWSTR, DWORD, DWORD*);
  40 static HRESULT (WINAPI *pLoadLibraryShim)(LPCWSTR, LPCWSTR, LPVOID, HMODULE*);
  41 static HRESULT (WINAPI *pCreateConfigStream)(LPCWSTR, IStream**);
  42 static HRESULT (WINAPI *pCreateInterface)(REFCLSID, REFIID, VOID**);
  43 static HRESULT (WINAPI *pCLRCreateInstance)(REFCLSID, REFIID, VOID**);
  44
  45 static BOOL no_legacy_runtimes;
  46
  47 static BOOL init_functionpointers(void)
  48 {
  49     hmscoree = LoadLibraryA("mscoree.dll");
  50
  51     if (!hmscoree)
  52     {
  53         win_skip("mscoree.dll not available\n");
  54         return FALSE;
  55     }
  56
  57     pGetCORVersion = (void *)GetProcAddress(hmscoree, "GetCORVersion");
  58     pGetCORSystemDirectory = (void *)GetProcAddress(hmscoree, "GetCORSystemDirectory");
  59     pGetRequestedRuntimeInfo = (void *)GetProcAddress(hmscoree, "GetRequestedRuntimeInfo");
  60     pLoadLibraryShim = (void *)GetProcAddress(hmscoree, "LoadLibraryShim");
  61     pCreateConfigStream = (void *)GetProcAddress(hmscoree, "CreateConfigStream");
  62     pCreateInterface =  (void *)GetProcAddress(hmscoree, "CreateInterface");
  63     pCLRCreateInstance = (void *)GetProcAddress(hmscoree, "CLRCreateInstance");
  64
  65     if (!pGetCORVersion || !pGetCORSystemDirectory || !pGetRequestedRuntimeInfo || !pLoadLibraryShim ||
  66         !pCreateInterface || !pCLRCreateInstance
  67         )
  68     {
  69         win_skip("functions not available\n");
  70         FreeLibrary(hmscoree);
  71         return FALSE;
  72     }
  73
  74     return TRUE;
  75 }
  76
  77 static int check_runtime(void)
  78 {
  79     ICLRMetaHost *metahost;
  80     ICLRRuntimeInfo *runtimeinfo;
  81     ICorRuntimeHost *runtimehost;
  82     HRESULT hr;
  83
  84     if (!pCLRCreateInstance)
  85     {
  86         win_skip("Function CLRCreateInstance not found.\n");
  87         return 1;
  88     }
  89
  90     hr = pCLRCreateInstance(&CLSID_CLRMetaHost, &IID_ICLRMetaHost, (void **)&metahost);
  91     if (hr == E_NOTIMPL)
  92     {
  93         win_skip("CLRCreateInstance not implemented\n");
  94         return 1;
  95     }
  96     ok(SUCCEEDED(hr), "CLRCreateInstance failed, hr=%#.8x\n", hr);
  97     if (FAILED(hr))
  98         return 1;
  99
 100     hr = ICLRMetaHost_GetRuntime(metahost, v4_0, &IID_ICLRRuntimeInfo, (void **)&runtimeinfo);
 101     ok(SUCCEEDED(hr), "ICLRMetaHost::GetRuntime failed, hr=%#.8x\n", hr);
 102     if (FAILED(hr))
 103         return 1;
 104
 105     hr = ICLRRuntimeInfo_GetInterface(runtimeinfo, &CLSID_CorRuntimeHost, &IID_ICorRuntimeHost,
 106         (void **)&runtimehost);
 107     ok(SUCCEEDED(hr), "ICLRRuntimeInfo::GetInterface failed, hr=%#.8x\n", hr);
 108     if (FAILED(hr))
 109         return 1;
 110
 111     hr = ICorRuntimeHost_Start(runtimehost);
 112     ok(SUCCEEDED(hr), "ICorRuntimeHost::Start failed, hr=%#.8x\n", hr);
 113     if (FAILED(hr))
 114         return 1;
 115
 116     ICorRuntimeHost_Release(runtimehost);
 117
 118     ICLRRuntimeInfo_Release(runtimeinfo);
 119
 120     ICLRMetaHost_ExitProcess(metahost, 0);
 121
 122     ok(0, "ICLRMetaHost_ExitProcess is not supposed to return\n");
 123     return 1;
 124 }
 125
 126 static BOOL runtime_is_usable(void)
 127 {
 128     static const char cmdline_format[] = "\"%s\" mscoree check_runtime";
 129     char** argv;
 130     char cmdline[MAX_PATH + sizeof(cmdline_format)];
 131     STARTUPINFOA si = {0};
 132     PROCESS_INFORMATION pi;
 133     BOOL ret;
 134     DWORD exitcode;
 135
 136     winetest_get_mainargs(&argv);
 137
 138     sprintf(cmdline, cmdline_format, argv[0]);
 139
 140     si.cb = sizeof(si);
 141
 142     ret = CreateProcessA(NULL, cmdline, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
 143     ok(ret, "CreateProcessA failed\n");
 144     if (!ret)
 145         return FALSE;
 146
 147     CloseHandle(pi.hThread);
 148
 149     WaitForSingleObject(pi.hProcess, INFINITE);
 150
 151     ret = GetExitCodeProcess(pi.hProcess, &exitcode);
 152     CloseHandle(pi.hProcess);
 153
 154     ok(ret, "GetExitCodeProcess failed\n");
 155
 156     if (!ret || exitcode != 0)
 157     {
 158         win_skip(".NET 4.0 runtime is not usable\n");
 159         return FALSE;
 160     }
 161
 162     return TRUE;
 163 }
 164
 165 static void test_versioninfo(void)
 166 {
 167     const WCHAR v9_0[] = {'v','9','.','0','.','3','0','3','1','9',0};
 168     const WCHAR v2_0cap[] = {'V','2','.','0','.','5','0','7','2','7',0};
 169     const WCHAR v2_0[] = {'v','2','.','0','.','5','0','7','2','7',0};
 170     const WCHAR v2_0_0[] = {'v','2','.','0','.','0',0};
 171     const WCHAR v1_1[] = {'v','1','.','1','.','4','3','2','2',0};
 172     const WCHAR v1_1_0[] = {'v','1','.','1','.','0',0};
 173
 174     WCHAR version[MAX_PATH];
 175     WCHAR path[MAX_PATH];
 176     DWORD size, path_len;
 177     HRESULT hr;
 178
 179     if (0)  /* crashes on <= w2k3 */
 180     {
 181         hr = pGetCORVersion(NULL, MAX_PATH, &size);
 182         ok(hr == E_POINTER,"GetCORVersion returned %08x\n", hr);
 183     }
 184
 185     hr =  pGetCORVersion(version, 1, &size);
 186     if (hr == CLR_E_SHIM_RUNTIME)
 187     {
 188         no_legacy_runtimes = TRUE;
 189         win_skip("No legacy .NET runtimes are installed\n");
 190         return;
 191     }
 192
 193     ok(hr == E_NOT_SUFFICIENT_BUFFER, "GetCORVersion returned %08x\n", hr);
 194
 195     hr =  pGetCORVersion(version, MAX_PATH, &size);
 196     ok(hr == S_OK,"GetCORVersion returned %08x\n", hr);
 197
 198     trace("latest installed .net runtime: %s\n", wine_dbgstr_w(version));
 199
 200     hr = pGetCORSystemDirectory(path, MAX_PATH , &size);
 201     ok(hr == S_OK, "GetCORSystemDirectory returned %08x\n", hr);
 202     /* size includes terminating null-character */
 203     ok(size == (lstrlenW(path) + 1),"size is %d instead of %d\n", size, (lstrlenW(path) + 1));
 204
 205     path_len = size;
 206
 207     hr = pGetCORSystemDirectory(path, path_len-1 , &size);
 208     ok(hr == E_NOT_SUFFICIENT_BUFFER, "GetCORSystemDirectory returned %08x\n", hr);
 209
 210     if (0)  /* crashes on <= w2k3 */
 211     {
 212         hr = pGetCORSystemDirectory(NULL, MAX_PATH , &size);
 213         ok(hr == E_NOT_SUFFICIENT_BUFFER, "GetCORSystemDirectory returned %08x\n", hr);
 214     }
 215
 216     hr = pGetCORSystemDirectory(path, MAX_PATH , NULL);
 217     ok(hr == E_POINTER,"GetCORSystemDirectory returned %08x\n", hr);
 218
 219     trace("latest installed .net installed in directory: %s\n", wine_dbgstr_w(path));
 220
 221     /* test GetRequestedRuntimeInfo, first get info about different versions of runtime */
 222     hr = pGetRequestedRuntimeInfo( NULL, v2_0, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, &size);
 223
 224     if(hr == CLR_E_SHIM_RUNTIME) return; /* skipping rest of tests on win2k as .net 2.0 not installed */
 225
 226     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 227     trace(" installed in directory %s is .net version %s\n", wine_dbgstr_w(path), wine_dbgstr_w(version));
 228
 229     hr = pGetRequestedRuntimeInfo( NULL, v1_1, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, &size);
 230     ok(hr == S_OK || hr == CLR_E_SHIM_RUNTIME /*v1_1 not installed*/, "GetRequestedRuntimeInfo returned %08x\n", hr);
 231     if(hr == S_OK)
 232         trace(" installed in directory %s is .net version %s\n", wine_dbgstr_w(path), wine_dbgstr_w(version));
 233     /* version number NULL not allowed without RUNTIME_INFO_UPGRADE_VERSION flag */
 234     hr = pGetRequestedRuntimeInfo( NULL, NULL, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, &size);
 235     ok(hr == CLR_E_SHIM_RUNTIME, "GetRequestedRuntimeInfo returned %08x\n", hr);
 236     /* with RUNTIME_INFO_UPGRADE_VERSION flag and version number NULL, latest installed version is returned */
 237     hr = pGetRequestedRuntimeInfo( NULL, NULL, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, path, MAX_PATH, &path_len, version, MAX_PATH, &size);
 238     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 239
 240     hr = pGetRequestedRuntimeInfo( NULL, v2_0, NULL, 0, 0, path, 1, &path_len, version, MAX_PATH, &size);
 241     ok(hr == E_NOT_SUFFICIENT_BUFFER, "GetRequestedRuntimeInfo returned %08x\n", hr);
 242
 243     /* if one of the buffers is NULL, the other one is still happily filled */
 244     memset(version, 0, sizeof(version));
 245     hr = pGetRequestedRuntimeInfo( NULL, v2_0, NULL, 0, 0, NULL, MAX_PATH, &path_len, version, MAX_PATH, &size);
 246     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 247     ok(!winetest_strcmpW(version, v2_0), "version is %s , expected %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v2_0));
 248     /* With NULL-pointer for bufferlength, the buffer itself still gets filled with correct string */
 249     memset(version, 0, sizeof(version));
 250     hr = pGetRequestedRuntimeInfo( NULL, v2_0, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 251     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 252     ok(!winetest_strcmpW(version, v2_0), "version is %s , expected %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v2_0));
 253
 254     memset(version, 0, sizeof(version));
 255     hr = pGetRequestedRuntimeInfo( NULL, v2_0cap, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 256     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 257     ok(!winetest_strcmpW(version, v2_0cap), "version is %s , expected %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v2_0cap));
 258
 259     /* Invalid Version and RUNTIME_INFO_UPGRADE_VERSION flag*/
 260     memset(version, 0, sizeof(version));
 261     hr = pGetRequestedRuntimeInfo( NULL, v1_1, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 262     ok(hr == S_OK  || hr == CLR_E_SHIM_RUNTIME , "GetRequestedRuntimeInfo returned %08x\n", hr);
 263     if(hr == S_OK)
 264     {
 265         /* .NET 1.1 may not be installed. */
 266         ok(!winetest_strcmpW(version, v1_1) || !winetest_strcmpW(version, v2_0),
 267            "version is %s , expected %s or %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v1_1), wine_dbgstr_w(v2_0));
 268
 269     }
 270
 271     memset(version, 0, sizeof(version));
 272     hr = pGetRequestedRuntimeInfo( NULL, v9_0, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 273     ok(hr == CLR_E_SHIM_RUNTIME, "GetRequestedRuntimeInfo returned %08x\n", hr);
 274
 275     memset(version, 0, sizeof(version));
 276     hr = pGetRequestedRuntimeInfo( NULL, v1_1_0, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 277     ok(hr == CLR_E_SHIM_RUNTIME, "GetRequestedRuntimeInfo returned %08x\n", hr);
 278
 279     memset(version, 0, sizeof(version));
 280     hr = pGetRequestedRuntimeInfo( NULL, v1_1_0, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 281     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 282     ok(!winetest_strcmpW(version, v2_0), "version is %s , expected %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v2_0));
 283
 284     memset(version, 0, sizeof(version));
 285     hr = pGetRequestedRuntimeInfo( NULL, v2_0_0, NULL, 0, 0, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 286     ok(hr == CLR_E_SHIM_RUNTIME, "GetRequestedRuntimeInfo returned %08x\n", hr);
 287
 288     memset(version, 0, sizeof(version));
 289     hr = pGetRequestedRuntimeInfo( NULL, v2_0_0, NULL, 0, RUNTIME_INFO_UPGRADE_VERSION, path, MAX_PATH, &path_len, version, MAX_PATH, NULL);
 290     ok(hr == S_OK, "GetRequestedRuntimeInfo returned %08x\n", hr);
 291     ok(!winetest_strcmpW(version, v2_0), "version is %s , expected %s\n", wine_dbgstr_w(version), wine_dbgstr_w(v2_0));
 292 }
 293
 294 static void test_loadlibraryshim(void)
 295 {
 296     const WCHAR v2_0[] = {'v','2','.','0','.','5','0','7','2','7',0};
 297     const WCHAR v1_1[] = {'v','1','.','1','.','4','3','2','2',0};
 298     const WCHAR vbogus[] = {'v','b','o','g','u','s',0};
 299     const WCHAR fusion[] = {'f','u','s','i','o','n',0};
 300     const WCHAR fusiondll[] = {'f','u','s','i','o','n','.','d','l','l',0};
 301     const WCHAR nosuchdll[] = {'j','n','v','n','l','.','d','l','l',0};
 302     const WCHAR gdidll[] = {'g','d','i','3','2','.','d','l','l',0};
 303     HRESULT hr;
 304     const WCHAR *latest = NULL;
 305     CHAR latestA[MAX_PATH];
 306     HMODULE hdll;
 307     CHAR dllpath[MAX_PATH];
 308
 309     if (no_legacy_runtimes)
 310     {
 311         win_skip("No legacy .NET runtimes are installed\n");
 312         return;
 313     }
 314
 315     hr = pLoadLibraryShim(fusion, v1_1, NULL, &hdll);
 316     ok(hr == S_OK || hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 317     if (SUCCEEDED(hr))
 318     {
 319         latest = v1_1;
 320
 321         GetModuleFileNameA(hdll, dllpath, MAX_PATH);
 322
 323         todo_wine ok(StrStrIA(dllpath, "v1.1.4322") != 0, "incorrect fusion.dll path %s\n", dllpath);
 324         ok(StrStrIA(dllpath, "fusion.dll") != 0, "incorrect fusion.dll path %s\n", dllpath);
 325
 326         FreeLibrary(hdll);
 327     }
 328
 329     hr = pLoadLibraryShim(fusion, v2_0, NULL, &hdll);
 330     ok(hr == S_OK || hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 331     if (SUCCEEDED(hr))
 332     {
 333         latest = v2_0;
 334
 335         GetModuleFileNameA(hdll, dllpath, MAX_PATH);
 336
 337         todo_wine ok(StrStrIA(dllpath, "v2.0.50727") != 0, "incorrect fusion.dll path %s\n", dllpath);
 338         ok(StrStrIA(dllpath, "fusion.dll") != 0, "incorrect fusion.dll path %s\n", dllpath);
 339
 340         FreeLibrary(hdll);
 341     }
 342
 343     hr = pLoadLibraryShim(fusion, v4_0, NULL, &hdll);
 344     ok(hr == S_OK || hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 345     if (SUCCEEDED(hr))
 346     {
 347         /* LoadLibraryShim with a NULL version prefers 2.0 and earlier */
 348         if (!latest)
 349             latest = v4_0;
 350
 351         GetModuleFileNameA(hdll, dllpath, MAX_PATH);
 352
 353         todo_wine ok(StrStrIA(dllpath, "v4.0.30319") != 0, "incorrect fusion.dll path %s\n", dllpath);
 354         ok(StrStrIA(dllpath, "fusion.dll") != 0, "incorrect fusion.dll path %s\n", dllpath);
 355
 356         FreeLibrary(hdll);
 357     }
 358
 359     hr = pLoadLibraryShim(fusion, vbogus, NULL, &hdll);
 360     todo_wine ok(hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 361     if (SUCCEEDED(hr))
 362         FreeLibrary(hdll);
 363
 364     WideCharToMultiByte(CP_ACP, 0, latest, -1, latestA, MAX_PATH, NULL, NULL);
 365
 366     hr = pLoadLibraryShim(fusion, NULL, NULL, &hdll);
 367     ok(hr == S_OK, "LoadLibraryShim failed, hr=%x\n", hr);
 368     if (SUCCEEDED(hr))
 369     {
 370         GetModuleFileNameA(hdll, dllpath, MAX_PATH);
 371
 372         if (latest)
 373             todo_wine ok(StrStrIA(dllpath, latestA) != 0, "incorrect fusion.dll path %s\n", dllpath);
 374         ok(StrStrIA(dllpath, "fusion.dll") != 0, "incorrect fusion.dll path %s\n", dllpath);
 375
 376         FreeLibrary(hdll);
 377     }
 378
 379     hr = pLoadLibraryShim(fusiondll, NULL, NULL, &hdll);
 380     ok(hr == S_OK, "LoadLibraryShim failed, hr=%x\n", hr);
 381     if (SUCCEEDED(hr))
 382     {
 383         GetModuleFileNameA(hdll, dllpath, MAX_PATH);
 384
 385         if (latest)
 386             todo_wine ok(StrStrIA(dllpath, latestA) != 0, "incorrect fusion.dll path %s\n", dllpath);
 387         ok(StrStrIA(dllpath, "fusion.dll") != 0, "incorrect fusion.dll path %s\n", dllpath);
 388
 389         FreeLibrary(hdll);
 390     }
 391
 392     hr = pLoadLibraryShim(nosuchdll, latest, NULL, &hdll);
 393     ok(hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 394     if (SUCCEEDED(hr))
 395         FreeLibrary(hdll);
 396
 397     hr = pLoadLibraryShim(gdidll, latest, NULL, &hdll);
 398     todo_wine ok(hr == E_HANDLE, "LoadLibraryShim failed, hr=%x\n", hr);
 399     if (SUCCEEDED(hr))
 400         FreeLibrary(hdll);
 401 }
 402
 403 static const char xmldata[] =
 404     "<?xml version=\"1.0\" ?>\n"
 405     "<!DOCTYPE Config>\n"
 406     "<Configuration>\n"
 407     "  <Name>Test</Name>\n"
 408     "  <Value>1234</Value>\n"
 409     "</Configuration>";
 410
 411 static void create_xml_file(LPCWSTR filename)
 412 {
 413     DWORD dwNumberOfBytesWritten;
 414     HANDLE hfile = CreateFileW(filename, GENERIC_WRITE, 0, NULL,
 415                               CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
 416     ok(hfile != INVALID_HANDLE_VALUE, "File creation failed\n");
 417     WriteFile(hfile, xmldata, sizeof(xmldata) - 1, &dwNumberOfBytesWritten, NULL);
 418     CloseHandle(hfile);
 419 }
 420
 421 static void test_createconfigstream(void)
 422 {
 423     IStream *stream = NULL;
 424     WCHAR file[] = {'c', 'o', 'n', 'f', '.', 'x', 'm', 'l', 0};
 425     WCHAR nonexistent[] = {'n', 'o', 'n', 'e', 'x', 'i', 's', 't', '.', 'x', 'm', 'l', 0};
 426     WCHAR path[MAX_PATH];
 427     HRESULT hr;
 428     char buffer[256] = {0};
 429
 430     if (!pCreateConfigStream)
 431     {
 432         win_skip("CreateConfigStream not available\n");
 433         return;
 434     }
 435
 436     create_xml_file(file);
 437     GetFullPathNameW(file, MAX_PATH, path, NULL);
 438
 439     hr = pCreateConfigStream(NULL, &stream);
 440     todo_wine ok(hr == E_FAIL ||
 441                  broken(hr == HRESULT_FROM_WIN32(ERROR_PROC_NOT_FOUND)) || /* some WinXP, Win2K3 and Win7 */
 442                  broken(hr == S_OK && !stream), /* some Win2K3 */
 443                  "CreateConfigStream returned %x\n", hr);
 444
 445     hr = pCreateConfigStream(path, NULL);
 446     todo_wine ok(hr == COR_E_NULLREFERENCE, "CreateConfigStream returned %x\n", hr);
 447
 448     hr = pCreateConfigStream(NULL, NULL);
 449     todo_wine ok(hr == COR_E_NULLREFERENCE, "CreateConfigStream returned %x\n", hr);
 450
 451     hr = pCreateConfigStream(nonexistent, &stream);
 452     todo_wine ok(hr == COR_E_FILENOTFOUND, "CreateConfigStream returned %x\n", hr);
 453     ok(stream == NULL, "Expected stream to be NULL\n");
 454
 455     hr = pCreateConfigStream(path, &stream);
 456     todo_wine ok(hr == S_OK, "CreateConfigStream failed, hr=%x\n", hr);
 457     todo_wine ok(stream != NULL, "Expected non-NULL stream\n");
 458
 459     if (stream)
 460     {
 461         DWORD count;
 462         LARGE_INTEGER pos;
 463         ULARGE_INTEGER size;
 464         IStream *stream2 = NULL;
 465
 466         hr = IStream_Read(stream, buffer, strlen(xmldata), &count);
 467         ok(hr == S_OK, "IStream_Read failed, hr=%x\n", hr);
 468         ok(count == strlen(xmldata), "wrong count: %u\n", count);
 469         ok(!strcmp(buffer, xmldata), "Strings do not match\n");
 470
 471         hr = IStream_Write(stream, xmldata, strlen(xmldata), &count);
 472         ok(hr == E_FAIL, "IStream_Write returned hr=%x\n", hr);
 473
 474         pos.QuadPart = strlen(xmldata);
 475         hr = IStream_Seek(stream, pos, STREAM_SEEK_SET, NULL);
 476         ok(hr == E_NOTIMPL, "IStream_Seek returned hr=%x\n", hr);
 477
 478         size.QuadPart = strlen(xmldata);
 479         hr = IStream_SetSize(stream, size);
 480         ok(hr == E_NOTIMPL, "IStream_SetSize returned hr=%x\n", hr);
 481
 482         hr = IStream_Clone(stream, &stream2);
 483         ok(hr == E_NOTIMPL, "IStream_Clone returned hr=%x\n", hr);
 484
 485         hr = IStream_Commit(stream, STGC_DEFAULT);
 486         ok(hr == E_NOTIMPL, "IStream_Commit returned hr=%x\n", hr);
 487
 488         hr = IStream_Revert(stream);
 489         ok(hr == E_NOTIMPL, "IStream_Revert returned hr=%x\n", hr);
 490
 491         hr = IStream_Release(stream);
 492         ok(hr == S_OK, "IStream_Release returned hr=%x\n", hr);
 493     }
 494     DeleteFileW(file);
 495 }
 496
 497 static void test_createinstance(void)
 498 {
 499     HRESULT hr;
 500     ICLRMetaHost *host;
 501
 502     if (no_legacy_runtimes)
 503     {
 504         /* If we don't have 1.x or 2.0 runtimes, we should at least have .NET 4. */
 505         ok(pCreateInterface != NULL, "no legacy runtimes or .NET 4 interfaces available\n");
 506     }
 507
 508     if(!pCreateInterface)
 509     {
 510         win_skip("Function CreateInterface not found.\n");
 511         return;
 512     }
 513
 514     hr = pCreateInterface(&CLSID_CLRMetaHost, &IID_ICLRMetaHost, (void**)&host);
 515     if(SUCCEEDED(hr))
 516     {
 517         ICLRMetaHost_Release(host);
 518     }
 519     else
 520     {
 521         win_skip(".NET 4 not installed.\n");
 522     }
 523 }
 524
 525 static void test_createdomain(void)
 526 {
 527     static const WCHAR test_name[] = {'t','e','s','t',0};
 528     static const WCHAR test2_name[] = {'t','e','s','t','2',0};
 529     ICLRMetaHost *metahost;
 530     ICLRRuntimeInfo *runtimeinfo;
 531     ICorRuntimeHost *runtimehost;
 532     IUnknown *domain, *defaultdomain_unk, *defaultdomain, *newdomain_unk, *newdomain, *domainsetup,
 533         *newdomain2_unk, *newdomain2;
 534     HRESULT hr;
 535
 536     if (!pCLRCreateInstance)
 537     {
 538         win_skip("Function CLRCreateInstance not found.\n");
 539         return;
 540     }
 541
 542     hr = pCLRCreateInstance(&CLSID_CLRMetaHost, &IID_ICLRMetaHost, (void **)&metahost);
 543     ok(SUCCEEDED(hr), "CLRCreateInstance failed, hr=%#.8x\n", hr);
 544
 545     hr = ICLRMetaHost_GetRuntime(metahost, v4_0, &IID_ICLRRuntimeInfo, (void **)&runtimeinfo);
 546     ok(SUCCEEDED(hr), "ICLRMetaHost::GetRuntime failed, hr=%#.8x\n", hr);
 547
 548     hr = ICLRRuntimeInfo_GetInterface(runtimeinfo, &CLSID_CorRuntimeHost, &IID_ICorRuntimeHost,
 549         (void **)&runtimehost);
 550     ok(SUCCEEDED(hr), "ICLRRuntimeInfo::GetInterface failed, hr=%#.8x\n", hr);
 551
 552     hr = ICorRuntimeHost_Start(runtimehost);
 553     ok(SUCCEEDED(hr), "ICorRuntimeHost::Start failed, hr=%#.8x\n", hr);
 554
 555     hr = ICorRuntimeHost_GetDefaultDomain(runtimehost, &domain);
 556     ok(SUCCEEDED(hr), "ICorRuntimeHost::GetDefaultDomain failed, hr=%#.8x\n", hr);
 557
 558     hr = IUnknown_QueryInterface(domain, &IID_IUnknown, (void **)&defaultdomain_unk);
 559     ok(SUCCEEDED(hr), "COM object doesn't support IUnknown?!\n");
 560
 561     hr = IUnknown_QueryInterface(domain, &IID__AppDomain, (void **)&defaultdomain);
 562     ok(SUCCEEDED(hr), "AppDomain object doesn't support _AppDomain interface\n");
 563
 564     IUnknown_Release(domain);
 565
 566     hr = ICorRuntimeHost_CreateDomain(runtimehost, test_name, NULL, &domain);
 567     ok(SUCCEEDED(hr), "ICorRuntimeHost::CreateDomain failed, hr=%#.8x\n", hr);
 568
 569     hr = IUnknown_QueryInterface(domain, &IID_IUnknown, (void **)&newdomain_unk);
 570     ok(SUCCEEDED(hr), "COM object doesn't support IUnknown?!\n");
 571
 572     hr = IUnknown_QueryInterface(domain, &IID__AppDomain, (void **)&newdomain);
 573     ok(SUCCEEDED(hr), "AppDomain object doesn't support _AppDomain interface\n");
 574
 575     IUnknown_Release(domain);
 576
 577     ok(defaultdomain_unk != newdomain_unk, "New and default domain objects are the same\n");
 578
 579     hr = ICorRuntimeHost_CreateDomainSetup(runtimehost, &domainsetup);
 580     ok(SUCCEEDED(hr), "ICorRuntimeHost::CreateDomainSetup failed, hr=%#.8x\n", hr);
 581
 582     hr = ICorRuntimeHost_CreateDomainEx(runtimehost, test2_name, domainsetup, NULL, &domain);
 583     ok(SUCCEEDED(hr), "ICorRuntimeHost::CreateDomainEx failed, hr=%#.8x\n", hr);
 584
 585     hr = IUnknown_QueryInterface(domain, &IID_IUnknown, (void **)&newdomain2_unk);
 586     ok(SUCCEEDED(hr), "COM object doesn't support IUnknown?!\n");
 587
 588     hr = IUnknown_QueryInterface(domain, &IID__AppDomain, (void **)&newdomain2);
 589     ok(SUCCEEDED(hr), "AppDomain object doesn't support _AppDomain interface\n");
 590
 591     IUnknown_Release(domain);
 592
 593     ok(defaultdomain_unk != newdomain2_unk, "New and default domain objects are the same\n");
 594     ok(newdomain_unk != newdomain2_unk, "Both new domain objects are the same\n");
 595
 596     IUnknown_Release(newdomain2);
 597     IUnknown_Release(newdomain2_unk);
 598     IUnknown_Release(domainsetup);
 599     IUnknown_Release(newdomain);
 600     IUnknown_Release(newdomain_unk);
 601     IUnknown_Release(defaultdomain);
 602     IUnknown_Release(defaultdomain_unk);
 603
 604     ICorRuntimeHost_Release(runtimehost);
 605
 606     ICLRRuntimeInfo_Release(runtimeinfo);
 607
 608     ICLRMetaHost_Release(metahost);
 609 }
 610
 611 START_TEST(mscoree)
 612 {
 613     int argc;
 614     char** argv;
 615
 616     if (!init_functionpointers())
 617         return;
 618
 619     argc = winetest_get_mainargs(&argv);
 620     if (argc >= 3 && !strcmp(argv[2], "check_runtime"))
 621     {
 622         int result = check_runtime();
 623         FreeLibrary(hmscoree);
 624         exit(result);
 625     }
 626
 627     test_versioninfo();
 628     test_loadlibraryshim();
 629     test_createconfigstream();
 630     test_createinstance();
 631
 632     if (runtime_is_usable())
 633     {
 634         test_createdomain();
 635     }
 636
 637     FreeLibrary(hmscoree);
 638 }