Browse Source

* try to improve result stability by longer runtime

florian 2 years ago
parent
commit
74bef61b99
1 changed files with 1 additions and 2 deletions
  1. 1 2
      packages/rtl-generics/tests/tqsort_killer.pp

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

@@ -120,7 +120,7 @@ type
 			specialize TArrayHelper<Ty>.Sort(arr);
 			specialize TArrayHelper<Ty>.Sort(arr);
 			timePassed := (Now - startTime) * SecsPerDay;
 			timePassed := (Now - startTime) * SecsPerDay;
 			reps += 1;
 			reps += 1;
-		until not (timePassed < 0.2);
+		until not (timePassed < 3);
 
 
 		time := timePassed / reps;
 		time := timePassed / reps;
 		write(time * 1e3:0:1, ' ms/sort');
 		write(time * 1e3:0:1, ' ms/sort');
@@ -168,4 +168,3 @@ begin
 		halt(2);
 		halt(2);
 	end;
 	end;
 end.
 end.
-