tests/testthat/test-create_site_model_from_name.R

context("test-create_site_model_from_name")

test_that("use", {
  names <- c("JC69", "HKY", "TN93", "GTR")
  for (name in names) {
    expect_equal(name, create_site_model_from_name(name)$name)
  }
})
ropensci/beautier documentation built on April 2, 2024, 5:01 a.m.