Paul Vriens : oleaut32/tests: Skip some tests on win9x.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 1cfb958a2e68a0a65cc8939138769cede0fc7a41
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=1cfb958a2e68a0a65cc8939138...

Author: Paul Vriens 
Date:   Wed Aug 27 21:23:21 2008 +0200

oleaut32/tests: Skip some tests on win9x.

---

dlls/oleaut32/tests/typelib.c |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/dlls/oleaut32/tests/typelib.c b/dlls/oleaut32/tests/typelib.c
index 868470d..23bc85d 100644
--- a/dlls/oleaut32/tests/typelib.c
+++ b/dlls/oleaut32/tests/typelib.c
@@ -585,6 +585,7 @@ static BOOL do_typelib_reg_key(GUID *uid, WORD maj, WORD min, LPCWSTR base, BOOL
     WCHAR buf[128];
     HKEY hkey;
     BOOL ret = TRUE;
+    DWORD res;

memcpy(buf, typelibW, sizeof(typelibW));
     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

wsprintfW(buf + lstrlenW(buf), formatW, maj, min );

-    if (RegCreateKeyExW(HKEY_CLASSES_ROOT, buf, 0, NULL, 0,
-                        KEY_WRITE, NULL, &hkey, NULL) != ERROR_SUCCESS)
+    SetLastError(0xdeadbeef);
+    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");
         return FALSE;