test_that("different_sha returns TRUE if remote or local sha is NA not found", {
expect_true(different_sha(remote_sha = NA, local_sha = "4a2ea2"))
expect_true(different_sha(remote_sha = "4a2ea2", local_sha = NA))
expect_true(different_sha(remote_sha = NA, local_sha = NA))
})
test_that("different_sha returns TRUE if remote_sha and local_sha are different", {
expect_true(different_sha(remote_sha = "5b3fb3", local_sha = "4a2ea2"))
})
test_that("different_sha returns FALSE if remote_sha and local_sha are the same", {
expect_false(different_sha(remote_sha = "4a2ea2", local_sha = "4a2ea2"))
})
test_that("local_sha returns NA if package is not installed", {
expect_equal(local_sha("tsrtarst"), NA_character_)
})
test_that("package2remotes looks for the DESCRIPTION in .libPaths", {
skip_on_cran()
skip_if_offline()
skip_if_over_rate_limit()
lib <- tempfile()
dir.create(lib)
expect_equal(package2remote("noremotes", lib = lib)$sha, NA_character_)
# This is not a real package, so we can't actually build it
install("noremotes", lib = lib, quiet = TRUE, build = FALSE,
dependencies = FALSE,
upgrade = FALSE,
force = FALSE,
build_opts = c("--no-resave-data", "--no-manual", "--no-build-vignettes"),
repos = getOption("repos"),
type = getOption("pkgType"))
expect_equal(package2remote("noremotes", lib = lib)$sha, "1.0.0")
# Load the namespace, as packageDescription looks in loaded namespaces
# first.
withr::with_libpaths(lib,
loadNamespace("noremotes")
)
expect_equal(package2remote("noremotes")$sha, NA_character_)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.