tests/testthat/test_03_upload_download.R

In boxr: Interface for the 'Box.com API'

options(boxr.verbose = FALSE, boxr.progress = FALSE)

# For passing vars (e.g. file_id's) between testing environments
test_vars <- new.env(parent = globalenv())

# Upload/download ---------------------------------------------------------
context("Upload/download/update")

test_that("Uploading a new file", {
  skip_if_no_token()

  # Write a test file to upload
  writeLines("Completely Original File\n", fs::path_temp("test_dir/testfile.txt"))
  
  # This dir_id doesn't exist
  expect_error(box_ul(1, fs::path_temp("test_dir/testfile.txt")))
  # This file to upload doesn't exist
  expect_error(box_ul(0, fs::path_temp("test_dir/ololol.txt")))
  
  b <- box_ul(0, fs::path_temp("test_dir/testfile.txt"))
  
  test_vars$file_id <- b$id
  
})

test_that("Downloading a file", {
  skip_if_no_token()
  
  # Overwrite default to FALSE, local copy present
  expect_error(box_dl(test_vars$file_id, fs::path_temp("test_dir")))
  # This file_id doesn't exist
  expect_error(box_dl(1, fs::path_temp("test_dir")))
  # This directory doesn't exist
  expect_error(box_dl(test_vars$file_id, fs::path_temp("ololol")))
  # Overwrite should be bool
  expect_error(box_dl(test_vars$file_id, fs::path_temp("test_dir"), overwrite = "ololol"))
  
  # Should work if overwrite
  d <- box_dl(test_vars$file_id, fs::path_temp("test_dir"), overwrite = TRUE)
})


test_that("Updating a file", {
  skip_if_no_token()
  options(boxr.verbose = FALSE)
  
  # This dir_id doesn't exist
  expect_error(box_ul(1, fs::path_temp("test_dir/testfile.txt")))
  # This file to upload doesn't exist
  expect_error(box_ul(0, fs::path_temp("test_dir/ololol.txt")))
  # This should work
  expect_message(b <- box_ul(0, fs::path_temp("test_dir/testfile.txt")), "version")  
})