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 Nov. 2, 2018, 8:59 a.m.