tests/testthat/test-colonist_species_type_to_str.R

In joshwlambert/DAISIEmainland: Simulates Data for Phylogenetic Data on Islands for DAISIE with the Addition of Mainland Dynamics

test_that("use", {
  expect_equal(colonist_species_type_to_str("A"), "Anagenetic recolonist")
  expect_equal(colonist_species_type_to_str("C"), "Cladogenetic recolonist")
  expect_error(colonist_species_type_to_str(""))
  expect_error(colonist_species_type_to_str("B"))
  expect_error(colonist_species_type_to_str(c("A", "V")))
  expect_error(colonist_species_type_to_str(NA))
  expect_error(colonist_species_type_to_str(NULL))
  expect_error(colonist_species_type_to_str(Inf))
  expect_error(colonist_species_type_to_str(c()))
  expect_error(colonist_species_type_to_str(list()))
})