tests/testthat/test-get_star_schema_names.R

context("test get_star_schema_names")

test_that("get_star_schema_names works", {
  dn <- get_star_schema_names(ct_mrs_test)

  expect_equal(dn, c("mrs_age", "mrs_cause"))
})

Try the starschemar package in your browser

Any scripts or data that you put into this service are public.

starschemar documentation built on Nov. 11, 2023, 5:09 p.m.