library(testthat)
library(AutoEDA)

#==========================================================
# missing_summary()
#==========================================================

test_that("missing_summary returns MissingSummary", {

  x <- missing_summary(airquality)

  expect_s3_class(
    x,
    "MissingSummary"
  )

})

test_that("missing_summary accepts valid data", {

  expect_no_error(
    missing_summary(airquality)
  )

})

test_that("missing_summary contains expected components", {

  x <- missing_summary(airquality)

  expect_named(
    x,
    c(
      "TotalRows",
      "TotalColumns",
      "TotalCells",
      "TotalMissing",
      "OverallPercent",
      "VariablesWithMissing",
      "CompleteCases",
      "VariableSummary"
    )
  )

})

test_that("missing_summary rejects non-data.frame", {

  expect_error(
    missing_summary(1:10)
  )

})

test_that("missing_summary rejects empty data.frame", {

  expect_error(
    missing_summary(data.frame())
  )

})

test_that("missing_summary handles complete data", {

  expect_equal(
    missing_summary(iris)$TotalMissing,
    0
  )

})

test_that("missing_summary detects missing values", {

  expect_gt(
    missing_summary(airquality)$TotalMissing,
    0
  )

})