tests/testthat/test-turbo-listener.R

In tjpalanca/hotwire.R: Hotwire for R

test_that("turbo_listener() works", {
  script <- expect_class(
    turbo_listener(
      event = "before-visit",
      code  = "event.preventDefault();"
    ),
    "shiny.tag"
  )
  expect_equal(script$name, "script")
})