tests/testthat/test-check_cont.R

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

test_that("check_cont works", {
  if (!is_gha()) testthat::skip_if_offline(host = "ghcr.io")
  
  testthat::expect_no_warning(
    check_cont(cont = "bioconductor/bioconductor_docker:devel")
  )
  testthat::expect_no_warning(
    check_cont(cont = "bioconductor/bioconductor_docker")
  )
  testthat::expect_error(
    testthat::expect_warning(
      check_cont(cont = "bioconductor/bioconductor_typooooo")
    )
  )
  testthat::expect_error(
    check_cont(cont = "bioconductor/bioconductor_docker:typooo")
  )
  testthat::expect_error(
    check_cont(cont = "typooooo")
  )
  
  #### Include registry ####
  testthat::expect_no_warning(
    check_cont(cont = "ghcr.io/bioconductor/bioconductor_docker")
  ) 
  testthat::expect_no_warning(
    check_cont(cont = "docker.io/bioconductor/bioconductor_docker:devel")
  )
  testthat::expect_warning(
    check_cont(cont = "mcr.microsoft.com/bioconductor/bioconductor_docker:devel")
  )
})