tests/testthat/test-is_exp_distr.R

test_that("use", {
  expect_true(is_exp_distr(create_exp_distr()))
  expect_false(is_exp_distr("nonsense"))
  expect_false(is_exp_distr(NA))
  expect_false(is_exp_distr(NULL))
  expect_false(is_exp_distr(Inf))
  expect_false(is_exp_distr(c()))
})
richelbilderbeek/beautier documentation built on April 4, 2024, 12:33 p.m.