tests/testthat/test-public-bucket.R

In cloudyr/aws.s3: 'AWS S3' Client Package

context("Public bucket tests")

test_that("basic usage of get_bucket for anonymous user", {
    ex <- get_bucket(bucket = "1000genomes", key = "", secret = "", region = "us-east-1")
    expect_is(ex, "s3_bucket")
    expect_true(all(c("Name", "Prefix", "Marker", "MaxKeys", "IsTruncated") %in% names(attributes(ex))))
    expect_true("Contents" %in% names(ex))
})

test_that("usage of get_bucket with query args", {
    ex1 <- get_bucket(bucket = "1000genomes", key = "", secret = "", region = "us-east-1", prefix = "README")
    expect_is(ex1, "s3_bucket")
    expect_true(all(c("Name", "Prefix", "Marker", "MaxKeys", "IsTruncated") %in% names(attributes(ex1))))
    expect_true("Contents" %in% names(ex1))
    expect_true(length(ex1) < 30)
    
    ex2 <- get_bucket(bucket = "1000genomes", key = "", secret = "", region = "us-east-1", max = 3)
    expect_is(ex2, "s3_bucket")
    expect_true(all(c("Name", "Prefix", "Marker", "MaxKeys", "IsTruncated") %in% names(attributes(ex2))))
    expect_true("Contents" %in% names(ex2))
    expect_true(length(ex2) == 3)
})

test_that("intentional bad keys", {
    expect_error(get_location(bucket = "hpk", key = "BAD KEY", secret = "BAD SECRET", region = "us-east-1"))
})