tests/testthat/test-turbo-link.R

In tjpalanca/hotwire.R: Hotwire for R

test_that("turbo_frame() works", {
  frame <- expect_class(
    turbo_frame(
      id         = "id",
      src        = "hello",
      target     = "_top",
      autoscroll = "end",
      loading    = "lazy",
      div(id = "Hello")
    ),
    "shiny.tag"
  )
  expect_equal(frame$name, "turbo-frame")
})