tests/testthat/test-used_synonyms.R

In kamapu/vegtable: Handling Vegetation Data Sets

context("retrieving used synonyms and used concepts")

test_that("used_synonyms() is working", {
  expect_is(used_synonyms(Kenya_veg), "data.frame")
})

test_that("used_concepts() is working", {
  expect_equal(nrow(used_concepts(Kenya_veg)@taxonRelations),
      nrow(used_concepts(Kenya_veg, keep_synonyms = FALSE)@taxonNames))
})