Răsfoiți Sursa

* Fix timestamps

Michaël Van Canneyt 19 ore în urmă
părinte
comite
6f8244ad51
1 a modificat fișierele cu 3 adăugiri și 3 ștergeri
  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);