tests/testthat/test-taxon_state.R

context("taxon_state/taxon_last/taxon_clear")

taxon_state_env$last <- NULL

test_that("taxon_last", {
  skip_on_cran()
  skip_if_net_down()

    # before anything happens, it's NULL
  expect_null(taxon_last())

  # something happens
  invisible(taxon_state$new())

  # now it's not NULL
  expect_is(taxon_last(), "taxon_state")

  # in more real context: get_gbifid call
  spp <- c("Spruceanthus marianus", "Bomarea costaricensis",
    "Rubus mindanaensis", "Columnea mira")
  vcr::use_cassette("taxon_state_get_gbifid", {
    res <- get_gbifid(spp, messages = FALSE)
  })
  tl <- taxon_last()
  expect_is(tl, "taxon_state")
  expect_equal(tl$count, 4)
  expect_equal(tl$class, "gbifid")

  # test another get_* fxn
  spp <- c("Spruceanthus marianus", "Bomarea costaricensis",
    "Rubus mindanaensis", "Columnea mira")
  vcr::use_cassette("taxon_state_get_uid", {
    res <- get_uid(spp, messages = FALSE)
  })
  tl <- taxon_last()
  expect_is(tl, "taxon_state")
  expect_equal(tl$count, 4)
  expect_equal(tl$class, "uid")
})

test_that("taxon_state works", {
  skip_on_cran()
  
  ts <- taxon_state$new()

  expect_is(ts$add, "function")
  expect_is(ts$get, "function")
  expect_is(ts$remove, "function")
  expect_is(ts$purge, "function")
  expect_is(ts$count, "integer")
  expect_is(ts$exit, "POSIXct")

  expect_equal(ts$count, 0)

  # add something
  res <- list(
    id = 123456,
    att = "found",
    multiple = FALSE,
    direct = FALSE,
    class = "tsn"
  )
  ts$add(query = "Quercus robur", result = res)
  expect_equal(ts$count, 1)

  bb <- ts$get(query = "Quercus robur")
  expect_is(bb, "list")
  expect_is(bb$`Quercus robur`$id, "numeric")
  expect_is(bb$`Quercus robur`$att, "character")
  expect_is(bb$`Quercus robur`$multiple, "logical")
  expect_is(bb$`Quercus robur`$direct, "logical")
  expect_is(bb$`Quercus robur`$class, "character")

  # adding something of the same name adds another entry
  ts$add(query = "Quercus robur", result = res)
  expect_equal(ts$count, 2)
  expect_equal(length(ts$get(query = "Quercus robur")), 2)
  
  # remove something
  ts$remove(query = "Quercus robur")
  expect_equal(ts$count, 0)

  # add many records
  res2 <- list(
    id = 3430834535,
    att = "found",
    multiple = FALSE,
    direct = FALSE,
    class = "gbifid"
  )
  ts$add(query = "Quercus robur", result = res)
  ts$add(query = "Poa annua", result = res2)
  expect_equal(ts$count, 2)

  # purge all records
  ts$purge()
  expect_equal(ts$count, 0)
})

test_that("taxon_state fails well", {
  expect_error(taxon_state$new(apple = 5), "unused argument")
})

Try the taxize package in your browser

Any scripts or data that you put into this service are public.

taxize documentation built on Sept. 11, 2024, 6:13 p.m.