tests/testthat/test-list.R

In armcn/pure: Data Checks and Assertions

valid_generator <- hedgehog::gen.choice(
  list(),
  list(0),
  list(a = 0),
  a = list(),
  a = list(a = 0),
  list(list(a = 0), b = 0),
  data.frame(),
  data.frame(a = 0)
)

invalid_generator <- hedgehog::gen.choice(
  TRUE, 0L, 0, "a"
)

test_predicate_and_assertion(
  valid_generator = valid_generator,
  invalid_generator = invalid_generator,
  predicate = is_list,
  assertion = assert_list
)