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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.