tests/testthat/test-is_one_int.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

test_that("use", {
  expect_true(is_one_int(314))
  expect_true(is_one_int(0))
  expect_true(is_one_int(-314))
  expect_false(is_one_int(3.14))
  expect_false(is_one_int(NULL))
  expect_false(is_one_int(NA))
  expect_false(is_one_int(Inf))
  expect_false(is_one_int("nonsense"))
  expect_false(is_one_int(is_one_int))
  expect_false(is_one_int(c()))
  expect_false(is_one_int(c(1, 2)))
})