tests/testthat/test-update.R

In leprechaun: Create Simple 'Shiny' Applications as Packages

source("../fns.R")

test_that("update", {
  wd <- getwd()
  pkg <- create_tmp_package()
  setwd(pkg)
  on.exit({
    setwd(wd)
    delete_tmp_package(pkg)
  })

  expect_error(update_scaffold(TRUE))
  scaffold()
  expect_message(update_scaffold(FALSE))
  expect_message(update_scaffold(TRUE))
  expect_true(update_scaffold(TRUE))

  use_config()
  use_sass()
  use_html_utils()
  use_endpoints_utils()
  create_input_handlers()
  
  # manually change lock
  new_version <- "0.0.1"
  lock <- leprechaun:::lock_read()
  lock$version <- new_version
  lock$r$ui <- new_version
  lock$r$run <- new_version
  lock$r$server <- new_version
  lock$r$assets <- new_version
  lock$r$`leprechaun-utils` <- new_version
  lock$r$zzz <- new_version
  lock$r$inputs <- new_version
  lock$uses$`html-utils` <- new_version
  lock$uses$`endpoint-utils` <- new_version
  lock$uses$config <- new_version
  lock$uses$sass <- new_version
  lock$uses$inputs <- new_version
  leprechaun:::lock_write(lock)
  expect_true(sitrep())
  expect_message(update_scaffold(FALSE))
  expect_message(update_scaffold(force = TRUE))
})