library(testthat)

#--------------------------------------------------
#  Numeric summary
#--------------------------------------------------

test_that("numeric summary works", {

  x <- numeric_summary(iris)

  expect_s3_class(x, "NumericSummary")

})

test_that("numeric summary contains mean", {

  x <- numeric_summary(iris)

  expect_true(

    "Mean" %in% names(x)

  )

})


#--------------------------------------------------
# Invalid Numeric summary
#--------------------------------------------------

test_that("numeric_summary rejects invalid input", {

  expect_error(
    numeric_summary(1:10)
  )

})