tests/integration/test-deploy.R

In rsconnect: Deploy Docs, Apps, and APIs to 'Posit Connect', 'shinyapps.io', and 'RPubs'

test_that("deploy does not error", {
  expect_true(deployApp("example-shiny", appTitle = "Test", account = account))
})

test_that("re-deploy does not error", {
  # Let's exercise the env vars as well
  expect_true(deployApp("example-shiny", envVars = "TEST", account = account))
})

test_that("listAccountEnvVars", {
  envs <- listAccountEnvVars(account = account)
  expect_true(nrow(envs) == 1)
})