test_that("run_border_app errors cleanly without shiny", {
  # Only assert the object type when shiny is present; otherwise skip.
  skip_if_not_installed("shiny")
  app <- run_border_app()
  expect_s3_class(app, "shiny.appobj")
})