tests/testthat/test00_tools.R

In AzureContainers: Interface to 'Container Instances', 'Docker Registry' and 'Kubernetes' in 'Azure'

context("Tools interface")

if(.AzureContainers$docker == "" ||
   .AzureContainers$dockercompose == "" ||
   .AzureContainers$kubectl == "" ||
   .AzureContainers$helm == "")
    skip("Tests skipped: external tools not found")

echo <- getOption("azure_containers_tool_echo")
options(azure_containers_tool_echo=FALSE)

test_that("Docker works",
{
    cmd <- "--help"
    obj <- call_docker(cmd)
    expect_is(obj, "list")
    expect_true(grepl("docker --help", obj$cmdline, fixed=TRUE))
})

test_that("Docker compose works",
{
    cmd <- "--help"
    obj <- call_docker_compose(cmd)
    expect_is(obj, "list")
    expect_true(grepl("docker-compose --help", obj$cmdline, fixed=TRUE))
})

test_that("Kubectl works",
{
    cmd <- "--help"
    obj <- call_kubectl(cmd)
    expect_is(obj, "list")
    expect_true(grepl("kubectl --help", obj$cmdline, fixed=TRUE))
})

test_that("Helm works",
{
    cmd <- "--help"
    obj <- call_helm(cmd)
    expect_is(obj, "list")
    expect_true(grepl("helm --help", obj$cmdline, fixed=TRUE))
})

teardown({
    options(azure_containers_tool_echo=echo)
})