tests/testthat/test-ebirdregioninfo.R

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

vcr::use_cassette("ebirdregioninfo", {
  test_that("ebirdregioninfo works correctly", {

    us <- ebirdregioninfo("US")

    expect_true(inherits(us, "data.frame"))
    expect_equal(us$region, "United States")
    expect_equal(NROW(us), 1)
    expect_equal(NCOL(us), 5)
    expect_true(inherits(us$region, "character"))
    expect_true(inherits(us$minX, "numeric"))

    sp <- ebirdregioninfo("L99381")

    expect_true(inherits(sp, "data.frame"))
    expect_equal(sp$name, "Stewart Park")
    expect_equal(NROW(sp), 1)
    expect_equal(NCOL(sp), 16)
    expect_true(inherits(sp$name, "character"))
    expect_true(inherits(sp$latitude, "numeric"))
    expect_true(inherits(sp$longitude, "numeric"))
  })
  
  test_that("ebirdregioninfo fails correctly", {

    expect_error(ebirdregioninfo())
    expect_error(ebirdregioninfo("foo"), class = "error")
    expect_error(ebirdregioninfo("CA-BC-ZZ"), "No region with code")
    expect_error(ebirdregioninfo("US", key = "foo"), class = "http_403")

    expect_error(ebirdregioninfo("L00000"), "No such hotspot")
  })
})