tests/testthat/test_aaaa_clean_bucket.R

In INBO-Natura2000/n2kanalysis: Generic Functions to Analyse Data from the 'Natura 2000' Monitoring

context("clean S3 bucket")
test_that("the unittest bucket is empty", {
  skip_if(Sys.getenv("AWS_SECRET_ACCESS_KEY") == "", message = "No AWS access")
  leftovers <- get_bucket(Sys.getenv("N2KBUCKET"), prefix = "unittest")
  expect_true(all(sapply(leftovers, delete_object)))
})