add more sparse_median() tests

r-lib · Oct 14, 2024 · 0880efd · 0880efd
1 parent 6c9b3ae
commit 0880efd
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-sparse_median.R b/tests/testthat/test-sparse_median.R
@@ -41,6 +41,11 @@ test_that("sparse_median() edge cases", {
 
   expect_equal(median(x), sparse_median(x))
 
+  x <- sparse_double(c(10, NA), c(1, 2), 4)
+
+  expect_equal(median(x), sparse_median(x))
+  expect_equal(median(x, na.rm = TRUE), sparse_median(x, na_rm = TRUE))
+
   x <- sparse_double(c(10, 10, NA), c(1, 2, 3), 5)
 
   expect_equal(median(x), sparse_median(x))