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")
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.