Better test assertion

apache · Oct 12, 2022 · 44d50d2 · 44d50d2
1 parent 9c89929
commit 44d50d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/r/tests/testthat/test-dplyr-slice.R b/r/tests/testthat/test-dplyr-slice.R
@@ -116,15 +116,15 @@ test_that("slice_sample, ungrouped", {
     slice_sample(prop = .2) %>%
     collect() %>%
     nrow()
-  expect_true(sampled_n <= 2)
+  expect_lte(sampled_n, 2)
 
   # Test with dataset, which matters for the UDF HACK
   sampled_n <- tab %>%
     InMemoryDataset$create() %>%
     slice_sample(prop = .2) %>%
     collect() %>%
     nrow()
-  expect_true(sampled_n <= 2)
+  expect_lte(sampled_n, 2)
 })
 
 test_that("slice_* not supported with groups", {