2 * Wine Conformance Test EXE
4 * Copyright 2003 Jakob Eriksson (for Solid Form Sweden AB)
5 * Copyright 2003 Dimitrie O. Paun
6 * Copyright 2003 Ferenc Wagner
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
21 * This program is dedicated to Anna Lindh,
22 * Swedish Minister of Foreign Affairs.
23 * Anna was murdered September 11, 2003.
28 #include "wine/port.h"
40 #define TESTRESOURCE "USERDATA"
58 static struct wine_test
*wine_tests
;
59 static struct rev_info
*rev_infos
;
61 static const char *wineloader
;
68 ver
.dwOSVersionInfoSize
= sizeof(OSVERSIONINFOEX
);
69 if (!(ext
= GetVersionEx ((OSVERSIONINFO
*) &ver
)))
71 ver
.dwOSVersionInfoSize
= sizeof(OSVERSIONINFO
);
72 if (!GetVersionEx ((OSVERSIONINFO
*) &ver
))
73 report (R_FATAL
, "Can't get OS version.");
76 xprintf (" dwMajorVersion=%ld\n dwMinorVersion=%ld\n"
77 " dwBuildNumber=%ld\n PlatformId=%ld\n szCSDVersion=%s\n",
78 ver
.dwMajorVersion
, ver
.dwMinorVersion
, ver
.dwBuildNumber
,
79 ver
.dwPlatformId
, ver
.szCSDVersion
);
83 xprintf (" wServicePackMajor=%d\n wServicePackMinor=%d\n"
84 " wSuiteMask=%d\n wProductType=%d\n wReserved=%d\n",
85 ver
.wServicePackMajor
, ver
.wServicePackMinor
, ver
.wSuiteMask
,
86 ver
.wProductType
, ver
.wReserved
);
89 static inline int is_dot_dir(const char* x
)
91 return ((x
[0] == '.') && ((x
[1] == 0) || ((x
[1] == '.') && (x
[2] == 0))));
94 void remove_dir (const char *dir
)
99 size_t dirlen
= strlen (dir
);
101 /* Make sure the directory exists before going further */
102 memcpy (path
, dir
, dirlen
);
103 strcpy (path
+ dirlen
++, "\\*");
104 hFind
= FindFirstFile (path
, &wfd
);
105 if (hFind
== INVALID_HANDLE_VALUE
) return;
108 char *lp
= wfd
.cFileName
;
110 if (!lp
[0]) lp
= wfd
.cAlternateFileName
; /* ? FIXME not (!lp) ? */
111 if (is_dot_dir (lp
)) continue;
112 strcpy (path
+ dirlen
, lp
);
113 if (FILE_ATTRIBUTE_DIRECTORY
& wfd
.dwFileAttributes
)
115 else if (!DeleteFile (path
))
116 report (R_WARNING
, "Can't delete file %s: error %d",
117 path
, GetLastError ());
118 } while (FindNextFile (hFind
, &wfd
));
120 if (!RemoveDirectory (dir
))
121 report (R_WARNING
, "Can't remove directory %s: error %d",
122 dir
, GetLastError ());
125 const char* get_test_source_file(const char* test
, const char* subtest
)
127 static const char* special_dirs
[][2] = {
128 { "gdi32", "gdi"}, { "kernel32", "kernel" },
129 { "user32", "user" }, { "winspool.drv", "winspool" },
130 { "ws2_32", "winsock" }, { 0, 0 }
132 static char buffer
[MAX_PATH
];
135 for (i
= 0; special_dirs
[i
][0]; i
++) {
136 if (strcmp(test
, special_dirs
[i
][0]) == 0) {
137 test
= special_dirs
[i
][1];
142 snprintf(buffer
, sizeof(buffer
), "dlls/%s/tests/%s.c", test
, subtest
);
146 const char* get_file_rev(const char* file
)
148 const struct rev_info
* rev
;
150 for(rev
= rev_infos
; rev
->file
; rev
++) {
151 if (strcmp(rev
->file
, file
) == 0) return rev
->rev
;
157 void extract_rev_infos ()
159 char revinfo
[256], *p
;
160 int size
= 0, i
, len
;
161 HMODULE module
= GetModuleHandle (NULL
);
163 for (i
= 0; TRUE
; i
++) {
166 rev_infos
= xrealloc (rev_infos
, size
* sizeof (*rev_infos
));
168 memset(rev_infos
+ i
, 0, sizeof(rev_infos
[i
]));
170 len
= LoadStringA (module
, i
+ 30000, revinfo
, sizeof(revinfo
));
171 if (len
== 0) break; /* end of revision info */
172 if (len
>= sizeof(revinfo
) - 1)
173 report (R_FATAL
, "Revision info too long.");
174 if(!(p
= strrchr(revinfo
, ':')))
175 report (R_FATAL
, "Revision info malformed (i=%d)", i
);
177 rev_infos
[i
].file
= strdup(revinfo
);
178 rev_infos
[i
].rev
= strdup(p
+ 1);
182 void* extract_rcdata (int id
, DWORD
* size
)
188 if (!(rsrc
= FindResource (0, (LPTSTR
)id
, TESTRESOURCE
)) ||
189 !(*size
= SizeofResource (0, rsrc
)) ||
190 !(hdl
= LoadResource (0, rsrc
)) ||
191 !(addr
= LockResource (hdl
)))
192 report (R_FATAL
, "Can't extract test file of id %d: %d",
193 id
, GetLastError ());
197 /* Fills in the name, is_elf and exename fields */
199 extract_test (struct wine_test
*test
, const char *dir
, int id
)
204 int strlen
, bufflen
= 128;
207 code
= extract_rcdata (id
, &size
);
208 test
->name
= xmalloc (bufflen
);
209 while ((strlen
= LoadStringA (NULL
, id
, test
->name
, bufflen
))
212 test
->name
= xrealloc (test
->name
, bufflen
);
214 if (!strlen
) report (R_FATAL
, "Can't read name of test %d.", id
);
215 test
->exename
= strmake (NULL
, "%s/%s", dir
, test
->name
);
216 exepos
= strstr (test
->name
, "_test.exe");
217 if (!exepos
) report (R_FATAL
, "Not an .exe file: %s", test
->name
);
219 test
->name
= xrealloc (test
->name
, exepos
- test
->name
+ 1);
220 report (R_STEP
, "Extracting: %s", test
->name
);
221 test
->is_elf
= !memcmp (code
+1, "ELF", 3);
223 if (!(fout
= fopen (test
->exename
, "wb")) ||
224 (fwrite (code
, size
, 1, fout
) != 1) ||
225 fclose (fout
)) report (R_FATAL
, "Failed to write file %s.",
230 get_subtests (const char *tempdir
, struct wine_test
*test
, int id
)
234 size_t subsize
, bytes_read
, total
;
235 char *buffer
, *index
;
236 const char header
[] = "Valid test names:", seps
[] = " \r\n";
238 const char *argv
[] = {"wine", NULL
, NULL
};
241 subname
= tempnam (0, "sub");
242 if (!subname
) report (R_FATAL
, "Can't name subtests file.");
244 if (-1 == oldstdout
) report (R_FATAL
, "Can't preserve stdout.");
245 subfile
= fopen (subname
, "w+b");
246 if (!subfile
) report (R_FATAL
, "Can't open subtests file.");
247 if (-1 == dup2 (fileno (subfile
), 1))
248 report (R_FATAL
, "Can't redirect output to subtests.");
251 extract_test (test
, tempdir
, id
);
252 argv
[1] = test
->exename
;
254 spawnvp (_P_WAIT
, wineloader
, argv
);
256 spawnvp (_P_WAIT
, test
->exename
, argv
+1);
257 subsize
= lseek (1, 0, SEEK_CUR
);
258 buffer
= xmalloc (subsize
+1);
260 lseek (1, 0, SEEK_SET
);
262 while ((bytes_read
= read (1, buffer
+ total
, subsize
- total
))
263 && (signed)bytes_read
!= -1)
266 report (R_FATAL
, "Can't get subtests of %s", test
->name
);
268 index
= strstr (buffer
, header
);
270 report (R_FATAL
, "Can't parse subtests output of %s",
272 index
+= sizeof header
;
275 test
->subtests
= xmalloc (allocated
* sizeof(char*));
276 test
->subtest_count
= 0;
277 index
= strtok (index
, seps
);
279 if (test
->subtest_count
== allocated
) {
281 test
->subtests
= xrealloc (test
->subtests
,
282 allocated
* sizeof(char*));
284 test
->subtests
[test
->subtest_count
++] = strdup (index
);
285 index
= strtok (NULL
, seps
);
287 test
->subtests
= xrealloc (test
->subtests
,
288 test
->subtest_count
* sizeof(char*));
291 if (-1 == dup2 (oldstdout
, 1))
292 report (R_FATAL
, "Can't recover old stdout.");
294 if (remove (subname
))
295 report (R_FATAL
, "Can't remove subtests file.");
299 /* Return number of failures, -1 if couldn't spawn process. */
300 int run_test (struct wine_test
* test
, const char* subtest
)
303 const char* argv
[] = {"wine", test
->exename
, subtest
, NULL
};
304 const char* file
= get_test_source_file(test
->name
, subtest
);
305 const char* rev
= get_file_rev(file
);
307 xprintf ("%s:%s start %s %s\n", test
->name
, subtest
, file
, rev
);
309 status
= spawnvp (_P_WAIT
, wineloader
, argv
);
311 status
= spawnvp (_P_WAIT
, test
->exename
, argv
+1);
313 xprintf ("Can't run: %d, errno=%d: %s\n",
314 status
, errno
, strerror (errno
));
315 xprintf ("%s:%s done (%d)\n", test
->name
, subtest
, status
);
320 EnumTestFileProc (HMODULE hModule
, LPCTSTR lpszType
,
321 LPTSTR lpszName
, LONG_PTR lParam
)
328 run_tests (char *logname
, const char *tag
)
330 int nr_of_files
= 0, nr_of_tests
= 0, i
;
335 SetErrorMode (SEM_FAILCRITICALERRORS
);
337 if (!(wineloader
= getenv("WINELOADER"))) wineloader
= "wine";
338 if (setvbuf (stdout
, NULL
, _IONBF
, 0))
339 report (R_FATAL
, "Can't unbuffer output.");
341 tempdir
= tempnam (0, "wct");
343 report (R_FATAL
, "Can't name temporary dir (check %%TEMP%%).");
344 report (R_DIR
, tempdir
);
345 if (!CreateDirectory (tempdir
, NULL
))
346 report (R_FATAL
, "Could not create directory: %s", tempdir
);
349 logname
= tempnam (0, "res");
350 if (!logname
) report (R_FATAL
, "Can't name logfile.");
352 report (R_OUT
, logname
);
354 logfile
= fopen (logname
, "a");
355 if (!logfile
) report (R_FATAL
, "Could not open logfile.");
356 if (-1 == dup2 (fileno (logfile
), 1))
357 report (R_FATAL
, "Can't redirect stdout.");
360 xprintf ("Version 2\n");
361 i
= LoadStringA (GetModuleHandle (NULL
), 0,
362 build_tag
, sizeof build_tag
);
363 if (i
== 0) report (R_FATAL
, "Build descriptor not found: %d",
365 if (i
>= sizeof build_tag
)
366 report (R_FATAL
, "Build descriptor too long.");
367 xprintf ("Tests from build %s\n", build_tag
);
368 xprintf ("Tag: %s\n", tag
?tag
:"");
369 xprintf ("Operating system version:\n");
371 xprintf ("Test output:\n" );
373 report (R_STATUS
, "Counting tests");
374 if (!EnumResourceNames (NULL
, TESTRESOURCE
,
375 EnumTestFileProc
, (LPARAM
)&nr_of_files
))
376 report (R_FATAL
, "Can't enumerate test files: %d",
378 wine_tests
= xmalloc (nr_of_files
* sizeof wine_tests
[0]);
380 report (R_STATUS
, "Extracting tests");
381 report (R_PROGRESS
, 0, nr_of_files
);
382 for (i
= 0; i
< nr_of_files
; i
++) {
383 get_subtests (tempdir
, wine_tests
+i
, i
+1);
384 nr_of_tests
+= wine_tests
[i
].subtest_count
;
386 report (R_DELTA
, 0, "Extracting: Done");
388 report (R_STATUS
, "Running tests");
389 report (R_PROGRESS
, 1, nr_of_tests
);
390 for (i
= 0; i
< nr_of_files
; i
++) {
391 struct wine_test
*test
= wine_tests
+ i
;
394 for (j
= 0; j
< test
->subtest_count
; j
++) {
395 report (R_STEP
, "Running: %s:%s", test
->name
,
397 run_test (test
, test
->subtests
[j
]);
400 report (R_DELTA
, 0, "Running: Done");
402 report (R_STATUS
, "Cleaning up");
404 remove_dir (tempdir
);
415 Usage: winetest [OPTION]...\n\n\
416 -c console mode, no GUI\n\
417 -h print this message and exit\n\
418 -q quiet mode, no output at all\n\
419 -o FILE put report into FILE, do not submit\n\
420 -s FILE submit FILE, do not run tests\n\
421 -t TAG include TAG of characters [-.0-9a-zA-Z] in the report\n");
424 /* One can't nest strtok()-s, so here is a replacement. */
426 mystrtok (char *newstr
)
428 static char *start
, *end
;
429 static int finish
= 1;
435 if (finish
) return NULL
;
436 while (*start
== ' ') start
++;
437 if (*start
== 0) return NULL
;
448 int WINAPI
WinMain (HINSTANCE hInst
, HINSTANCE hPrevInst
,
449 LPSTR cmdLine
, int cmdShow
)
451 char *logname
= NULL
;
452 char *tag
= NULL
, *cp
;
453 const char *submit
= NULL
;
455 /* initialize the revision information first */
458 cmdLine
= mystrtok (cmdLine
);
460 if (cmdLine
[0] != '-' || cmdLine
[2]) {
461 report (R_ERROR
, "Not a single letter option: %s", cmdLine
);
465 switch (cmdLine
[1]) {
476 submit
= mystrtok (NULL
);
478 report (R_WARNING
, "ignoring tag for submit");
482 logname
= mystrtok (NULL
);
483 run_tests (logname
, tag
);
486 tag
= mystrtok (NULL
);
487 cp
= badtagchar (tag
);
489 report (R_ERROR
, "invalid char in tag: %c", *cp
);
495 report (R_ERROR
, "invalid option: -%c", cmdLine
[1]);
499 cmdLine
= mystrtok (NULL
);
501 if (!logname
&& !submit
) {
502 report (R_STATUS
, "Starting up");
503 logname
= run_tests (NULL
, tag
);
504 if (report (R_ASK
, MB_YESNO
, "Do you want to submit the "
505 "test results?") == IDYES
)
506 if (!send_file (logname
) && remove (logname
))
507 report (R_WARNING
, "Can't remove logfile: %d.", errno
);
509 report (R_STATUS
, "Finished");