tests/testthat/test-version.R

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())
})

Try the etseed package in your browser

Any scripts or data that you put into this service are public.

etseed documentation built on May 30, 2017, 1:36 a.m.