test_that("summary_data returns correct dimensions", {

  x <- summary_data(iris)

  expect_equal(x$Rows,150)

  expect_equal(x$Columns,5)

})

test_that("summary_data detects numeric variables", {

  x <- summary_data(iris)

  expect_equal(x$NumericVariables,4)

})

test_that("summary_data detects factor variables", {

  x <- summary_data(iris)

  expect_equal(x$FactorVariables,1)

})