tests/testthat/test-add_dockerfiles.R

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

test_that("talk_once", {
  once_sum <- talk_once(sum, "Hey there")
  expect_output(
    once_sum(),
    "Hey there"
  )
  expect_silent(
    once_sum()
  )
})

test_that("add_dockerfile works", {
  skip_on_cran()
  skip_if_not_installed("dockerfiler", "0.2.3")
  dummy_golem <- create_dummy_golem()

  testthat::with_mocked_bindings(
    dockerfiler_dock_from_desc = function(...) {
      return(readRDS("Dockerfile.RDS"))
    },
    usethis_use_build_ignore = function(...) {
      return(NULL)
    },
    {
      withr::with_options(
        c("usethis.quiet" = TRUE),
        {
          dockerfile_with_add_dockerfile <- add_dockerfile(
            path = file.path(
              dummy_golem,
              "DESCRIPTION"
            ),
            pkg = dummy_golem,
            output = file.path(
              dummy_golem,
              "Dockerfile_add_dockerfile"
            ),
            open = FALSE
          )
          dockerfile_with_add_dockerfile_shinyproxy <- add_dockerfile_shinyproxy(
            path = file.path(
              dummy_golem,
              "DESCRIPTION"
            ),
            pkg = dummy_golem,
            output = file.path(
              dummy_golem,
              "Dockerfile_add_dockerfile_shinyproxy"
            ),
            open = FALSE
          )

          dockerfile_with_add_dockerfile_heroku <- add_dockerfile_heroku(
            path = file.path(
              dummy_golem,
              "DESCRIPTION"
            ),
            pkg = dummy_golem,
            ,
            output = file.path(
              dummy_golem,
              "Dockerfile_add_dockerfile_heroku"
            ),
            open = FALSE
          )
        }
      )
    }
  )
  expect_true(
    inherits(
      dockerfile_with_add_dockerfile,
      "Dockerfile"
    )
  )
  expect_true(
    inherits(
      dockerfile_with_add_dockerfile_shinyproxy,
      "Dockerfile"
    )
  )
  expect_true(
    inherits(
      dockerfile_with_add_dockerfile_heroku,
      "Dockerfile"
    )
  )
  unlink(dummy_golem, TRUE, TRUE)
})