tests/testthat/test-integer.R

In armcn/pure: Data Checks and Assertions

valid_generator <- hedgehog::gen.choice(
  hedgehog::gen.element(-1e6:1e6L),
  integer(0),
  NA_integer_,
  c(-1L, 1L, NA_integer_)
)

invalid_generator <- hedgehog::gen.choice(
  hedgehog::gen.unif(-1e6, 1e6),
  "1L",
  TRUE,
  FALSE,
  -Inf,
  Inf,
  NaN,
  NULL,
  NA,
  NA_real_,
  NA_character_,
  NA_complex_
)

test_predicate_and_assertion(
  valid_generator = valid_generator,
  invalid_generator = invalid_generator,
  predicate = is_integer,
  assertion = assert_integer
)