Skip to content

W
wine-winehq
Commit 1cfb958a authored by Paul Vriens's avatar Paul Vriens Committed by Alexandre Julliard
Browse files
Options

oleaut32/tests: Skip some tests on win9x.

parent af8d268a
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 2 deletions
dlls/oleaut32/tests/typelib.c
View file @ 1cfb958a
...@@ -585,6 +585,7 @@ static BOOL do_typelib_reg_key(GUID *uid, WORD maj, WORD min, LPCWSTR base, BOOL ...@@ -585,6 +585,7 @@ static BOOL do_typelib_reg_key(GUID *uid, WORD maj, WORD min, LPCWSTR base, BOOL
WCHAR buf[128]; WCHAR buf[128];
HKEY hkey; HKEY hkey;
BOOL ret = TRUE; BOOL ret = TRUE;
DWORD res;
memcpy(buf, typelibW, sizeof(typelibW)); memcpy(buf, typelibW, sizeof(typelibW));
StringFromGUID2(uid, buf + lstrlenW(buf), 40); StringFromGUID2(uid, buf + lstrlenW(buf), 40);
...@@ -597,8 +598,16 @@ static BOOL do_typelib_reg_key(GUID *uid, WORD maj, WORD min, LPCWSTR base, BOOL ...@@ -597,8 +598,16 @@ static BOOL do_typelib_reg_key(GUID *uid, WORD maj, WORD min, LPCWSTR base, BOOL
wsprintfW(buf + lstrlenW(buf), formatW, maj, min ); wsprintfW(buf + lstrlenW(buf), formatW, maj, min );
if (RegCreateKeyExW(HKEY_CLASSES_ROOT, buf, 0, NULL, 0, SetLastError(0xdeadbeef);
KEY_WRITE, NULL, &hkey, NULL) != ERROR_SUCCESS) res = RegCreateKeyExW(HKEY_CLASSES_ROOT, buf, 0, NULL, 0,
KEY_WRITE, NULL, &hkey, NULL);
if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
{
win_skip("W-calls are not implemented\n");
return FALSE;
}
if (res != ERROR_SUCCESS)
{ {
trace("RegCreateKeyExW failed\n"); trace("RegCreateKeyExW failed\n");
return FALSE; return FALSE;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment