tests/testthat/test-public-object.R

context("Public object tests")

test_that("basic usage of get_object for anonymous user", {
  ex <- get_object(object = "README.analysis_history", bucket = "1000genomes", key = "", secret = "", region = "us-east-1")
  expect_true(is.raw(ex))
})
zhangxing-love/QingStorRSDK_0.1 documentation built on May 4, 2019, 10:17 p.m.