tests/testthat/test_Traits.R

In pearselab/SymbiotaR2: Downloading Data from Symbiota2 Portals into R

# Traits test
url <- "http://a02235015-6.bluezone.usu.edu/api/"

context("Traits")
vcr::use_cassette(name = "Traits_id", {
  data <- Traits(id = 1, url = url)
})
test_that("Traits_id", {
  expect_equal(length(data), 16)
  expect_type(data, "list")
})
vcr::use_cassette(name = "Traits_page", {
  data <- Traits(page = 1, url = url)
})
test_that("Traits_page", {
  expect_equal(length(data), 60)
  expect_type(data, "list")
})