inst/tinytest/test_lst.R

In nathaneastwood/poorman: A Poor Man's Dependency Free Recreation of 'dplyr'

expect_equal(lst(NULL), list("NULL" = NULL))
expect_identical(lst(a = NULL), list(a = NULL))
expect_identical(
  lst(NULL, b = NULL, 1:3),
  list("NULL" = NULL, b = NULL, "1:3" = 1:3)
)

expect_identical(lst(a = 1, b = a), list(a = 1, b = 1))
expect_identical(lst(a = NULL, b = a), list(a = NULL, b = NULL))

expect_identical(lst(a = 1, a = a + 1, b = a), list(a = 1, a = 2, b = 2))
expect_identical(lst(b = 1, a = b, a = b + 1, b = a), list(b = 1, a = 1, a = 2, b = 2))