Update Test

Author: andot

.gitignore

@@ -13,9 +13,15 @@ Lazarus/HproseLnet.pas
 *.ico
 *.identcache
 *.rsj
-
 *.~pas
-
-Test/HproseTest.exe
-
-Test/dunit.ini
+*.~dpr
+*.cfg
+*.exe
+*.deployproj
+*.dof
+*.stat
+dunit.ini
+__recovery
+Debug
+Release
+*.xml

Test/ArrayListTestCases.pas Test/ArrayListTestCase.pas

@@ -1,4 +1,4 @@
-unit ArrayListTestCases;
+unit ArrayListTestCase;
 
 interface
 

Test/HproseTest.dpr

@@ -4,8 +4,8 @@ program HproseTest;
   Delphi DUnit Test Project
   -------------------------
   This project contains the DUnit test framework and the GUI/Console test runners.
-  Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options 
-  to use the console test runner.  Otherwise the GUI test runner will be used by 
+  Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
+  to use the console test runner.  Otherwise the GUI test runner will be used by
   default.
 
 }
@@ -15,11 +15,19 @@ program HproseTest;
 {$ENDIF}
 
 uses
+  SysUtils,
+  TextTestRunner,
+{$IFDEF FASTMM}
+  FastMM4,
+{$ENDIF}
+{$IFDEF MSWINDOWS}
+  {$IFNDEF NEXTGEN}
   Forms,
+  GuiTestRunner,
+  {$ENDIF NEXTGEN}
+{$ENDIF}
   TestFramework,
-  GUITestRunner,
-  TextTestRunner,
-  ArrayListTestCases in 'ArrayListTestCases.pas',
+  ArrayListTestCase in 'ArrayListTestCase.pas',
   HproseClient in '..\Source\HproseClient.pas',
   HproseCommon in '..\Source\HproseCommon.pas',
   HproseIO in '..\Source\HproseIO.pas',
@@ -28,10 +36,27 @@ uses
 {$R *.RES}
 
 begin
+  {$IFDEF MSWINDOWS}
+    {$IFNDEF NEXTGEN}
   Application.Initialize;
+    {$ENDIF NEXTGEN}
+  {$ENDIF}
   if IsConsole then
-    TextTestRunner.RunRegisteredTests
+  begin
+    {$IFNDEF NEXTGEN}
+    with TextTestRunner.RunRegisteredTests do
+      Free;
+    {$ELSE NEXTGEN}
+      TextTestRunner.RunRegisteredTests
+    {$ENDIF NEXTGEN}
+  end
   else
-    GUITestRunner.RunRegisteredTests;
+  begin
+    {$IFDEF MSWINDOWS}
+    {$IFNDEF NEXTGEN}
+    GuiTestRunner.RunRegisteredTests;
+    {$ENDIF NEXTGEN}
+    {$ENDIF}
+  end;
 end.