tests/testthat/test-check_mbd_params_selector.R

In richelbilderbeek/becosys: Unified Interface To Phylogenetics Models Of Speciation

test_that("use", {
  expect_silent(check_mbd_params_selector(create_mbd_params_selector()))
  expect_error(check_mbd_params_selector("nonsense"))
  expect_error(check_mbd_params_selector(NULL))
  expect_error(check_mbd_params_selector(NA))
  expect_error(
    check_mbd_params_selector(
      list(
        lambda = "nonsense",
        mu = TRUE,
        nu = TRUE,
        q = TRUE
      )
    )
  )
  expect_error(
    check_mbd_params_selector(
      list(
        lambda = TRUE,
        mu = "nonsense",
        nu = TRUE,
        q = TRUE
      )
    )
  )
  expect_error(
    check_mbd_params_selector(
      list(
        lambda = TRUE,
        mu = TRUE,
        nu = "nonsense",
        q = TRUE
      )
    )
  )
  expect_error(
    check_mbd_params_selector(
      list(
        lambda = TRUE,
        mu = TRUE,
        nu = TRUE,
        q = "nonsense"
      )
    )
  )
})