tests/testthat/test_distribution_differences.R

In mstaniak/egalitaRian: Compare Validation and Training Datasets and Explore Differences

context("Test functions that compare distributions of a single variable")

# Numeric variable
num_var <- compare_distributions(egalitarian_explanation, "V1")
# Categorical variable
fct_var <- compare_distributions(egalitarian_explanation, "fct")

testthat::test_that("Wrappers for comparing distributions are created", {
  testthat::expect_is(num_var, "egalitarian_comparison")
  testthat::expect_is(fct_var, "egalitarian_comparison")
})

testthat::test_that("Print and plot work alright", {
  testthat::expect_output(print(num_var))
  testthat::expect_output(plot(num_var), regexp = NA)
  testthat::expect_output(plot(num_var, "histogram"), regexp = NA)
  testthat::expect_output(plot(num_var, "density"), regexp = NA)
  testthat::expect_output(plot(fct_var), regexp = NA)
})

testthat::test_that("Distance statistics are calculated", {
  testthat::expect_is(calculate_statistics(egalitarian_explanation$data,
                                           is.numeric),
                      "data.frame")
  testthat::expect_is(calculate_statistics(egalitarian_explanation$data,
                                           is.factor),
                      "data.frame")
})

testthat::test_that("Distances for egalitarian object are calculated", {
  testthat::expect_is(get_distributions_distance(egalitarian_explanation),
                      "data.frame")
})