tests/testthat/test-rt_taxa_taxrefhistory.R

In Rekyt/rtaxref: An R client for TaxRef the French Taxonomical Database

context("test-rt_taxa_taxrefhistory")

vcr::use_cassette("rt_taxa_taxrefhistory", {
  test_that("Can retrieve taxrefhistory related to a taxon using its id", {
    expect_silent(res <- rt_taxa_taxrefhistory(107003))

    expect_is(res, "data.frame")
    expect_equal(dim(res), c(11, 61))
    expect_named(res, c("id", "referenceId", "parentId", "scientificName",
                        "authority", "fullName", "fullNameHtml", "rankId",
                        "rankName", "referenceName", "referenceNameHtml",
                        "frenchVernacularName", "englishVernacularName",
                        "genusName", "familyName", "orderName", "className",
                        "phylumName", "kingdomName", "vernacularGenusName",
                        "vernacularFamilyName", "vernacularOrderName",
                        "vernacularClassName", "vernacularPhylumName",
                        "vernacularKingdomName", "vernacularGroup1",
                        "vernacularGroup2", "habitat", "fr", "gf", "mar", "gua",
                        "sm", "sb", "spm", "may", "epa", "reu", "sa", "ta",
                        "nc", "wf", "pf", "cli", "taxrefVersion", "self.href",
                        "reference.href", "classification.href",
                        "synonyms.href", "children.href",
                        "vernacularNames.href", "media.href", "status.href",
                        "interactions.href", "taxrefHistory.href",
                        "externalIds.href", "taxonomicRank.href",
                        "taxrefUri.href", "inpnWebpage.href", "parent.href",
                        "habitat.href"))
    expect_equal(res$id[1], 107003)
  })

  test_that("Wrong query returns error", {
    expect_error(rt_taxa_taxrefhistory(1234567),
                 "The query returned no results. Please try another query",
                 fixed = TRUE)

    expect_error(
      rt_taxa_taxrefhistory("A"), "'id' must be a numeric", fixed = TRUE
    )

    expect_error(
      rt_taxa_taxrefhistory(), fixed = TRUE,
      paste0("'id' argument is needed to retrieve TAXREF history of a taxon ",
             "using its id")
    )
  })
})