tests/testthat/test-docker-client-networks.R
In richfitz/stevedore: Docker Client
context("docker client: networks")
test_that("create", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
on.exit(try_silent(nw$remove()))
expect_is(nw, "docker_network")
expect_is(nw, "stevedore_object")
expect_equal(nw$name(), nm)
expect_equal(nw$inspect()$name, nm)
expect_identical(nw$reload(), nw)
expect_null(nw$remove())
e <- get_error(nw$inspect())
expect_is(e, "docker_error")
expect_equal(e$code, 404L)
})
test_that("get", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw1 <- d$network$create(nm)
on.exit(try_silent(nw1$remove()))
nw2 <- d$network$get(nm)
expect_identical(nw1$inspect(FALSE), nw2$inspect(FALSE))
d$network$remove(nm)
e <- get_error(d$network$get(nm))
expect_is(e, "docker_error")
expect_equal(e$code, 404L)
})
test_that("list", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
on.exit(nw$remove())
nwl <- d$network$list()
expect_is(nwl, "data.frame")
expect_true("name" %in% names(nwl))
expect_true(nm %in% nwl$name)
})
test_that("prune", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
ans <- d$network$prune()
expect_match(ans$networks_deleted, "^stevedore_", all = FALSE)
})
test_that("containers", {
d <- test_docker_client()
server <- rand_str(10, "stevedore_")
network <- rand_str(3, "stevedore_")
d <- test_docker_client()
nw <- d$network$create(network)
on.exit(nw$remove())
expect_identical(nw$containers(), list())
x <- d$container$create("nginx", name = server, network = network)
on.exit({
x$remove(force = TRUE)
nw$remove()
})
x$start()
res <- nw$containers()
expect_is(res, "list")
expect_equal(length(res), 1L)
expect_is(res[[1]], "docker_container")
expect_identical(res[[1]]$id(), x$id())
})
test_that("connect/disconnect", {
d <- test_docker_client()
nm_server <- rand_str(10, "stevedore_")
nm_client <- rand_str(10, "stevedore_")
nm_network <- rand_str(3, "stevedore_")
nw <- d$network$create(nm_network)
server <- d$container$run(
"nginx", name = nm_server, network = nm_network,
detach = TRUE, rm = TRUE)
client <- d$container$run(
"richfitz/iterate", cmd = c("100", "100"),
name = nm_client, detach = TRUE, rm = TRUE)
on.exit({
client$remove(force = TRUE)
server$remove(force = TRUE)
nw$remove()
})
nw$connect(client$id())
res <- client$exec(c("wget", sprintf("http://%s", nm_server)),
stream = FALSE)
expect_equal(res$exit_code, 0L)
tmp <- tempfile()
client$cp_out("index.html", tmp)
expect_true(any(grepl("<html>", readLines(tmp), ignore.case = TRUE)))
nw$disconnect(client$id())
res <- client$exec(c("wget", sprintf("http://%s", nm_server),
"-O", "index2.html"),
stream = FALSE)
expect_equal(res$exit_code, 1L)
})
test_that("get (offline)", {
cl <- null_docker_client()
x <- cl$network$get(dummy_id())
expect_is(x, "docker_network")
expect_equal(x$id(), dummy_id())
})
richfitz/stevedore documentation built on July 22, 2023, 1:13 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("docker client: networks")
test_that("create", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
on.exit(try_silent(nw$remove()))
expect_is(nw, "docker_network")
expect_is(nw, "stevedore_object")
expect_equal(nw$name(), nm)
expect_equal(nw$inspect()$name, nm)
expect_identical(nw$reload(), nw)
expect_null(nw$remove())
e <- get_error(nw$inspect())
expect_is(e, "docker_error")
expect_equal(e$code, 404L)
})
test_that("get", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw1 <- d$network$create(nm)
on.exit(try_silent(nw1$remove()))
nw2 <- d$network$get(nm)
expect_identical(nw1$inspect(FALSE), nw2$inspect(FALSE))
d$network$remove(nm)
e <- get_error(d$network$get(nm))
expect_is(e, "docker_error")
expect_equal(e$code, 404L)
})
test_that("list", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
on.exit(nw$remove())
nwl <- d$network$list()
expect_is(nwl, "data.frame")
expect_true("name" %in% names(nwl))
expect_true(nm %in% nwl$name)
})
test_that("prune", {
d <- test_docker_client()
nm <- rand_str(10, "stevedore_")
nw <- d$network$create(nm)
ans <- d$network$prune()
expect_match(ans$networks_deleted, "^stevedore_", all = FALSE)
})
test_that("containers", {
d <- test_docker_client()
server <- rand_str(10, "stevedore_")
network <- rand_str(3, "stevedore_")
d <- test_docker_client()
nw <- d$network$create(network)
on.exit(nw$remove())
expect_identical(nw$containers(), list())
x <- d$container$create("nginx", name = server, network = network)
on.exit({
x$remove(force = TRUE)
nw$remove()
})
x$start()
res <- nw$containers()
expect_is(res, "list")
expect_equal(length(res), 1L)
expect_is(res[[1]], "docker_container")
expect_identical(res[[1]]$id(), x$id())
})
test_that("connect/disconnect", {
d <- test_docker_client()
nm_server <- rand_str(10, "stevedore_")
nm_client <- rand_str(10, "stevedore_")
nm_network <- rand_str(3, "stevedore_")
nw <- d$network$create(nm_network)
server <- d$container$run(
"nginx", name = nm_server, network = nm_network,
detach = TRUE, rm = TRUE)
client <- d$container$run(
"richfitz/iterate", cmd = c("100", "100"),
name = nm_client, detach = TRUE, rm = TRUE)
on.exit({
client$remove(force = TRUE)
server$remove(force = TRUE)
nw$remove()
})
nw$connect(client$id())
res <- client$exec(c("wget", sprintf("http://%s", nm_server)),
stream = FALSE)
expect_equal(res$exit_code, 0L)
tmp <- tempfile()
client$cp_out("index.html", tmp)
expect_true(any(grepl("<html>", readLines(tmp), ignore.case = TRUE)))
nw$disconnect(client$id())
res <- client$exec(c("wget", sprintf("http://%s", nm_server),
"-O", "index2.html"),
stream = FALSE)
expect_equal(res$exit_code, 1L)
})
test_that("get (offline)", {
cl <- null_docker_client()
x <- cl$network$get(dummy_id())
expect_is(x, "docker_network")
expect_equal(x$id(), dummy_id())
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.