tests/testthat/test-search_ds043.R

In peruflorads43: Reviewed Official Classification of Endangered Wild Flora Species in Peru

testthat::test_that("search_ds043 returns a character vector", {
  splist <- c("Cleistocactus clavispinus",
              "Welfia alfredi",
              "Matucana hayneii")
  testthat::expect_type(search_ds043(splist), "character")
})

testthat::test_that("search_ds043 returns the correct accepted names", {
  splist <- c("Cleistocactus clavispinus",
              "Welfia alfredi",
              "Matucana hayneii")
  testthat::expect_equal(search_ds043(splist),
                         c("Present", "", "P_updated_name"))
})