tests/testthat/test-deploy-docker.R

In MarkEdmondson1234/googleCloudRunner: R Scripts in the Google Cloud via Cloud Run, Cloud Build and Cloud Scheduler

test_that("[Online] Test Docker", {
  skip_on_ci()
  skip_on_cran()

  runme <- system.file("example/",
    package = "googleCloudRunner",
    mustWork = TRUE
  )

  cd <- cr_deploy_docker(runme, kaniko_cache = FALSE)
  expect_equal(cd$status, "SUCCESS")

  # test kaniko_cache
  ccd <- cr_deploy_docker(runme, kaniko_cache = TRUE)
  expect_equal(ccd$status, "SUCCESS")
})