tests/testthat/test_02_clear_out.R

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

# Clear out (& box_push()) ------------------------------------------------
context("Clear out")


test_that("Local directory is created", {
  skip_if_no_token()
  
  # Set up the local dir structure
  # TODO: I think this writes to the working directory, which is a no-no
  #   we should write (and work) instead in the temp directory - IJL
  boxr:::create_test_dir()
  
  expect_true(any(grepl("test_dir", list.dirs(fs::path_temp()))))
})

# Make sure the remote directory in the test account is clear
test_that("Clear out the remote directory", {
  skip_if_no_token()
  
  options(boxr.verbose = FALSE)
  # Tell boxr to sync the remote home directory with an empty local one
  # (i.e. delete everything)
  b <- box_push(0, fs::path_temp("test_dir/dir_12/dir_121/dir_1211"), delete = TRUE)
  
  expect_length(box_ls(0), 0)
  
})