Remove unnecessary test

easystats · Jun 3, 2024 · 64a1cce · 64a1cce
1 parent 399c9e4
commit 64a1cce
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/tests/testthat/test-compact-list.R b/tests/testthat/test-compact-list.R
@@ -17,11 +17,3 @@ test_that("compact_list, logical > 1", {
   expect_identical(compact_list(x, remove_na = TRUE), list(a = 1))
   expect_identical(compact_list(x, remove_na = FALSE), list(a = 1, b = c(NA, NA), c = NA))
 })
-
-test_that("compact_list, vctrs", {
-  data(mtcars)
-  class(mtcars$mpg) <- c("haven_labelled", "vctrs_vctr", "double")
-  attr(mtcars$mpg, "labels") <- c(`21` = 21)
-  out <- compact_list(mtcars)
-  expect_true(all(vapply(out, class, character(1)) == "numeric"))
-})