tests/testthat/test-vector.R

In armcn/pure: Data Checks and Assertions

valid_generator <- hedgehog::gen.choice(
  hedgehog::gen.choice(TRUE, FALSE),
  hedgehog::gen.element(-1e6:1e6L),
  hedgehog::gen.unif(-1e6, 1e6),
  hedgehog::gen.choice("a", ""),
  hedgehog::gen.with(
    hedgehog::gen.choice(TRUE, FALSE),
    as.list
  ),
  hedgehog::gen.with(
    hedgehog::gen.element(-1e6:1e6L),
    as.list
  ),
  hedgehog::gen.with(
    hedgehog::gen.unif(-1e6, 1e6),
    as.list
  ),
  hedgehog::gen.with(
    hedgehog::gen.choice("a", ""),
    as.list
  )
)

invalid_generator <- hedgehog::gen.choice(
  base::all
)

test_predicate_and_assertion(
  valid_generator = valid_generator,
  invalid_generator = invalid_generator,
  predicate = is_vector,
  assertion = assert_vector
)