tests/testthat/test-projekt.R

context("test-projekt")

test_that("Projekt works", {
  x <- Projekt(NULL)
  expect_equal(get_my_options()$output, "text")
  expect_true(is.character(x))
  
})
stp4/stp25output documentation built on Sept. 19, 2021, 11:56 a.m.