tests/testthat/test-TableProfiler-R6.R

In tidylab/tableware: Data Curation of Tables in R

context("unit test for TableProfiler Object")

test_that("Instantiating a TableProfiler on mtcars generates an accessible profile", {
    # No input arguments
    expect_error(TableProfiler$new())

    # Valid input argument
    expect_silent(TP <- TableProfiler$new(mtcars))
    expect_class(TP, "TableProfiler")
    expect_class(TP$profile, "data.frame")

    # Valid profile
    expect_attribute(TP$profile, "type")
})