tests/testthat/test-assertions.R

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

context("Check assertion-related functions")

thischeck=function() {
    test_that("NULL returned when no assertions present in input", {
        temp=data.frame()
        class(temp)=c("occurrences",class(temp))
        expect_null(check_assertions(temp))
    })
}
check_caching(thischeck)


thischeck=function() {
    test_that("check_assertions checks class of input correctly", {
        temp=data.frame()
        expect_error(check_assertions(temp))    
        class(temp)=c("occurrences",class(temp))
        expect_null(check_assertions(temp))
    })
}
check_caching(thischeck)

thischeck=function() {
    test_that("check_assertions gets all assertions in occurrences object", {
        skip_on_cran()
        x=occurrences(taxon="Otis tarda",download_reason_id=10,qa=nbn_fields("assertions",as_is=TRUE)$name)    
        expect_equal(length(setdiff(check_assertions(x)$name,nbn_fields("assertions",as_is=TRUE)$name)),0) ## expect all assertion fields in object to be in the list of master assertion fields 
        x=occurrences(taxon="Otis tarda",download_reason_id=10,qa="none")
        expect_null(check_assertions(x)$name)
    })
}
check_caching(thischeck)