tests/testthat/test-tabulate.R

In occCite: Querying and Managing Large Biodiversity Occurrence Datasets

context("Testing tabulate.occResults")

library(occCite)

test_that("inputs to tabulate.occResults are as expected", {
  data("myOccCiteObject")
  testResults <- myOccCiteObject@occResults
  resNames <- names(testResults)

  expect_true(class(myOccCiteObject) == "occCiteData")
  expect_true(names(myOccCiteObject@occResults) > 0)
  expect_true(is.character(resNames))
  expect_true(all(!is.na(stringr::str_extract(
    string = resNames,
    pattern = "(\\w+\\s\\w+)"
  ))))
})

test_that("outputs to tablulate.occResults are as expected", {

  expect_error(tabulate.occResults())

  data("myOccCiteObject")
  sp.name <- names(myOccCiteObject@occResults)[[1]]
  x <- myOccCiteObject@occResults[[1]]
  testResults <- tabulate.occResults(x = x, sp.name = sp.name)

  expect_true(class(testResults) == "data.frame")

  expect_true("name" %in% names(testResults))
  expect_true(!is.na(testResults$name[1]))
  expect_equal(class(testResults$name), "character")
  expect_true("longitude" %in% names(testResults))
  expect_equal(class(testResults$longitude), "numeric")
  expect_true("latitude" %in% names(testResults))
  expect_equal(class(testResults$latitude), "numeric")
  expect_true("day" %in% names(testResults))
  expect_equal(class(testResults$day), "integer")
  expect_true("month" %in% names(testResults))
  expect_equal(class(testResults$month), "integer")
  expect_true("year" %in% names(testResults))
  expect_equal(class(testResults$year), "integer")
  expect_true("Dataset" %in% names(testResults))
  expect_equal(class(testResults$Dataset), "character")
  expect_true("DatasetKey" %in% names(testResults))
  expect_equal(class(testResults$DatasetKey), "character")
  expect_true("DataService" %in% names(testResults))
  expect_equal(class(testResults$DataService), "character")
  expect_true("GBIF" %in% testResults$DataService)
  expect_true("BIEN" %in% testResults$DataService)
})