tests/testthat/test-config.R

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

test_that("account file returned with server name", {
  local_temp_config()
  registerAccount("simple", "alice", 13, apiKey = "alice-api-key")

  expected <- normalizePath(file.path(
    rsconnectConfigDir("accounts"),
    "simple/alice.dcf"
  ))
  dir <- accountConfigFile("alice", server = "simple")
  expect_equal(dir, expected)
})

test_that("account file containing pattern characters found with server name", {
  local_temp_config()
  registerAccount(
    "complex",
    "hatter+mad@example.com",
    42,
    apiKey = "hatter-api-key"
  )

  # https://github.com/rstudio/rsconnect/issues/620
  expected <- normalizePath(file.path(
    rsconnectConfigDir("accounts"),
    "complex/hatter+mad@example.com.dcf"
  ))
  dir <- accountConfigFile("hatter+mad@example.com", server = "complex")
  expect_equal(dir, expected)
})

test_that("isDocumentPath", {
  stuff <- local_temp_app(list(
    "shiny.app/app.R" = c(),
    "doc/research.Rmd" = c()
  ))
  expect_false(isDocumentPath(file.path(stuff, "shiny.app")))
  expect_false(isDocumentPath(file.path(stuff, "doc")))
  expect_true(isDocumentPath(file.path(stuff, "doc/research.Rmd")))
})