2004-10-24 Casper S. Hornstrup <chorns@users.sourceforge.net>
[reactos.git] / reactos / regtests / regtests / regtests.c
index 5380d20..db0170b 100755 (executable)
@@ -1,37 +1,34 @@
 /*
  * PROJECT:         ReactOS kernel
  * FILE:            regtests/regtests/regtests.c
- * PURPOSE:         Regression testing host
+ * PURPOSE:         Regression testing framework
  * PROGRAMMER:      Casper S. Hornstrup (chorns@users.sourceforge.net)
  * UPDATE HISTORY:
- *      06-07-2003  CSH  Created
+ *      23-10-2004  CSH  Created
  */
-#define NTOS_MODE_USER
-#include <ntos.h>
-#include "regtests.h"
+#include <windows.h>
 
-VOID
-RunTestDriver(LPTSTR FileName)
+HMODULE STDCALL
+_GetModuleHandleA(LPCSTR lpModuleName)
 {
-  TestDriverMain Main;
-  HMODULE hModule;
+  return GetModuleHandleA(lpModuleName);
+}
 
-  hModule = LoadLibrary(FileName);
-  if (hModule != NULL) 
-    { 
-        Main = (TestDriverMain) GetProcAddress(hModule, "RegTestMain");
-        if (Main != NULL) 
-          {
-            (Main)(); 
-          }
-        FreeLibrary(hModule); 
-    }
+FARPROC STDCALL
+_GetProcAddress(HMODULE hModule,
+  LPCSTR lpProcName)
+{
+  return GetProcAddress(hModule, lpProcName);
+}
+
+HINSTANCE STDCALL
+_LoadLibraryA(LPCSTR lpLibFileName)
+{
+  return LoadLibraryA(lpLibFileName);
 }
 
-int
-main(int argc, char* argv[])
+VOID STDCALL
+_ExitProcess(UINT uExitCode)
 {
-  RunTestDriver("win32base.dll");
-  RunTestDriver("kmrtint.dll");
-  return 0;
+  ExitProcess(uExitCode);
 }