tests/testthat/test-ebirdloc.R

In rebird: R Client for the eBird Database of Bird Observations

context("ebirdloc")

test_that("ebirdloc works correctly", {
  skip_on_cran()
  
  expect_warning(out <- ebirdloc(c('L99381','L99382')))
  expect_is(out, "data.frame")
  expect_is(out$comName, "character")
  expect_warning(out2 <- ebirdloc('L99381', 'larus delawarensis', provisional=TRUE))
  expect_is(out2, "data.frame")

  expect_warning(simpler <- ebirdloc('L99381', max = 1, simple = TRUE))
  expect_warning(lesssimpler <- ebirdloc('L99381', max = 1, simple = FALSE))
  expect_lt(NCOL(simpler), 15)
  expect_gt(NCOL(simpler), 8)
  expect_lt(NCOL(lesssimpler), 40)
  expect_gt(NCOL(lesssimpler), 10)
})


test_that("ebirdloc fails correctly", {
  skip_on_cran()
  
  mssg <- "You have supplied an invalid species category"
  
  expect_error(suppressWarnings(ebirdloc()))
  expect_error(suppressWarnings(ebirdloc(species = "asdf")))
  expect_error(suppressWarnings(ebirdloc(locID = "L99381", species = "asdf")))
  expect_error(suppressWarnings(ebirdloc(), "argument \"locID\" is missing"))
  expect_error(suppressWarnings(ebirdloc(locID = c('L99381','L99382','L99381','L99382','L99381','L99382',
                          'L99381','L99382','L99381','L99382','L99382')), 
               "Too many locations"))
  expect_error(suppressWarnings(ebirdloc(locID = 'L99381', config=timeout(0.001))))
  expect_error(suppressWarnings(ebirdloc(locID = 'L99381', sleep = "adf")), "invalid 'time' value")
})