Changeset 35 for trunk/NewView/unittests/newviewtests.pas

Timestamp:

Sep 17, 2006, 8:47:43 PM (19 years ago)

Author:

RBRi

Message:

+ StringUtilsUnit and the unit test
+ some More unit test (now we have 67)

File:

• trunk/NewView/unittests/newviewtests.pas (modified) (5 diffs)

trunk/NewView/unittests/newviewtests.pas

@@ -4 +4 @@
   Classes,
   SysUtils,
-  CmdLineParameterUnit,
   TestAssert,
-  CmdLineParameterUnitTests;
+  CmdLineParameterUnitTests,
+  StringUtilsUnitTests,
+  HelpTopicTests;
 
 
@@ -15 +16 @@
   tmpFunction : FUNCTION:TList;
   tmpTest : PROCEDURE;
-  i,j,tmpTestCount : integer;
+  i,j,tmpTestCount,tmpFailureCount : integer;
 
 BEGIN
@@ -22 +23 @@
 
   tmpSuites.Add(@getCmdLineParameterUnitTests);
+  tmpSuites.Add(@getStringUtilsUnitTests);
+  tmpSuites.Add(@getHelpTopicTests);
 
   tmpTestCount := 0;
+  tmpFailureCount := 0;
   for i := 0 to tmpSuites.Count-1 do
   begin
@@ -38 +42 @@
         on e:Exception do
         begin
+          tmpFailureCount := tmpFailureCount + 1;
           writeln;
-          Writeln(e.message);
+          writeln(e.message);
         end;
       end;
@@ -46 +51 @@
     end;
   end;
+
+  writeln;
+  write('Running ' + IntToStr(tmpTestCount) + ' tests');
+  if (0 < tmpFailureCount) then write(' ' + IntToStr(tmpFailureCount) + ' failures');
+  writeln;
+
 END.