library(testthat)
library(AutoEDA)

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

test_that("print.PCAResult works", {

  pca <- pca_analysis(iris)

  expect_no_error(
    print(pca)
  )

})

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

  pca <- pca_analysis(iris)

  x <- print(pca)

  expect_identical(
    x,
    pca
  )

})

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

  pca <- pca_analysis(iris)

  expect_s3_class(
    pca,
    "PCAResult"
  )

})

test_that("print.PCAResult works with numeric-only data", {

  pca <- pca_analysis(
    iris[, 1:4]
  )

  expect_no_error(
    print(pca)
  )

})

test_that("print.PCAResult prints PCA summary", {

  pca <- pca_analysis(iris)

  expect_output(
    print(pca),
    "Principal Component Analysis"
  )

})

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

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

  expect_error(

    print.PCAResult(
      iris
    )

  )

})

test_that("print.PCAResult rejects NULL", {

  expect_error(

    print.PCAResult(
      NULL
    )

  )

})