tests/testthat/test-infer_docker_org.R

In rworkflows: Test, Document, Containerise, and Deploy R Packages

test_that("infer_docker_org works", {
  
  ## User-given
  docker_org <- "neurogenomicslab"
  out <- infer_docker_org(docker_org = docker_org, 
                          docker_registry = "docker.io")
  testthat::expect_equal(out,docker_org)
  
  ## Infer from GH info in DESCRIPTION
  d <- desc::desc(package = "yaml")
  out <- infer_docker_org(docker_org = NULL, 
                          docker_registry = "ghcr.io",
                          paths=d)
  testthat::expect_equal(out,"vubiostat")
  
  ## Unable to infer for DockerHub
  testthat::expect_error(
    infer_docker_org(docker_org = NULL, 
                     docker_registry = "docker.io")
  )
  
})