tests/testthat/test-is_site_model_name.R

context("is_site_model_name")

test_that("basic usage", {

  testthat::expect_false(is_site_model_name("nonsense"))
  testthat::expect_true(is_site_model_name("JC69"))
  testthat::expect_true(is_site_model_name("HKY"))
  testthat::expect_true(is_site_model_name("TN93"))
  testthat::expect_true(is_site_model_name("GTR"))

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.