tests/testthat/test-06-rdrop2-download.R

In karthik/rdrop2: Programmatic Interface to the 'Dropbox' API

context("testing drop_download")

test_that("drop_download works as expected", {
  skip_on_cran()

  # create and upload a file for testing
  file_name <- traceless("test-drop-download.csv")
  write.csv(mtcars, file_name)
  drop_upload(file_name)

  # download to same path
  unlink(file_name)
  expect_true(drop_download(file_name))
  expect_true(file.exists(file_name))

  # download to a new path
  new_path <- traceless("test-drop_download_newpath.csv")
  expect_true(drop_download(file_name, new_path))
  expect_true(file.exists(new_path))

  # dowload to an implied path
  new_dir <- traceless("test-drop_download_newdir")
  dir.create(new_dir)
  implied_path <- file.path(new_dir, file_name)
  expect_true(drop_download(file_name, new_dir))
  expect_true(file.exists(implied_path))

  # cleanup
  unlink(file_name)
  unlink(new_path)
  unlink(new_dir, recursive = TRUE)
  drop_delete(file_name)
})

test_that("drop_get works, but is deprecated", {
  skip_on_cran()

  # create and upload a file for testing, then delete locally
  file_name <- traceless("test-drop_download.csv")
  write.csv(mtcars, file_name)
  drop_upload(file_name)
  unlink(file_name)

  # check for deprecation warning
  expect_warning(
    drop_get(file_name),
    "is deprecated"
  )

  # make sure the file was downloaded
  expect_true(file.exists(file_name))

  # cleanup
  unlink(file_name)
  drop_delete(file_name)
})