2003-07-11 Casper S. Hornstrup <chorns@users.sourceforge.net>
[reactos.git] / reactos / regtests / regtests / regtests.c
1 /*
2 * PROJECT: ReactOS kernel
3 * FILE: regtests/regtests/regtests.c
4 * PURPOSE: Regression testing host
5 * PROGRAMMER: Casper S. Hornstrup (chorns@users.sourceforge.net)
6 * UPDATE HISTORY:
7 * 06-07-2003 CSH Created
8 */
9 #define NTOS_MODE_USER
10 #include <ntos.h>
11 #include "regtests.h"
12
13 VOID
14 RunTestDriver(LPTSTR FileName)
15 {
16 TestDriverMain Main;
17 HMODULE hModule;
18
19 hModule = LoadLibrary(FileName);
20 if (hModule != NULL)
21 {
22 Main = (TestDriverMain) GetProcAddress(hModule, "RegTestMain");
23 if (Main != NULL)
24 {
25 (Main)();
26 }
27 FreeLibrary(hModule);
28 }
29 }
30
31 int
32 main(int argc, char* argv[])
33 {
34 RunTestDriver("win32base.dll");
35 RunTestDriver("kmrtint.dll");
36 return 0;
37 }