testthat::test_that("use_roadmap returns an html tag", {
  x <- use_roadmap(c("Intro", "Problem", "Analysis"))
  testthat::expect_s3_class(x, "shiny.tag")
})