library(testthat)
library(AutoEDA)

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

test_that("print.AutoEDAReport works", {

  x <- create_report(iris)

  expect_no_error(
    print(x)
  )

})

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

test_that("print.NumericSummary works", {

  x <- numeric_summary(iris)

  expect_no_error(
    print(x)
  )

})

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

test_that("print.MissingSummary works", {

  x <- missing_summary(iris)

  expect_no_error(
    print(x)
  )

})

#==========================================================
# print.OutlierSummary()
#==========================================================

test_that("print.OutlierSummary works", {

  x <- outlier_summary(iris)

  expect_no_error(
    print(x)
  )

})

#==========================================================
# print.CorrelationMatrix()
#==========================================================

test_that("print.CorrelationMatrix works", {

  x <- correlation_analysis(iris)

  expect_no_error(
    print(x)
  )

})

#==========================================================
# print.ClusterResult()
#==========================================================

test_that("print.ClusterResult works", {

  x <- cluster_analysis(iris)

  expect_no_error(
    print(x)
  )

})

#==========================================================
# print.PCAResult()
#==========================================================

test_that("print.PCAResult works", {

  x <- pca_analysis(iris)

  expect_no_error(
    print(x)
  )

})