tests/testthat/test-miss-prop-summary.R

In njtierney/ggmissing: Data Structures, Summaries, and Visualisations for Missing Data

test_that("miss_prop_summary returns a data.frame",{
  expect_s3_class(miss_prop_summary(airquality),
                  "data.frame")
})

test_that("miss_prop_summary returns a tibble",{
  expect_equal(class(miss_prop_summary(airquality)),
               c("tbl_df", "tbl", "data.frame"))
})

test_that("miss_prop_summary errors when given non dataframe or 0 entry",{
  expect_snapshot(
    error = TRUE,
    miss_prop_summary(0)
    )
  expect_snapshot(
    error = TRUE,
    miss_prop_summary("a")
    )
  expect_snapshot(
    error = TRUE,
    miss_prop_summary(matrix(airquality))
    )
  expect_snapshot(
    error = TRUE,
    miss_prop_summary(NULL)
    )
})

test_that("There are 3 columns",{
  expect_equal(ncol(miss_prop_summary(airquality)),3)
})

test_that("The columns are named df, var, case",{
  expect_named(miss_prop_summary(airquality),c("df","var","case"))
})


aq_group <- dplyr::group_by(airquality, Month)

test_that("miss_prop_summary grouped_df returns a tibble", {
  expect_s3_class(miss_prop_summary(aq_group), "tbl_df")
})

test_that("grouped_df returns 1 more column than regular miss_prop_summary", {
  expect_equal(ncol(miss_prop_summary(aq_group)),
               ncol(miss_prop_summary(airquality))+1)
})

test_that("grouped_df returns a column named 'Month'", {
  expect_identical(names(miss_prop_summary(aq_group)),
                   c("Month", "df", "var","case"))
})

test_that("grouped_df returns a dataframe with more rows than regular", {
  expect_gt(nrow(miss_prop_summary(aq_group)),
            nrow(miss_prop_summary(airquality)))
  })

test_that("grouped_df returns a column named 'Month' with the right levels", {
  expect_identical(unique(miss_prop_summary(aq_group)$Month),
                   5:9)
})