tests/testthat/test-flaws.R

In lwjohnst86/PROMISE.audit: Identifies Unexpected Values in the PROMISE Datasets

context("Asserting functions")

n <- 5
testdata <- data.frame(
    Hours = c(sample(1:24, n), 25),
    Days = c(sample(1:7, n), 8),
    Months = c(sample(1:12, n), 13),
    Temp = c(runif(n, -30, 30), 2000),
    Latitude = c(runif(n, 0, 90), 100),
    Longitude = c(runif(n, 0, 180), 190)
)

test_that("General assert function works", {
    audit <- chk_assert_func(testdata, assertr::in_set(1:7), "Days")
    flaws <- attributes(audit)$assertr_errors[[1]]

    expect_equal(flaws$num.violations, 1)
    expect_equal(flaws$error_df$value, 8)
    expect_match(flaws$message, "Days")
})

test_that("Auditing values in range", {
    audit <- chk_in_range(testdata, -30, 30, "Temp")
    audit <- chk_in_range(audit, 0, 90, "Latitude")
    audit <- chk_in_range(audit, 0, 180, "Longitude")
    flaws <- attributes(audit)$assertr_errors

    id <- sample(3, 1)
    expect_equal(length(flaws), 3)
    expect_equal(flaws[[id]]$num.violations, 1)
    expect_equal(length(flaws[[id]]$error_df$value), 1)
    expect_match(flaws[[id]]$message, "Temp|Latitude|Longitude")
})

test_that("Auditing values in a set (specific integers)", {
    audit <- chk_in_set(testdata, 0:7, "Days")
    audit <- chk_in_set(audit, 0:24, "Hours")
    flaws <- attributes(audit)$assertr_errors

    id <- sample(2, 1)
    expect_equal(length(flaws), 2)
    expect_equal(flaws[[id]]$num.violations, 1)
    expect_equal(length(flaws[[id]]$error_df$value), 1)
    expect_match(flaws[[id]]$message, "Days|Hours")
})

test_that("Auditing duplicate values in one or combined two columns", {
    ds <- data.frame(id = c(rep(1:3, each = 2), 3),
                     time = c(rep(1:2, times = 3), 1))
    audit <- chk_duplicate(ds, c("id", "time"))
    flaws_1 <- attributes(audit)$assertr_errors

    audit <- chk_duplicate(audit, c("id"))
    flaws_all <- attributes(audit)$assertr_errors

    expect_equal(length(flaws_1), 1)
    flaws_1 <- flaws_1[[1]]
    expect_equal(flaws_1$num.violations, 2)
    expect_equal(length(flaws_1$error_df$value), 2)
    expect_match(flaws_1$message, "id.and.time")

    expect_equal(length(flaws_all), 2)
    expect_equal(length(flaws_all[[1]]$error_df$value), 2)
    expect_equal(length(flaws_all[[2]]$error_df$value), 7)
    expect_match(flaws_all[[1]]$message, "id.and.time")
    expect_match(flaws_all[[2]]$message, "id")
})

test_that("Auditing possible 'outliers' (within_mads)", {
    audit <- chk_outliers(testdata, 2, "Temp")
    flaws <- aud_report(audit)

    expect_equal(nrow(flaws), 1)
    expect_identical(flaws$Values, "2000")
    expect_identical(flaws$RowNum, "6")
    expect_match(flaws$Column, "Temp")
})


test_that("Auditing for missing values.", {
    ds <- data.frame(a = c(1:4, NA, 6:10))
    audit <- chk_missingness(ds, "a")
    flaws <- aud_report(audit)

    expect_equal(nrow(flaws), 1)
    expect_identical(flaws$Values, "NA")
    expect_identical(flaws$RowNum, "5")
    expect_match(flaws$Column, "a")
})