tests/testthat/test-construct_cont.R

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

test_that("construct_cont works", {

  cont1 <- construct_cont()
  default_registry <- eval(formals(construct_cont)$default_registry)[1]
  default_tag <- eval(formals(construct_cont)$default_tag)[1]
  testthat::expect_equal(cont1[[1]],
                         paste0(default_registry,"bioconductor/bioconductor_docker:",default_tag))
  testthat::expect_null(cont1[[2]])
  testthat::expect_null(cont1[[3]])

  cont2 <- construct_cont(cont = "devel")
  testthat::expect_equal(cont2[[1]],
                         paste0(default_registry,"bioconductor/bioconductor_docker:",default_tag))

  if (!is_gha()) testthat::skip_if_offline(host = "bioconductor.org")

  cont3 <- construct_cont(versions_explicit = TRUE)
  testthat::expect_true(grepl("bioconductor/bioconductor_docker:RELEASE_*",
                              cont3[[1]]))
  testthat::expect_null(cont3[[2]])
  testthat::expect_null(cont3[[3]])

  cont4 <- construct_cont(default_tag = "release",
                          default_registry = "ghcr.io",
                          run_check_cont = TRUE) 
  testthat::expect_equal(cont4[[1]], paste0(default_registry,"bioconductor/bioconductor_docker:latest"))
  testthat::expect_null(cont4[[2]])
  testthat::expect_null(cont4[[3]])
  
  
  cont5 <- construct_cont(default_registry = NULL) 
  testthat::expect_equal(cont5[[1]],"bioconductor/bioconductor_docker:devel")
  testthat::expect_null(cont5[[2]])
  testthat::expect_null(cont5[[3]])
})