Bladeren bron

* Fix timestamps

Michaël Van Canneyt 21 uur geleden
bovenliggende
commit
6f8244ad51
1 gewijzigde bestanden met toevoegingen van 3 en 3 verwijderingen
  1. 3 3
      packages/fcl-fpcunit/src/plaintestreport.pp

+ 3 - 3
packages/fcl-fpcunit/src/plaintestreport.pp

@@ -171,10 +171,10 @@ Var
 begin
   Result:='ss.zzz';
   M:=MinutesBetween(ATiming,0);
-  if M>60 then
+  if M>=60 then
     Result:='hh:mm:'+Result
-  else if M>1 then
-   Result:='mm:'+Result;
+  else if M>=1 then
+   Result:='nn:'+Result;
 end;
 
 procedure TPlainResultsWriter.SetSkipAddressInfo(AValue: Boolean);