tests/testthat/test-console.R

In bd-R/bdclean: A User-Friendly Biodiversity Data Cleaning App for the Inexperienced R User

context("bdclean checks")

# Utils

test_that("Quality checks are read correctly from bdchecks", {
    expect_that(
        length(get_checks_list()) > 15, equals(TRUE)
    )
})


# Quality Checks

test_that("Taxonomy level works with correct data", {
    expect_true(ncol(taxo_level(mammals_data)) == 85)
})

test_that("Taxonomy level breaks with no data", {
    expect_error(taxo_level())
})


test_that("Taxonomy level breaks with incorrect resolution", {
    expect_warning(taxo_level(mammals_data, "Empty"))
})

test_that("Taxonomy level breaks with incorrect resolution type", {
    expect_warning(taxo_level(mammals_data, 10))
})

test_that("Spatial resolution works with correct data", {
    expect_true(ncol(spatial_resolution(mammals_data)) == 85)
})


test_that("Earliest date works with correct data", {
    expect_true(ncol(earliest_date(mammals_data)) == 85)
})


test_that("Temporal resolution works with correct data", {
    expect_true(ncol(temporal_resolution(mammals_data)) == 85)
})


# Reference class tests

test_that("BDQuestion reference class initializes correctly", {
    expect_silent(BdQuestion(
        question = "Do you worry about taxonomical aspect of the data?",
        possible.responses = c("Yes", "No"),
        question.type = "Router",
        router.condition = c("Yes", "Y", "yes", 1, TRUE, "TRUE"),
        question.id = "taxonMain",
        ui.type = "single-checkbox"
    ))
})


test_that("BdQuestionContainer reference class initializes correctly", {
    expect_message(BdQuestionContainer(c(question1)), "New BdQuestionContainer instance created")
})

test_that("Default questionnaire is generated", {
    expect_that(
        create_default_questionnaire(),
        is_a("BdQuestionContainer")
    )
})

test_that("BdQuestionContainer reference class prints correctly", {
    expect_output(question1$print_question(), "Do you worry about taxonomical aspect of the data?")
})

test_that("BdQuestionContainer validation function adds correctly", {
    expect_silent(question1$add_validation_function(function() return(TRUE)))
})

test_that("BdQuestionContainer user response adds correctly", {
    expect_silent(question1$set_response("TRUE"))
})

test_that("BdQuestionContainer nested question adds correctly", {
    expect_silent(question1$add_child_question(c(question2)))
})

test_that("BdQuestionContainer quality checks adds correctly", {
    expect_silent(question2$add_quality_checks("taxo_level"))
})

test_that("BdQuestionContainer flads data correctly", {
    expect_message(question2$flag_data(mammals_data), "Removing records above : SPECIES")
})

test_that("BdQuestionContainer creates docs correctly", {
    expect_silent(question2$add_to_report(mammals_flagged))
})