tests/testthat/test-copy_file.R

In babelwhale: Talking to 'Docker' and 'Singularity' Containers

configs <- list(
  docker = create_docker_config(),
  singularity = create_singularity_config(cache_dir = tempdir())
)

config <- configs[[2]]

for (config in configs) {
  context(paste0("Testing ", config$backend))

  set_default_config(config, permanent = FALSE)

  skip_on_github_actions()
  skip_on_cran()

  test_that(paste0("babelwhale can copy and read a file from ", config$backend), {
    dest <- tempfile()
    copy_file("alpine", "/etc/inittab", dest)
    expect_true(file.exists(dest))

    hosts <- read_file("alpine", "/etc/inittab")
    expect_equal(hosts[1], "# /etc/inittab")
  })
}