dlls/sxs/tests/sxs.c

   1 /*
   2  * Copyright 2018 Fabian Maurer
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdio.h>
  20
  21 #define COBJMACROS
  22
  23 #include <windows.h>
  24 #include <winsxs.h>
  25 #include <corerror.h>
  26 #include "shlwapi.h"
  27
  28 #include "wine/test.h"
  29 #include "wine/heap.h"
  30
  31 #include "initguid.h"
  32 #include "interfaces.h"
  33
  34 #define SXS_LOOKUP_CLR_GUID_USE_ACTCTX     0x00000001
  35 #define SXS_LOOKUP_CLR_GUID_FIND_SURROGATE 0x00010000
  36 #define SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS 0x00020000
  37 #define SXS_LOOKUP_CLR_GUID_FIND_ANY       (SXS_LOOKUP_CLR_GUID_FIND_SURROGATE | SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS)
  38
  39 #define SXS_GUID_INFORMATION_CLR_FLAG_IS_SURROGATE  0x00000001
  40 #define SXS_GUID_INFORMATION_CLR_FLAG_IS_CLASS      0x00000002
  41
  42 typedef struct _SXS_GUID_INFORMATION_CLR
  43 {
  44     DWORD cbSize;
  45     DWORD dwFlags;
  46     PCWSTR pcwszRuntimeVersion;
  47     PCWSTR pcwszTypeName;
  48     PCWSTR pcwszAssemblyIdentity;
  49 } SXS_GUID_INFORMATION_CLR;
  50
  51 /* Defined in sxs.dll, but not found in any header */
  52 BOOL WINAPI SxsLookupClrGuid(DWORD flags, GUID *clsid, HANDLE actctx, void *buffer, SIZE_T buffer_len, SIZE_T *buffer_len_required);
  53
  54 static BOOL write_resource_file(const char *path_tmp, const char *name_res, const char *name_file, char *path_file)
  55 {
  56     HRSRC rsrc;
  57     void *rsrc_data;
  58     DWORD rsrc_size;
  59     BOOL ret;
  60     HANDLE hfile;
  61
  62     path_file[0] = 0;
  63     rsrc = FindResourceA(GetModuleHandleA(NULL), name_res, (LPCSTR)RT_RCDATA);
  64     if (!rsrc) return FALSE;
  65
  66     rsrc_data = LockResource(LoadResource(GetModuleHandleA(NULL), rsrc));
  67     if (!rsrc_data) return FALSE;
  68
  69     rsrc_size = SizeofResource(GetModuleHandleA(NULL), rsrc);
  70     if (!rsrc_size) return FALSE;
  71
  72     strcpy(path_file, path_tmp);
  73     PathAppendA(path_file, name_file);
  74     hfile = CreateFileA(path_file, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  75     if (hfile == INVALID_HANDLE_VALUE) return FALSE;
  76
  77     ret = WriteFile(hfile, rsrc_data, rsrc_size, &rsrc_size, NULL);
  78
  79     CloseHandle(hfile);
  80     return ret;
  81 }
  82
  83 static void run_test(void)
  84 {
  85     SIZE_T buffer_size;
  86     BOOL ret;
  87     SXS_GUID_INFORMATION_CLR *info;
  88
  89     SetLastError(0xdeadbeef);
  90     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_ANY | SXS_LOOKUP_CLR_GUID_USE_ACTCTX, (GUID *)&CLSID_Test,
  91             NULL, NULL, 0, &buffer_size);
  92     ok(!ret, "Unexpected return value %d.\n", ret);
  93     ok(GetLastError() == ERROR_NOT_FOUND, "Unexpected error %d.\n", GetLastError());
  94
  95     SetLastError(0xdeadbeef);
  96     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_ANY | SXS_LOOKUP_CLR_GUID_USE_ACTCTX, (GUID *)&CLSID_Test,
  97             NULL, NULL, 0, &buffer_size);
  98     ok(!ret, "Unexpected return value %d.\n", ret);
  99     ok(GetLastError() == ERROR_NOT_FOUND, "Unexpected error %d.\n", GetLastError());
 100
 101     SetLastError(0xdeadbeef);
 102     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_ANY, (GUID*)&CLSID_Test, NULL, NULL, 0, &buffer_size);
 103     ok(!ret, "Unexpected return value %d.\n", ret);
 104     ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER, "Got %d\n", GetLastError());
 105
 106     SetLastError(0xdeadbeef);
 107     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS, (GUID*)&CLSID_Test, NULL, NULL, 0, &buffer_size);
 108     ok(ret == FALSE, "Got %d\n", ret);
 109     ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER, "Got %d\n", GetLastError());
 110
 111     info = heap_alloc(buffer_size);
 112     SetLastError(0xdeadbeef);
 113     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS, (GUID*)&CLSID_Test, NULL, info, buffer_size, &buffer_size);
 114     ok(ret == TRUE, "Got %d\n", ret);
 115     ok(GetLastError() == 0, "Got %d\n", GetLastError());
 116
 117     ok(info->dwFlags == SXS_GUID_INFORMATION_CLR_FLAG_IS_CLASS, "Got %d\n", info->dwFlags);
 118     ok(!lstrcmpW(info->pcwszTypeName, L"DLL.Test"), "Unexpected typename %s.\n", wine_dbgstr_w(info->pcwszTypeName));
 119     ok(!lstrcmpW(info->pcwszAssemblyIdentity, L"comtest,type=\"win32\",version=\"1.0.0.0\""),
 120            "Unexpected assembly identity %s.\n", wine_dbgstr_w(info->pcwszAssemblyIdentity));
 121     ok(!lstrcmpW(info->pcwszRuntimeVersion, L"v4.0.0.0"), "Unexpected runtime version %s.\n",
 122            wine_dbgstr_w(info->pcwszRuntimeVersion));
 123
 124     heap_free(info);
 125
 126     SetLastError(0xdeadbeef);
 127     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_SURROGATE, (GUID *)&CLSID_SurrogateTest, NULL, NULL, 0, &buffer_size);
 128     ok(!ret, "Unexpected return value %d.\n", ret);
 129     ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER, "Got %d\n", GetLastError());
 130
 131     info = heap_alloc(buffer_size);
 132     SetLastError(0xdeadbeef);
 133     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_SURROGATE, (GUID *)&CLSID_SurrogateTest, NULL, info,
 134             buffer_size, &buffer_size);
 135     ok(ret, "Unexpected return value %d.\n", ret);
 136     ok(GetLastError() == 0, "Got %d\n", GetLastError());
 137
 138     ok(info->dwFlags == SXS_GUID_INFORMATION_CLR_FLAG_IS_SURROGATE, "Unexpected flags %#x.\n", info->dwFlags);
 139     ok(!lstrcmpW(info->pcwszTypeName, L"Surrogate.Test"), "Unexpected typename %s.\n", wine_dbgstr_w(info->pcwszTypeName));
 140     ok(!lstrcmpW(info->pcwszAssemblyIdentity, L"comtest,type=\"win32\",version=\"1.0.0.0\""),
 141            "Unexpected assembly identity %s.\n", wine_dbgstr_w(info->pcwszAssemblyIdentity));
 142     ok(!lstrcmpW(info->pcwszRuntimeVersion, L"v4.0.0.1"), "Unexpected runtime version %s.\n",
 143            wine_dbgstr_w(info->pcwszRuntimeVersion));
 144
 145     heap_free(info);
 146
 147     SetLastError(0xdeadbeef);
 148     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_ANY, (GUID *)&CLSID_SurrogateTest, NULL, NULL, 0, &buffer_size);
 149     ok(!ret, "Unexpected return value %d.\n", ret);
 150     ok(GetLastError() == ERROR_INSUFFICIENT_BUFFER, "Got %d\n", GetLastError());
 151 }
 152
 153 static void prepare_and_run_test(void)
 154 {
 155     char path_tmp[MAX_PATH];
 156     char path_manifest_dll[MAX_PATH];
 157     char path_manifest_exe[MAX_PATH];
 158     BOOL success;
 159     ACTCTXA context = {0};
 160     ULONG_PTR cookie;
 161     HANDLE handle_context = INVALID_HANDLE_VALUE;
 162
 163     GetTempPathA(MAX_PATH, path_tmp);
 164
 165     if (!write_resource_file(path_tmp, "comtest_exe.manifest", "exe.manifest", path_manifest_exe))
 166     {
 167         ok(0, "Failed to create file for testing\n");
 168         goto cleanup;
 169     }
 170
 171     if (!write_resource_file(path_tmp, "comtest_dll.manifest", "comtest.manifest", path_manifest_dll))
 172     {
 173         ok(0, "Failed to create file for testing\n");
 174         goto cleanup;
 175     }
 176
 177     context.cbSize = sizeof(ACTCTXA);
 178     context.lpSource = path_manifest_exe;
 179     context.lpAssemblyDirectory = path_tmp;
 180     context.dwFlags = ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID;
 181
 182     handle_context = CreateActCtxA(&context);
 183     ok(handle_context != INVALID_HANDLE_VALUE, "CreateActCtxA failed: %d\n", GetLastError());
 184
 185     if (handle_context == INVALID_HANDLE_VALUE)
 186     {
 187         ok(0, "Failed to create activation context\n");
 188         goto cleanup;
 189     }
 190
 191     success = ActivateActCtx(handle_context, &cookie);
 192     ok(success, "ActivateActCtx failed: %d\n", GetLastError());
 193
 194     run_test();
 195
 196 cleanup:
 197     if (handle_context != INVALID_HANDLE_VALUE)
 198     {
 199         success = DeactivateActCtx(0, cookie);
 200         ok(success, "DeactivateActCtx failed: %d\n", GetLastError());
 201         ReleaseActCtx(handle_context);
 202     }
 203     if (*path_manifest_exe)
 204     {
 205         success = DeleteFileA(path_manifest_exe);
 206         ok(success, "DeleteFileA failed: %d\n", GetLastError());
 207     }
 208     if(*path_manifest_dll)
 209     {
 210         success = DeleteFileA(path_manifest_dll);
 211         ok(success, "DeleteFileA failed: %d\n", GetLastError());
 212     }
 213 }
 214
 215 static void run_child_process(void)
 216 {
 217     char cmdline[MAX_PATH];
 218     char exe[MAX_PATH];
 219     char **argv;
 220     PROCESS_INFORMATION pi;
 221     STARTUPINFOA si = { 0 };
 222     BOOL ret;
 223
 224     winetest_get_mainargs(&argv);
 225
 226     if (strstr(argv[0], ".exe"))
 227         sprintf(exe, "%s", argv[0]);
 228     else
 229         sprintf(exe, "%s.exe", argv[0]);
 230     sprintf(cmdline, "\"%s\" %s %s", argv[0], argv[1], "subtest");
 231
 232     si.cb = sizeof(si);
 233     ret = CreateProcessA(exe, cmdline, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
 234     ok(ret, "Could not create process: %u\n", GetLastError());
 235
 236     wait_child_process(pi.hProcess);
 237
 238     CloseHandle(pi.hThread);
 239     CloseHandle(pi.hProcess);
 240 }
 241
 242 static void test_SxsLookupClrGuid(void)
 243 {
 244     SIZE_T buffer_size;
 245     BOOL ret;
 246
 247     SetLastError(0xdeadbeef);
 248     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS, (GUID*)&CLSID_Test, NULL, NULL, 0, &buffer_size);
 249     ok(ret == FALSE, "Expected FALSE, got %d\n", ret);
 250     ok(GetLastError() == ERROR_NOT_FOUND, "Expected ERROR_NOT_FOUND, got %d\n", GetLastError());
 251
 252     SetLastError(0xdeadbeef);
 253     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_CLR_CLASS | SXS_LOOKUP_CLR_GUID_USE_ACTCTX, (GUID *)&CLSID_Test,
 254             NULL, NULL, 0, &buffer_size);
 255     ok(!ret, "Unexpected return value %d.\n", ret);
 256     ok(GetLastError() == ERROR_NOT_FOUND, "Expected ERROR_NOT_FOUND, got %d\n", GetLastError());
 257
 258     SetLastError(0xdeadbeef);
 259     ret = SxsLookupClrGuid(SXS_LOOKUP_CLR_GUID_FIND_SURROGATE, (GUID *)&CLSID_Test, NULL, NULL, 0, &buffer_size);
 260     ok(!ret, "Unexpected return value %d.\n", ret);
 261     ok(GetLastError() == ERROR_NOT_FOUND, "Expected ERROR_NOT_FOUND, got %d\n", GetLastError());
 262
 263     run_child_process();
 264 }
 265
 266 START_TEST(sxs)
 267 {
 268     char **argv;
 269     int argc = winetest_get_mainargs(&argv);
 270     if (argc > 2)
 271     {
 272         prepare_and_run_test();
 273         return;
 274     }
 275
 276     test_SxsLookupClrGuid();
 277 }