library(testthat)
library(AutoEDA)

#==========================================================
# print.MissingSummary()
#==========================================================

test_that("print.MissingSummary works", {

  ms <- missing_summary(iris)

  expect_no_error(
    print(ms)
  )

})

test_that("print.MissingSummary returns object invisibly", {

  ms <- missing_summary(iris)

  x <- print(ms)

  expect_identical(
    x,
    ms
  )

})

test_that("print.MissingSummary returns MissingSummary object", {

  ms <- missing_summary(iris)

  expect_s3_class(
    ms,
    "MissingSummary"
  )

})

test_that("print.MissingSummary works with missing values", {

  dat <- iris
  dat$Sepal.Length[1:10] <- NA

  ms <- missing_summary(dat)

  expect_no_error(
    print(ms)
  )

})

test_that("print.MissingSummary works when no missing values exist", {

  ms <- missing_summary(iris)

  expect_no_error(
    print(ms)
  )

})

#==========================================================
# Invalid input
#==========================================================

test_that("print.MissingSummary rejects invalid object", {

  expect_error(

    print.MissingSummary(
      iris
    )

  )

})

test_that("print.MissingSummary rejects NULL", {

  expect_error(

    print.MissingSummary(
      NULL
    )

  )

})