tests/testthat/test_bbc_read_model.R

In inbo/n2kanalysis: Generic Functions to Analyse Data from the 'Natura 2000' Monitoring

test_that("read_model() handles exceptions on characters", {
  base <- tempfile("read_model")
  dir.create(base)
  project <- "read_model"
  dir.create(file.path(base, project, "test"), recursive = TRUE)
  writeLines("junk", file.path(base, project, "test", "test1.rds"))
  writeLines("junk", file.path(base, project, "test", "test2.rds"))
  expect_error(
    suppressWarnings(read_model("junk", base, project)),
    "no matching object in directory"
  )
  expect_error(
    read_model("test", base, project),
    "multiple matching objects in directory"
  )
  file.path(base, project) %>%
    list.files(recursive = TRUE, full.names = TRUE) %>%
    file.remove()
})

test_that("read_model() works with S3 buckets", {
  skip_if(Sys.getenv("AWS_SECRET_ACCESS_KEY") == "", message = "No AWS access")
  base <- get_bucket(Sys.getenv("N2KBUCKET"), max = 1)
  project <- "unittest_read_model"
  s3saveRDS(
    project,
    bucket = base,
    object = file.path(project, "test", "test1.rds")
  )
  s3saveRDS(
    project,
    bucket = base,
    object = file.path(project, "test", "test2.rds")
  )
  expect_identical(
    read_model("test1", base, project),
    project
  )
  expect_error(
    read_model("junk", base, project),
    "no matching object in bucket"
  )
  expect_error(
    read_model("test", base, project),
    "multiple objects matching `test` in bucket"
  )
  get_bucket(Sys.getenv("N2KBUCKET"), prefix = project) %>%
    map_chr("Key") %>%
    basename() %>%
    gsub(pattern = "\\.rds", replacement = "") %>%
    unique() -> available
  expect_true(
    all(unlist(sapply(available, delete_model, base = base, project = project)))
  )
})