library(testthat)
library(AutoEDA)

#==========================================================
# print.NumericSummary()
#==========================================================

test_that("print.NumericSummary works", {

  ns <- numeric_summary(iris)

  expect_no_error(
    print(ns)
  )

})

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

  ns <- numeric_summary(iris)

  x <- print(ns)

  expect_identical(
    x,
    ns
  )

})

test_that("print.NumericSummary accepts NumericSummary", {

  ns <- numeric_summary(iris)

  expect_s3_class(
    ns,
    "NumericSummary"
  )

})

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

  dat <- iris

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

  ns <- numeric_summary(dat)

  expect_no_error(
    print(ns)
  )

})

test_that("print.NumericSummary works with two numeric variables", {

  ns <- numeric_summary(
    iris[,1:2]
  )

  expect_no_error(
    print(ns)
  )

})

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

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

  expect_error(

    AutoEDA:::print.NumericSummary(
      iris
    )

  )

})

test_that("print.NumericSummary rejects NULL", {

  expect_error(

    AutoEDA:::print.NumericSummary(
      NULL
    )

  )

})