tests/testthat/test-dfdiff_has_issues.R

In diffdf: Dataframe Difference Tool

test_that("diffdf_has_issues works as expected", {
    ### Note that the first 2 comparisons in list_of_datasets are identical so we expect true
    ### all others are different so we expect false

    for (i in seq_along(length(list_of_comparisons))) {
        x <- diffdf(
            list_of_comparisons[[i]][[1]],
            list_of_comparisons[[i]][[2]],
            suppress_warnings = TRUE
        )
        if (i %in% c(1, 2)) {
            expect_false(diffdf_has_issues(x))
        } else {
            expect_true(diffdf_has_issues(x))
        }
    }

    ## Testing with keys
    comp <- list_of_comparisons[["everything"]]
    expect_true(
        diffdf_has_issues(
            diffdf(comp[[1]], comp[[2]], keys = c("ID", "GROUP1"), suppress_warnings = TRUE)
        )
    )

    expect_false(
        diffdf_has_issues(
            diffdf(TDAT, TDAT, keys = c("ID", "GROUP1"), suppress_warnings = TRUE)
        )
    )
})