tests/testthat/test-plan.R

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)
})
richfitz/provisionr documentation built on Sept. 9, 2020, 8:46 p.m.