tests/testthat/test-shinysel.R

In reside-ic/shinysel: What the Package Does (One Line, Title Case)

context("shinysel")

test_that("ui generation changes title", {
  dat <- shinysel_ui("string")
  tags <- dat[[3]]
  expect_equal(tags[[1]]$children[[1]][[2]]$children[[1]], "string")
})


test_that("test shiny application", {
  dr <- selenium_driver()

  app <- launch_shinysel("mytitle")
  dr$navigate(app$url)

  title <- dr$getTitle()[[1]]
  expect_equal(title, "mytitle")
})