tests/testthat/test-search-guids.R

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

thischeck <- function() {
    test_that("search_guids can cope with factor inputs", {
        skip_on_cran()
        expect_equal(search_guids(
          factor("https://id.biodiversity.org.au/node/apni/2890970")),
          search_guids("https://id.biodiversity.org.au/node/apni/2890970"))
    })
}
check_caching(thischeck)

thischeck <- function() {
    test_that("search_guids can cope with mixed recognized/unrecogized
              guids", {
        skip_on_cran()
        expect_equal(is.na(
          search_guids(c("https://id.biodiversity.org.au/node/apni/2890970",
                         "this_is_not_a_valid_guid"))$guid), c(FALSE, TRUE))
    })
}
check_caching(thischeck)


thischeck <- function() {
    test_that("search_guids can cope with all-unrecogized guids", {
        skip_on_cran()
        expect_equal(nrow(search_guids("fljkhdlsi")), 1)
        expect_equal(nrow(search_guids(c("fljkhdlsi", "sdkhfowbiu"))), 2)
        expect_true(all(is.na(search_guids(c("fljkhdlsi", "sdkhfowbiu"))$
                                guid)))
    })
}
check_caching(thischeck)


thischeck <- function() {
    test_that("search_guids returns occurrence counts when asked", {
        skip_on_cran()
        expect_false(is.na(
          search_guids("https://id.biodiversity.org.au/node/apni/2890970",
                       occurrence_count = TRUE)$occurrenceCount))
        expect_equal(is.na(
          search_guids(c("https://id.biodiversity.org.au/node/apni/2890970",
                         "isdulfsadh"),
                       occurrence_count = TRUE)$occurrenceCount),
          c(FALSE, TRUE))
        expect_true(is.na(
          search_guids(c("blahblah"),
                       occurrence_count = TRUE)$occurrenceCount))
        expect_false(is.list(search_guids(
          c("blahblah"), occurrence_count = TRUE)$occurrenceCount))
        expect_false(is.list(search_guids(
          c("blahblah", "jdfhsdjk"), occurrence_count = TRUE)$occurrenceCount))
        expect_false(is.list(search_guids(
          c("https://id.biodiversity.org.au/node/apni/2890970", "blahblah",
            "jdfhsdjk"), occurrence_count = TRUE)$occurrenceCount))
        expect_false(is.list(search_guids(
          c("https://id.biodiversity.org.au/node/apni/2890970",
            "https://id.biodiversity.org.au/node/apni/2890970"),
          occurrence_count = TRUE)$occurrenceCount))
        expect_false(is.list(search_guids(
          c("https://id.biodiversity.org.au/node/apni/2890970"),
          occurrence_count = TRUE)$occurrenceCount))
        expect_output(print(
          search_guids(c("https://id.biodiversity.org.au/node/apni/2890970"),
                       occurrence_count = TRUE)), "occurrenceCount")
        expect_output(print(
          search_guids(c("urn:lsid:biodiversity.org.au:afd.taxon:95773568",
                         "isdulfsadh"), occurrence_count = TRUE)),
          "occurrenceCount")
        expect_null(search_guids(
          c("https://id.biodiversity.org.au/node/apni/2890970", "isdulfsadh"),
          occurrence_count = FALSE)$occurrenceCount)
        ## "occurrenceCount" should not appear in the print(...) output
        expect_equal(
          length(grep("occurrenceCount",
                      capture.output(print(search_guids(
                        c("urn:lsid:biodiversity.org.au:afd.taxon:95773568",
                          "isdulfsadh"), occurrence_count = FALSE))))), 0)
    })
}
check_caching(thischeck)