tests/testthat/test-lists.R

In salim-b/pal: Friendly Convenience/Utility Functions

test_that("`as_flat_list()` works as expected", {

  # with defaults
  expect_identical(as_flat_list(NULL),
                   list(NULL))

  expect_identical(as_flat_list(1.0),
                   list(1.0))

  expect_identical(as_flat_list(1:3),
                   list(1:3))

  expect_identical(as_flat_list(mtcars),
                   list(mtcars))

  expect_identical(as_flat_list(list(list(factor("a"), factor("b")), factor("c"))),
                   list(factor("a"), factor("b"), factor("c")))

  expect_identical(as_flat_list(list(1:3, xfun::strict_list(list(list("buried deep"))))),
                   list(1:3, "buried deep"))

  # with `attrs_to_drop = NULL`
  expect_identical(as_flat_list(x = list(1:3, xfun::strict_list(list(list("buried deep")))),
                                attrs_to_drop = NULL),
                   list(1:3, xfun::strict_list(list(list("buried deep")))))
})