tests/testthat/test-preview-tools.R

In shinyquiz: Create Interactive Quizzes in 'shiny'

question <- shinyquiz::create_question(
  'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Select nulla.',
  shinyquiz::add_choice('auctor'),
  shinyquiz::add_choice('nulla', correct = TRUE)
)
quiz <- shinyquiz::create_quiz(
  question,
  shinyquiz::create_question(
    'Mauris congue aliquet dui, ut dapibus lorem porttitor sed. Select 600.',
    shinyquiz::add_choice('600', correct = TRUE),
    shinyquiz::add_choice('800')
  )
)

p_app <- shinyquiz:::preview_app(quiz)
# p_quiz <- suppressMessages(shinyquiz:::preview_quiz(quiz))
# p_question <- suppressMessages(shinyquiz:::preview_question(question))

test_that("preview_ functions work", {
  expect_s3_class(p_app, 'shiny.appobj')
  # expect_s3_class(p_quiz, 'shiny.tag.list')
  # expect_s3_class(p_question, 'shiny.tag')
})