context("plan")
test_that("upgraded CRAN package", {
lib <- tempfile()
db <- package_database(c(CRAN = "https://cran.rstudio.com"), "windows",
NULL, progress = FALSE)
packages <- "devtools"
plan <- plan_installation(packages, db, lib, "upgrade")
expect_true(all(plan$binary))
db2 <- db
db2$is_cran <- db2$is_cran & FALSE
db2$src["curl", "Version"] <- alter_version(db2$src["curl", "Version"], TRUE)
plan2 <- plan_installation(packages, db2, lib, "upgrade")
expect_false(all(plan2$binary))
i <- plan2$packages == "curl"
expect_false(plan2$binary[i])
})
test_that("plan", {
lib <- tempfile()
db <- package_database(getOption("repos")[1], "windows", NULL,
progress = FALSE)
packages <- "devtools"
plan <- plan_installation(packages, db, lib, "upgrade")
expect_is(plan, "provisionr_plan")
expect_true(all(plan$binary))
expect_output(print(plan), "<provisionr_plan>", fixed = TRUE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.