Browse Source

* Remove debug console output

michael 6 years ago
parent
commit
b8c3a37540
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fpcunit/htmltestreport.pp

+ 1 - 1
packages/fpcunit/htmltestreport.pp

@@ -180,7 +180,7 @@ begin
     for I:=0 to aSuite.GetChildTestCount-1 do
     for I:=0 to aSuite.GetChildTestCount-1 do
       begin
       begin
       T:=asuite.GetChildTest(i);
       T:=asuite.GetChildTest(i);
-      Writeln('Examining ',T.TestSuiteName,'.',T.TestName,' (',t.className,')');
+//      Writeln('Examining ',T.TestSuiteName,'.',T.TestName,' (',t.className,')');
       if T is TTestSuite then
       if T is TTestSuite then
         AppendSuite(SU,t as TTestSuite, alevel+1)
         AppendSuite(SU,t as TTestSuite, alevel+1)
       else
       else