tests/testthat/test-issues.R

context("Issues are fixed")

test_that("numeric input recovers from receiving bad input", {

  app <- ShinyDriver$new(test_path("apps/issue-24"))
  expect_equal(
    app$findWidget("num")$setValue("bogus")$setValue(8)$getValue(),
    8
  )
})
rstudio/shinytest documentation built on Jan. 15, 2019, 7:01 a.m.