tests/testthat/test-docker-client-volumes.R

In richfitz/stevedore: Docker Client

context("docker client: volumes")


test_that("create", {
  d <- test_docker_client()
  nm <- rand_str(10, "stevedore_")
  v <- d$volume$create(nm)
  on.exit(try_silent(v$remove()))
  expect_is(v, "docker_volume")
  expect_is(v, "stevedore_object")

  expect_equal(v$name(), nm)
  expect_equal(v$inspect()$name, nm)
  expect_identical(v$reload(), v)

  expect_null(v$remove())

  e <- get_error(v$inspect())
  expect_is(e, "docker_error")
  expect_equal(e$code, 404L)
})


test_that("get", {
  d <- test_docker_client()
  nm <- rand_str(10, "stevedore_")
  v1 <- d$volume$create(nm)
  on.exit(try_silent(v1$remove()))

  v2 <- d$volume$get(nm)
  expect_identical(v1$inspect(FALSE), v2$inspect(FALSE))
  d$volume$remove(nm)

  e <- get_error(d$volume$get(nm))
  expect_is(e, "docker_error")
  expect_equal(e$code, 404L)
})


test_that("list", {
  d <- test_docker_client()
  nm <- rand_str(10, "stevedore_")
  v <- d$volume$create(nm)
  on.exit(v$remove())

  vl <- d$volume$list()
  expect_is(vl, "data.frame")
  expect_true("name" %in% names(vl))
  expect_true(nm %in% vl$name)
})


test_that("map", {
  d <- test_docker_client()
  nm <- rand_str(10, "stevedore_")
  v <- d$volume$create(nm)
  on.exit(v$remove())
  expect_equal(v$map("/foo"), sprintf("%s:/foo", nm))
  expect_equal(v$map("/foo", TRUE), sprintf("%s:/foo:ro", nm))
  expect_error(v$map(1), "'path' must be a scalar character (non-NA)",
               fixed = TRUE)
})


test_that("prune", {
  d <- test_docker_client()
  nm <- rand_str(10, "stevedore_")
  v <- d$volume$create(nm)
  ans <- d$volume$prune()
  expect_match(ans$volumes_deleted, "^stevedore_", all = FALSE)
})


test_that("labels", {
  d <- test_docker_client()
  expect_error(d$volume$create(labels = 1),
               "'labels' must be named character vector", fixed = TRUE)
  vol <- d$volume$create(labels = c(foo = "bar"))
  on.exit(vol$remove())
  expect_equal(vol$inspect()$labels, c(foo = "bar"))
})


test_that("get (offline)", {
  cl <- null_docker_client()
  x <- cl$volume$get(dummy_id())
  expect_is(x, "docker_volume")
  expect_equal(x$name(), dummy_id())
})