tests/testthat/test-available.R

In richfitz/stevedore: Docker Client

context("docker_available")


test_that("invalid url", {
  expect_false(docker_available(host = "~", http_client_type = "null"))
  expect_silent(docker_available(host = "~", http_client_type = "null"))
  expect_message(
    docker_available(host = "~", http_client_type = "null", verbose = TRUE),
    "Failed to create docker client")
})


test_that("Nonexistent socket", {
  skip_on_windows()
  tmp <- tempfile_test()
  expect_false(docker_available(host = tmp, http_client_type = "null"))
  expect_silent(docker_available(host = tmp, http_client_type = "null"))
  expect_message(
    docker_available(host = tmp, http_client_type = "null", verbose = TRUE),
    "Failed to connect to docker daemon")
})