tests/testthat/test-download-file.R

In runonce: Run Once and Save Result

test_that("download_file() works", {

  myurl <- "https://github.com/privefl.png"
  png <- download_file(myurl, quiet = TRUE)
  expect_identical(png, file.path(tempdir(), "privefl.png"))
  mtime <- file.info(png)[["mtime"]]

  expect_identical(download_file(myurl), png)
  expect_identical(file.info(png)[["mtime"]], mtime)  # file was not modified

  Sys.sleep(2)
  download_file(myurl, overwrite = TRUE, quiet = TRUE)
  expect_gt(file.info(png)[["mtime"]], mtime)  # file was modified
})