tests/testthat/test.service.R

test_that("GetService", {
  r<-GetService()
  expect_false(http_error(r))
})

test_that("BucketList", {
  b<-BucketList$new()
  expect_false(http_error(b$response))
})
gahoo/ross documentation built on May 16, 2019, 5:35 p.m.