tests/testthat/test-taxinfo.R

In fozy81/NBN4R: National Biodiversity Network Atlas (UK and Ireland) Data and Resources in R

context("Test taxonomic information functions")

## taxinfo_download
thischeck=function() {
    test_that("taxinfo_download generally works as expected", {
        skip_on_cran()
        tx <- taxinfo_download("rk_family:Baetidae",fields=c("guid","rk_genus","scientificName","rank"))
        expect_equal(names(tx),c("guid","genus","scientificName","rank"))
        expect_gte(nrow(tx),10) ## expect at least 10 results here
        ## matching is case-sensitive, so this should return no results
        nbn_config(warn_on_empty=TRUE)
        ## expect warning here
        expect_warning(tx <- taxinfo_download("rk_family:baetidae",fields=c("guid","rk_genus","scientificName","rank")))
        nbn_config(warn_on_empty=FALSE)
        tx <- taxinfo_download("rk_family:baetidae",fields=c("guid","rk_genus","scientificName","rank"))
        expect_equal(nrow(tx),0) ## expect no results here
        ## but names in data.frame should be consistent even when empty
        expect_equal(names(tx),c("guid","genus","scientificName","rank"))

        ## default fields
        expect_true(setequal(names(taxinfo_download("rk_genus:Macropus")),c("guid","rank","scientificName","establishmentMeans","genus","family","order","class","phylum","kingdom","datasetName")))
    })
}
check_caching(thischeck)

thischeck=function() {
    test_that("taxinfo_download fields thingies work", {
        skip_on_cran()
        f <- nbn_fields("general")
        t <- taxinfo_download("rk_family:Baetidae",fields="all")
        expect_equal(ncol(t),nrow(f))
    })
}
check_caching(thischeck)

thischeck = function() {
  test_that("specieslist arguments in NBN4R package match arguments in ALA4R package", {
    expect_named(formals(taxinfo_download),names(formals(ALA4R::taxinfo_download)),ignore.order = TRUE)
  })
}
check_caching(thischeck)