tests/testthat/test-addins.R

In ThinkR-open/shinytemplate: A Framework for Robust Shiny Applications

test_that("go_to works", {
  dummy_golem <- create_dummy_golem()

  testthat::with_mocked_bindings(
    rstudioapi_hasFun = function(x) {
      return(TRUE)
    },
    rstudioapi_navigateToFile = function(x) {
      file.exists(
        x
      )
    },
    code = {
      these_all_should_be_true <- c(
        go_to_start(
          wd = dummy_golem
        ),
        go_to_dev(
          wd = dummy_golem
        ),
        go_to_deploy(
          wd = dummy_golem
        ),
        go_to_run_dev(
          wd = dummy_golem
        ),
        go_to_app_ui(
          wd = dummy_golem
        ),
        go_to_app_server(
          wd = dummy_golem
        ),
        go_to_run_app(
          wd = dummy_golem
        )
      )
    }
  )
  expect_true(
    unique(
      these_all_should_be_true
    )
  )
  unlink(
    dummy_golem,
    TRUE,
    TRUE
  )
})