diff --git a/packages/rtl-generics/tests/tqsort_killer.pp b/packages/rtl-generics/tests/tqsort_killer.pp index b4d3e18589..1566e72357 100644 --- a/packages/rtl-generics/tests/tqsort_killer.pp +++ b/packages/rtl-generics/tests/tqsort_killer.pp @@ -120,7 +120,7 @@ type specialize TArrayHelper.Sort(arr); timePassed := (Now - startTime) * SecsPerDay; reps += 1; - until not (timePassed < 0.2); + until not (timePassed < 3); time := timePassed / reps; write(time * 1e3:0:1, ' ms/sort'); @@ -168,4 +168,3 @@ begin halt(2); end; end. -