tests/testthat/test-synonyms.R

context("synonyms addition")

spp <- df2taxlist("Poa annua", AuthorName = "L.")

test_that("number of synonyms are congruent", {
  expect_equal(
    nrow(synonyms(Easplist)),
    nrow(Easplist@taxonNames) - nrow(Easplist@taxonRelations)
  )
  expect_is(synonyms(Easplist, 1), "data.frame")
})
ropensci/taxlist documentation built on Sept. 17, 2024, 3:39 p.m.