tests/testthat/test_get_tabde.R

In s-fleck/tabde: Define and Check The Structure of Data Frames and Database Tables

context("get_tabde")


test_that("get_tabde works as expected", {
  expect_identical(
    get_tabde(iris)$col_name,
    names(iris)
  )

  expect_identical(
    get_tabde(iris)$col_type,
    unname(vapply(iris, class, ""))
  )

  expect_true("table_design" %in% class(get_tabde(iris)))
})