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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.