fix a megastudy test

VEuPathDB · Feb 26, 2024 · 6238d84 · 6238d84
1 parent 7c61323
commit 6238d84
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-class-Megastudy.R b/tests/testthat/test-class-Megastudy.R
@@ -760,6 +760,6 @@ test_that("we have reasonable perf w a real-ish use case", {
   )
 
   benchmark <- microbenchmark::microbenchmark(getDTWithImputedZeroes(megastudyReal, megastudyVariablesReal, verbose = FALSE))
-  expect_that(mean(benchmark$time)/1000000 < 50, TRUE) ## this is in milliseconds
-  expect_that(median(benchmark$time)/1000000 < 50, TRUE)
+  expect_true(mean(benchmark$time)/1000000 < 50) ## this is in milliseconds
+  expect_true(median(benchmark$time)/1000000 < 50)
 })