library(testthat)
library(AutoEDA)

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

test_that("print.OutlierSummary works", {

  out <- outlier_detection(iris)

  expect_no_error(
    print(out)
  )

})

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

  out <- outlier_detection(iris)

  x <- print(out)

  expect_identical(
    x,
    out
  )

})

test_that("print.OutlierSummary works for ZScore method", {

  out <- outlier_detection(
    iris,
    method = "ZScore"
  )

  expect_no_error(
    print(out)
  )

})

test_that("print.OutlierSummary works for MAD method", {

  out <- outlier_detection(
    iris,
    method = "MAD"
  )

  expect_no_error(
    print(out)
  )

})

test_that("print.OutlierSummary works when no outliers exist", {

  dat <- data.frame(

    x = c(10,11,12,13,14,15),

    y = c(20,21,22,23,24,25)

  )

  out <- outlier_detection(dat)

  expect_no_error(
    print(out)
  )

})

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

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

  expect_error(

    print.OutlierSummary(
      iris
    )

  )

})

test_that("print.OutlierSummary rejects NULL", {

  expect_error(

    print.OutlierSummary(
      NULL
    )

  )

})