Nothing
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())
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.