tests/testthat/test-6-bin-archive.R

In filebin: Wrapper for the Filebin File Sharing API

skip_on_cran()

test_that("delete bin", {
  skip_on_os("windows")

  url <- file.path(base_url(), BIN)

  zipfile <- bin_archive(BIN, "zip")
  tarfile <- bin_archive(url, "tar", file = TAR)

  zip_type <- system2("file", zipfile, stdout = TRUE)
  tar_type <- system2("file", tarfile, stdout = TRUE)

  expect_match(zip_type, "Zip archive")
  expect_match(tar_type, "POSIX tar archive")
})