tests/testthat/test-dataManagement.R

In AutoDeskR: An Interface to the 'AutoDesk' 'API' Platform

library(testthat)
library(AutoDeskR)

# makeBucket ----------------------------------------------------------------

test_that("makeBucket stops when token is NULL", {
  expect_error(makeBucket(token = NULL), "token is null")
})

test_that("makeBucket stops when bucket is NULL", {
  expect_error(makeBucket(token = "t", bucket = NULL), "bucket is null")
})

test_that("makeBucket stops when policy is NULL", {
  expect_error(makeBucket(token = "t", bucket = "b", policy = NULL), "policy is null")
})

test_that("makeBucket returns correct structure", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- makeBucket(token = "test_token", bucket = "mybucket", policy = "transient")
    expect_s3_class(resp, "makeBucket")
    expect_named(resp, c("content", "path", "response"))
    expect_equal(resp$content$bucketKey, "mybucket")
    expect_equal(resp$content$policyKey, "transient")
  })
})

# checkBucket ---------------------------------------------------------------

test_that("checkBucket stops when token is NULL", {
  expect_error(checkBucket(token = NULL), "token is null")
})

test_that("checkBucket stops when bucket is NULL", {
  expect_error(checkBucket(token = "t", bucket = NULL), "bucket is null")
})

test_that("checkBucket returns correct structure", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- checkBucket(token = "test_token", bucket = "mybucket")
    expect_s3_class(resp, "checkBucket")
    expect_equal(resp$content$bucketKey, "mybucket")
  })
})

# listBuckets ---------------------------------------------------------------

test_that("listBuckets stops when token is NULL", {
  expect_error(listBuckets(token = NULL), "token is null")
})

test_that("listBuckets returns correct structure", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- listBuckets(token = "test_token")
    expect_s3_class(resp, "listBuckets")
    expect_named(resp, c("content", "path", "response"))
    expect_true(!is.null(resp$content$items))
    expect_equal(resp$content$items[[1]]$bucketKey, "mybucket")
  })
})

# listObjects ---------------------------------------------------------------

test_that("listObjects stops when token is NULL", {
  expect_error(listObjects(token = NULL), "token is null")
})

test_that("listObjects stops when bucket is NULL", {
  expect_error(listObjects(token = "t", bucket = NULL), "bucket is null")
})

test_that("listObjects returns correct structure", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- listObjects(token = "test_token", bucket = "mybucket")
    expect_s3_class(resp, "listObjects")
    expect_equal(resp$content$items[[1]]$objectKey, "aerial.dwg")
  })
})

# uploadFile ----------------------------------------------------------------

test_that("uploadFile stops when file is NULL", {
  expect_error(uploadFile(file = NULL, token = "t"), "file is null")
})

test_that("uploadFile stops when token is NULL", {
  expect_error(uploadFile(file = "f.dwg", token = NULL), "token is null")
})

# uploadFileSigned ----------------------------------------------------------

test_that("uploadFileSigned stops when file is NULL", {
  expect_error(uploadFileSigned(file = NULL, token = "t"), "file is null")
})

test_that("uploadFileSigned stops when token is NULL", {
  expect_error(uploadFileSigned(file = "big.rvt", token = NULL), "token is null")
})

test_that("uploadFileSigned stops when bucket is NULL", {
  expect_error(uploadFileSigned(file = "big.rvt", token = "t", bucket = NULL), "bucket is null")
})

# deleteBucket / deleteObject -----------------------------------------------

test_that("deleteBucket stops when token is NULL", {
  expect_error(deleteBucket(token = NULL), "token is null")
})

test_that("deleteBucket returns status on success", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- deleteBucket(token = "test_token", bucket = "mybucket")
    expect_s3_class(resp, "deleteBucket")
    expect_equal(resp$content$status, 200L)
  })
})

test_that("deleteObject stops when object is NULL", {
  expect_error(deleteObject(token = "t", bucket = "b", object = NULL), "object is null")
})

test_that("deleteObject stops when token is NULL", {
  expect_error(deleteObject(token = NULL, bucket = "b", object = "f.dwg"), "token is null")
})

test_that("deleteObject returns status on success", {
  skip_on_cran()
  skip_if_not(dir.exists(test_path("developer.api.autodesk.com")), "mock fixtures not available")
  skip_if_not_installed("httptest2")
  httptest2::with_mock_api({
    resp <- deleteObject(token = "test_token", bucket = "mybucket", object = "aerial.dwg")
    expect_s3_class(resp, "deleteObject")
    expect_equal(resp$content$status, 200L)
  })
})