tests/testthat/test_Glossary.R

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

# Glossary tests
url <- "http://a02235015-6.bluezone.usu.edu/api/"

context("Glossary")
vcr::use_cassette(name = "Glossary_id", {
  data <- Glossary(id = 5, url = url)
})
test_that("Glossary_id", {
  expect_equal(length(data), 15)
  expect_type(data, "list")
})
vcr::use_cassette(name = "Glossary_page", {
  data <- Glossary(page = 1, url = url)
})
test_that("Glossary_page", {
  expect_equal(length(data), 420)
  expect_type(data, "list")
})

context("TermLink_id")
vcr::use_cassette(name = "TermLink_id", {
  data <- TermLink(id = 1, url = url)
})
test_that("TermLink", {
  expect_equal(length(data), 8)
  expect_type(data, "list")
})
vcr::use_cassette(name = "TermLink_page", {
  data <- TermLink(page = 1, url = url)
})
test_that("TermLink_page", {
  expect_equal(length(data), 210)
  expect_type(data, "list")
})