tests/testthat/test-lists.R

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

context("Test list-related functions")

thischeck <- function() {
    test_that("ala_lists does stuff", {
        skip_on_cran()
        all_lists <- ala_lists()
        expect_is(all_lists, "data.frame")
        expect_true(all(c("dataResourceUid", "listName", "listType") %in%
                          names(all_lists)))
        ## should be a few Field Guide lists
        expect_gt(nrow(all_lists[grep("Field Guide", all_lists$listName), ]),
                  1)
        l <- ala_lists(search_names("Achatina fulica")$guid)
        ## these names (with guid supplied) are different to the case when no
        ## guid is supplied
        expect_equal(names(l),
                     c("dataResourceUid", "guid", "list", "kvpValues"))
    })
}
check_caching(thischeck)


thischeck <- function() {
    test_that("ala_list does stuff", {
        skip_on_cran()
        ## download the vertebrates field guide
        l <- ala_list(druid = "dr1146")
        expect_is(l, "data.frame")
        expect_named(l, c("id", "name", "commonName", "scientificName", "lsid",
                          "dataResourceUid", "kvpValues"))
        expect_is(l$kvpValues, "list")
        expect_named(l$kvpValues[[1]], c("key", "value"))
    })
}
check_caching(thischeck)