Removing failing test

sample() can return the input vector occasionally, not sure how to guarantee avoidance
wkumler · Dec 12, 2023 · f264345 · f264345
1 parent 3309b84
commit f264345
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_extras.R b/tests/testthat/test_extras.R
@@ -27,7 +27,7 @@ test_that("trapz works as expected", {
   x_vals <- 1:10
   y_vals <- runif(10)
   expect_equal(trapz(x_vals, y_vals), trapz(x_vals, rev(y_vals)))
-  expect_false(trapz(x_vals, y_vals)==trapz(x_vals, sample(y_vals)))
+  # expect_false(trapz(x_vals, y_vals)==trapz(x_vals, sample(y_vals)))
 
   expect_error(trapz(10))
   expect_error(trapz(1, 1:10))