tests/testthat/test-version.R

In etseed: Client for 'etcd', a 'Key-value' Database

context("version")

test_that("etcd version method works", {
	skip_on_cran()
  skip_on_travis()

  aa <- etcd()

  res <- aa$version()

  expect_is(res, "list")
  expect_named(res, c('etcdserver', 'etcdcluster'))
  expect_identical(res, aa$ping())
})