Relax OpenMP elapsed expectations

Author: t-kalinowski

tests/testthat/test-openmp-parallelization.R

@@ -155,7 +155,7 @@ check_thread_scaling_subprocess <- function(label, n, iters) {
   }
 }
 
-test_that("parallel loops consume more CPU time and finish sooner", {
+test_that("parallel loops consume more CPU time without large slowdowns", {
   openmp_supported_or_skip()
 
   serial <- function(x, n) {
@@ -235,10 +235,10 @@ test_that("parallel loops consume more CPU time and finish sooner", {
   )
 
   if (!anyNA(c(parallel_time$cpu, serial_time$cpu))) {
-    expect_gt(parallel_time$cpu / parallel_time$elapsed, 1.2, label = info)
-    expect_lt(parallel_time$elapsed, serial_time$elapsed * 1.2, label = info)
+    expect_gt(parallel_time$cpu, serial_time$cpu * 1.2, label = info)
+    expect_lt(parallel_time$elapsed, serial_time$elapsed * 1.5, label = info)
   } else {
-    expect_lt(parallel_time$elapsed, serial_time$elapsed * 1.1, label = info)
+    expect_lt(parallel_time$elapsed, serial_time$elapsed * 1.5, label = info)
   }
 })