tests/testthat/test-def_themeset.R

test_that("initialization from string works", {
  file <- I("Themeset: Three Miscellaneous Themes
====================================

:: Description
A test themeset.

:: References
https://www.themeontology.org

:: Component Themes
romantic love
husband and wife
obsession")
  themeset <- Themeset$new(file)
  component_theme_names <- c("romantic love", "husband and wife", "obsession")
  expect_equal(pull(themeset$component_theme_names()), component_theme_names)
})

Try the stoRy package in your browser

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

stoRy documentation built on July 9, 2023, 7:46 p.m.