tests/testthat/test-variable-renaming.R

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

context("Test that variables are renamed correctly")

thischeck=function() {
    test_that("acronyms remain uppercase", {
        skip_on_cran()
        expect_equal(NBN4R:::rename_variables("IMCRA","assertions"),"iMCRA")
        expect_equal(NBN4R:::rename_variables("IMCRA","occurrence"),"IMCRA")
    })
}
check_caching(thischeck)

thischeck=function() {
    test_that("underscores are renamed to camelCase", {
        skip_on_cran()
        expect_equal(NBN4R:::rename_variables("this_that","occurrence"),"thisThat")
    })
}
check_caching(thischeck)

thischeck=function() {
    test_that("particular variables are renamed for occurrence data", {
        skip_on_cran()
        temp=c("scientificName","matchedScientificName","recordID","xVersion","MatchTaxonConceptGUID","vernacularName","taxonRank","matchedsomething","processedsomething","parsedsomething")
        temp2=NBN4R:::rename_variables(temp,"occurrence")
        expect_true(!any(temp==temp2))
    })
}
check_caching(thischeck)


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