tests/testthat/test-itis_hierarchy.R

In taxize: Taxonomic Information from Around the Web

context("itis_hierarchy")

# test_that("itis_hierarchy returns the correct class", {
#   skip_on_cran()
#   vcr::use_cassette("itis_hierarchy", {
#     one <- itis_hierarchy(tsn=180543, verbose=FALSE)
#     two <- itis_hierarchy(tsn=180543, "up", verbose=FALSE)
#     three <- itis_hierarchy(tsn=180543, "down", verbose=FALSE)
#     four <-itis_hierarchy(tsn=c(180543,41074,36616), verbose=FALSE)
#   })
# 
#   expect_that(one, is_a("data.frame"))
#   expect_that(two, is_a("data.frame"))
#   expect_that(three, is_a("data.frame"))
#   expect_that(four, is_a("list"))
#   expect_that(four[[1]], is_a("data.frame"))
# })