tests/testthat/test-get_dimension_names.R

context("test get_dimension_names")

test_that("get_dimension_names works", {
  dn <- get_dimension_names(st_mrs_age_test)

  expect_equal(dn, c("when", "when_available", "where", "who"))
})

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.