tests/testthat/test-github.R

In subugoe/muggle: Opinionated Devops for R Data Products Strictly Without Magic

test_that("github packages image url is correct", {
  # outside of muggle container, this does not exist
  # but on ghactions, it should exist
  # TODO should actually test whether it's inside muggle container
  if (!is_github_actions()) {
    withr::local_envvar(.new = c("MUGGLE_PKG_NAME" = "muggle"))
  }
  expect_equal(
    gh_pkgs_image_url(version = "latest", repo_spec = "subugoe/muggle"),
    "docker.pkg.github.com/subugoe/muggle/muggle-runtime:latest"
  )
})

test_that("repo spec is correct", {
  skip("Skipping because there is no git repo")
  expect_equal(repo_spec(), "subugoe/muggle")
})