wine.inf: We should not override existing associations.
[wine/hacks.git] / dlls / kernel / tests / module.c
blobcaf2f68196108825af5498191d2c4fee27d6ef14
1 /*
2 * Unit tests for module/DLL/library API
4 * Copyright (c) 2004 Eric Pouech
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.
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.
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
21 #include "wine/test.h"
22 #include <windows.h>
24 static BOOL is_unicode_enabled = TRUE;
26 static BOOL cmpStrAW(const char* a, const WCHAR* b, DWORD lenA, DWORD lenB)
28 WCHAR aw[1024];
30 DWORD len = MultiByteToWideChar( AreFileApisANSI() ? CP_ACP : CP_OEMCP, 0,
31 a, lenA, aw, sizeof(aw) / sizeof(aw[0]) );
32 if (len != lenB) return FALSE;
33 return memcmp(aw, b, len * sizeof(WCHAR)) == 0;
36 static void testGetModuleFileName(const char* name)
38 HMODULE hMod;
39 char bufA[MAX_PATH];
40 WCHAR bufW[MAX_PATH];
41 DWORD len1A, len1W = 0, len2A, len2W = 0;
43 hMod = (name) ? GetModuleHandle(name) : NULL;
45 /* first test, with enough space in buffer */
46 memset(bufA, '-', sizeof(bufA));
47 len1A = GetModuleFileNameA(hMod, bufA, sizeof(bufA));
48 ok(len1A > 0, "Getting module filename for handle %p\n", hMod);
50 if (is_unicode_enabled)
52 memset(bufW, '-', sizeof(bufW));
53 len1W = GetModuleFileNameW(hMod, bufW, sizeof(bufW) / sizeof(WCHAR));
54 ok(len1W > 0, "Getting module filename for handle %p\n", hMod);
57 ok(len1A == strlen(bufA), "Unexpected length of GetModuleFilenameA (%ld/%d)\n", len1A, lstrlenA(bufA));
59 if (is_unicode_enabled)
61 ok(len1W == lstrlenW(bufW), "Unexpected length of GetModuleFilenameW (%ld/%d)\n", len1W, lstrlenW(bufW));
62 ok(cmpStrAW(bufA, bufW, len1A, len1W), "Comparing GetModuleFilenameAW results\n");
65 /* second test with a buffer too small */
66 memset(bufA, '-', sizeof(bufA));
67 len2A = GetModuleFileNameA(hMod, bufA, len1A / 2);
68 ok(len2A > 0, "Getting module filename for handle %p\n", hMod);
70 if (is_unicode_enabled)
72 memset(bufW, '-', sizeof(bufW));
73 len2W = GetModuleFileNameW(hMod, bufW, len1W / 2);
74 ok(len2W > 0, "Getting module filename for handle %p\n", hMod);
75 ok(cmpStrAW(bufA, bufW, len2A, len2W), "Comparing GetModuleFilenameAW results with buffer too small\n" );
76 ok(len1W / 2 == len2W, "Correct length in GetModuleFilenameW with buffer too small (%ld/%ld)\n", len1W / 2, len2W);
79 ok(len1A / 2 == len2A ||
80 len1A / 2 == len2A + 1, /* Win9x */
81 "Correct length in GetModuleFilenameA with buffer too small (%ld/%ld)\n", len1A / 2, len2A);
84 static void testGetModuleFileName_Wrong(void)
86 char bufA[MAX_PATH];
87 WCHAR bufW[MAX_PATH];
89 /* test wrong handle */
90 if (is_unicode_enabled)
92 bufW[0] = '*';
93 ok(GetModuleFileNameW((void*)0xffffffff, bufW, sizeof(bufW) / sizeof(WCHAR)) == 0, "Unexpected success in module handle\n");
94 ok(bufW[0] == '*', "When failing, buffer shouldn't be written to\n");
97 bufA[0] = '*';
98 ok(GetModuleFileNameA((void*)0xffffffff, bufA, sizeof(bufA)) == 0, "Unexpected success in module handle\n");
99 ok(bufA[0] == '*' ||
100 bufA[0] == 0 /* Win9x */,
101 "When failing, buffer shouldn't be written to\n");
104 static void testLoadLibraryA(void)
106 HMODULE hModule, hModule1;
107 FARPROC fp;
109 SetLastError(0xdeadbeef);
110 hModule = LoadLibraryA("kernel32.dll");
111 ok( hModule != NULL, "kernel32.dll should be loadable\n");
112 ok( GetLastError() == 0xdeadbeef, "GetLastError should be 0xdeadbeef but is %08lx\n", GetLastError());
114 fp = GetProcAddress(hModule, "CreateFileA");
115 ok( fp != NULL, "CreateFileA should be there\n");
116 ok( GetLastError() == 0xdeadbeef, "GetLastError should be 0xdeadbeef but is %08lx\n", GetLastError());
118 SetLastError(0xdeadbeef);
119 hModule1 = LoadLibraryA("kernel32 ");
120 /* Only winNT does this */
121 if (GetLastError() != ERROR_DLL_NOT_FOUND)
123 ok( hModule1 != NULL, "\"kernel32 \" should be loadable\n");
124 ok( GetLastError() == 0xdeadbeef, "GetLastError should be 0xdeadbeef but is %08lx\n", GetLastError());
125 ok( hModule == hModule1, "Loaded wrong module\n");
126 FreeLibrary(hModule1);
128 FreeLibrary(hModule);
131 static void testLoadLibraryA_Wrong(void)
133 HMODULE hModule;
135 /* Try to load a nonexistent dll */
136 SetLastError(0xdeadbeef);
137 hModule = LoadLibraryA("non_ex_pv.dll");
138 ok( !hModule, "non_ex_pv.dll should be not loadable\n");
139 ok( GetLastError() == ERROR_MOD_NOT_FOUND || GetLastError() == ERROR_DLL_NOT_FOUND,
140 "Expected ERROR_MOD_NOT_FOUND or ERROR_DLL_NOT_FOUND (win9x), got %08lx\n", GetLastError());
142 /* Just in case */
143 FreeLibrary(hModule);
146 static void testGetProcAddress_Wrong(void)
148 FARPROC fp;
150 SetLastError(0xdeadbeef);
151 fp = GetProcAddress(NULL, "non_ex_call");
152 ok( !fp, "non_ex_call should not be found\n");
153 ok( GetLastError() == ERROR_PROC_NOT_FOUND || GetLastError() == ERROR_INVALID_HANDLE,
154 "Expected ERROR_PROC_NOT_FOUND or ERROR_INVALID_HANDLE(win9x), got %08lx\n", GetLastError());
156 SetLastError(0xdeadbeef);
157 fp = GetProcAddress((HMODULE)0xdeadbeef, "non_ex_call");
158 ok( !fp, "non_ex_call should not be found\n");
159 ok( GetLastError() == ERROR_MOD_NOT_FOUND || GetLastError() == ERROR_INVALID_HANDLE,
160 "Expected ERROR_MOD_NOT_FOUND or ERROR_INVALID_HANDLE(win9x), got %08lx\n", GetLastError());
163 START_TEST(module)
165 WCHAR filenameW[MAX_PATH];
167 /* Test if we can use GetModuleFileNameW */
169 SetLastError(0xdeadbeef);
170 GetModuleFileNameW(NULL, filenameW, MAX_PATH);
171 if (GetLastError() == ERROR_CALL_NOT_IMPLEMENTED)
173 trace("GetModuleFileNameW not existing on this platform, skipping W-calls\n");
174 is_unicode_enabled = FALSE;
177 testGetModuleFileName(NULL);
178 testGetModuleFileName("kernel32.dll");
179 testGetModuleFileName_Wrong();
181 testLoadLibraryA();
182 testLoadLibraryA_Wrong();
183 testGetProcAddress_Wrong();