test_that("shiny2docker works", {
unlink("dummy_app/renv.lock",force = TRUE)
unlink("dummy_app/Dockerfile",force = TRUE)
unlink("dummy_app/.dockerignore",force = TRUE)

# if on cran, use renv.cran.lock
if (isTRUE(testthat:::on_cran())){
  file.copy(from = "dummy_app/renv.lock.cran.lock",
            to = "dummy_app/renv.lock")
}

 out <-  shiny2docker(path = "dummy_app/")

expect_true(file.exists("dummy_app/renv.lock"))
expect_true(file.exists("dummy_app/Dockerfile"))
expect_true(file.exists("dummy_app/.dockerignore"))
testthat::expect_s3_class(out,"Dockerfile")
testthat::expect_s3_class(out,"R6")
unlink("dummy_app/renv.lock",force = TRUE)
unlink("dummy_app/Dockerfile",force = TRUE)
unlink("dummy_app/.dockerignore",force = TRUE)
})