tests/testthat/test_list_helpers.R

In avidclam/avidstart: Useful R helper functions for quick start of data analysis projects

context("list_helpers")

test_that("is_leaf detects leaves correctly", {
  expect_error(is_leaf())
  expect_true(is_leaf(FALSE))
  expect_true(is_leaf(LETTERS))
  expect_true(is_leaf(data.frame(LETTERS)))
  expect_false(is_leaf(list(LETTERS)))
})

test_that("get_names works", {
  expect_error(get_names())
  expect_identical(get_names(NULL), character(0))
  expect_identical(get_names(0), "")
  expect_identical(get_names(list(x = 1, y = 2)), c("x", "y"))
})