library(testthat)
library(AutoEDA)

#==========================================================
# export_numeric_summary()
#==========================================================

test_that("export_numeric_summary creates csv", {

  x <- numeric_summary(iris)

  f <- tempfile(fileext = ".csv")

  expect_no_error(
    export_numeric_summary(x, f)
  )

  expect_true(file.exists(f))

})

test_that("export_numeric_summary returns filename", {

  x <- numeric_summary(iris)

  f <- tempfile(fileext = ".csv")

  out <- export_numeric_summary(x, f)

  expect_true(file.exists(out))

})

test_that("export_numeric_summary rejects invalid object", {

  expect_error(
    export_numeric_summary(iris)
  )

})

test_that("export_numeric_summary rejects invalid filename", {

  x <- numeric_summary(iris)

  expect_error(
    export_numeric_summary(
      x,
      file = 123
    )
  )

})