Explorar o código

* disable timing check as it causes too much false negatives on machines under load

florian %!s(int64=2) %!d(string=hai) anos
pai
achega
aff133cac2
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  1. 3 1
      packages/rtl-generics/tests/tqsort_killer.pp

+ 3 - 1
packages/rtl-generics/tests/tqsort_killer.pp

@@ -128,8 +128,10 @@ type
 		if (prevTime > 0) and (time / prevTime > 3) then
 		if (prevTime > 0) and (time / prevTime > 3) then
 		  begin
 		  begin
 		    writeln;
 		    writeln;
-		    writeln('Bad sorting algorithm behaviour');
+		    writeln('Potentially bad sorting algorithm behaviour');
+			{ causes too many false negative
 			halt(1);
 			halt(1);
+			}
 		  end;
 		  end;
 		prevTime := time;
 		prevTime := time;
 		write(', ');
 		write(', ');