tests/testthat/test-view-ui.R

In rjake/shinyobjects: Access Reactive Data Interactively

suppressWarnings(library(mockery))
suppressWarnings(library(shiny))

test_that("message if not shiny.tag", {
  run_app_mock <- mock()
  
  stub(
    where = view_ui,
    what = "shinyApp",
    how = "test app"
  )
  
  stub(
    where = view_ui,
    what = "runApp",
    how = run_app_mock
  )

  x <- ""
  
  expect_message(view_ui(x))
})


test_that("parameters were appropriately passed", {
  run_app_mock <- mock()
  
  stub(
    where = view_ui,
    what = "shinyApp",
    how = "test app"
  )
  
  stub(
    where = view_ui,
    what = "runApp",
    how = run_app_mock
  )
  
  x <- 
    tagList(
      h4("A header"),
      selectInput("select", "Select here", choices = 1:10)
    )
  
  view_ui(x)
  
  expect_called(run_app_mock, n = 1)
  
  expect_args(
    mock_object = run_app_mock,
    n = 1,
    appDir = "test app", 
    launch.browser = rstudioapi::viewer
  )
})


# test_that("Last.value used if missing", {
#   fluid_page_mock <- mock()
#   
#   stub(
#     where = view_ui,
#     what = "fluidPage",
#     how = fluid_page_mock
#   )
#   
#   tagList(h4("A header"))
#   
#   view_ui()
# 
#   expect_args(
#     fluid_page_mock,
#     x = tagList(h4("A header")),
#     n = 1
#   )
# })