tests/testthat/test-fieldguide.R

In ALA4R: Atlas of Living Australia (ALA) Data and Resources in R

context("Test fieldguide generator")

thischeck <- function() {
    test_that("fieldguide works as expected", {
        skip_on_cran()
        tmp <- fieldguide(guids = c("http://id.biodiversity.org.au/node/apni/
                                   2890970"))
        expect_is(tmp, "character")
        expect_equal(length(tmp), 1)
        expect_true(file.exists(tmp))
    })
}
check_caching(thischeck)

thischeck <- function() {
    test_that("fieldguide degenerate calls work", {
        expect_error(fieldguide()) ## no guids
        expect_error(fieldguide(guids = NULL)) ## NULL guids
    })
}
check_caching(thischeck)