tests/testthat/test-download-packages.R

In ropenscilabs/notary: Signing and Verification of R Packages

context("download_packages")

test_that("file://, all clear", {
  path <- tempfile()
  dir.create(path)

  url <- file_url(file.path(TEST_PATH, "base"))
  ans <- download_packages("R6", path, repos = url, type = "source",
                           pubkey = PUBKEY)
  expect_true(file.exists(ans[[2]]))
})

test_that("file://, tampered index", {
  path <- tempfile()
  dir.create(path)
  url <- file_url(file.path(TEST_PATH, "index"))
  expect_error(download_packages("R6", path, repos = url, type = "source",
                                 pubkey = PUBKEY),
               "Signature verification failed")
})

test_that("file://, tampered file", {
  path <- tempfile()
  dir.create(path)
  url <- file_url(file.path(TEST_PATH, "file"))
  expect_error(download_packages("R6", path, repos = url, type = "source",
                                 pubkey = PUBKEY),
               "WHOA THERE")
})

test_that("https://, all clear", {
  path <- tempfile()
  dir.create(path)

  url <- file.path(TEST_URL, "base")
  ans <- download_packages("R6", path, repos = url, type = "source",
                           pubkey = PUBKEY)
  expect_true(file.exists(ans[[2]]))
})

test_that("https://, tampered index", {
  path <- tempfile()
  dir.create(path)
  url <- file.path(TEST_URL, "index")
  expect_error(download_packages("R6", path, repos = url, type = "source",
                                 pubkey = PUBKEY),
               "Signature verification failed")
})

test_that("https://, tampered file", {
  path <- tempfile()
  dir.create(path)
  url <- file.path(TEST_URL, "file")
  expect_error(download_packages("R6", path, repos = url, type = "source",
                                 pubkey = PUBKEY),
               "WHOA THERE")
})