tests/testthat/test-is_role_playing_dimension.R

context("test is_role_playing_dimension")

test_that("is_role_playing_dimension works", {

  expect_equal(is_role_playing_dimension(st_mrs_age_test$dimension$when), FALSE)
  expect_equal(is_role_playing_dimension(st_mrs_age_test$dimension$where), FALSE)
  expect_equal(is_role_playing_dimension(st_mrs_age_test$dimension$when_common), TRUE)
})

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.