tests/testthat/test-UseLoaderData.R

In reactRouter: 'React Router' for 'shiny' Apps and 'Quarto'

test_that("useLoaderData() renders loader data", {
  skip_on_cran()

  app <- shinytest2::AppDriver$new(
    app_dir = testthat::test_path("test-apps", "UseLoaderData")
  )
  app$wait_for_idle()

  app$get_js("window.location.hash = '#/data'")
  app$wait_for_idle()

  loader_all <- app$get_text("#loaderAll")
  expect_true(grepl('"name"', loader_all))
  expect_true(grepl('"Alice"', loader_all))

  loader_name <- app$get_text("#loaderName")
  expect_equal(loader_name, "Alice")

  loader_age <- app$get_text("#loaderAge")
  expect_equal(loader_age, "30")

  # render = JS(...) path: receives full loader object, composes a string
  loader_name_render <- app$get_text("#loaderNameRender")
  expect_equal(loader_name_render, "Alice, age 30")
})