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)

  ## Unable to infer for DockerHub
  testthat::expect_error(
    infer_docker_org(docker_org = NULL, 
                     docker_registry = "docker.io")
  )
  
})