tests/testthat/test-fields.R

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

context("Test field-related functions")

## nbn_fields
thischeck=function() {
    test_that("nbn_fields works as expected", {
        skip_on_cran()
        expect_gt(nrow(nbn_fields(fields_type="occurrence")),480)
        expect_lt(nrow(nbn_fields(fields_type="occurrence_indexed")),nrow(nbn_fields(fields_type="occurrence")))
        expect_lt(nrow(nbn_fields(fields_type="occurrence_stored")),nrow(nbn_fields(fields_type="occurrence")))
        expect_gt(nrow(nbn_fields(fields_type="general")),75)
        expect_gt(nrow(nbn_fields(fields_type="assertions")),85)
        expect_gt(nrow(nbn_fields(fields_type="layers")),50)
        expect_error(nbn_fields("b"))
        expect_error(nbn_fields(1))
    })
}
check_caching(thischeck)

## field_info
thischeck=function() {
    test_that("field_info does things", {
        skip_on_cran()
        expect_is(field_info("blah"),"data.frame") ## invalid field name
        nbn_config(warn_on_empty=TRUE)
        expect_warning(field_info("blah"))
        nbn_config(warn_on_empty=FALSE)
        expect_equal(nrow(field_info("blah")),0)
    })
}
check_caching(thischeck)

thischeck=function() {
    test_that("field_info on layers copes with all possible layers", {
        skip("skipping really slow field_info test")
        skip_on_cran()
        ## this test quite slow
        tt = nbn_fields('layers')
        for (ii in tt$id) {
            expect_gt(nrow(field_info(ii)),0) ## this fails where JSON file too large
        }
    })
}
check_caching(thischeck)

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