library(testthat)
library(AutoEDA)

#==========================================================
# print.AutoEDAReport()
#==========================================================

test_that("print.AutoEDAReport works", {

  report <- create_report(iris)

  expect_no_error(
    print(report)
  )

})

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

  report <- create_report(iris)

  x <- print(report)

  expect_identical(
    x,
    report
  )

})

test_that("print.AutoEDAReport works with empty report", {

  report <- structure(
    list(),
    class = "AutoEDAReport"
  )

  expect_no_error(
    print(report)
  )

})

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

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

  expect_error(

    AutoEDA:::print.AutoEDAReport(
      iris
    )

  )

})

test_that("print.AutoEDAReport rejects NULL", {

  expect_error(

    AutoEDA:::print.AutoEDAReport(
      NULL
    )

  )

})