tests/testthat/test-5-ask-for-confirmation.R

In miniCRAN: Create a Mini Version of CRAN Containing Only Selected Packages

old <- matrix(
  c("adaptivetau", "BH", "digest", 
    "2.1", "1.54.0-4", "0.6.4",
    "2.2", "1.55.0-1", "0.6.7", 
    "https://cran.microsoft.com/snapshot/2015-01-01/bin/windows/contrib/3.1", 
    "https://cran.microsoft.com/snapshot/2015-01-01/bin/windows/contrib/3.1", 
    "https://cran.microsoft.com/snapshot/2015-01-01/bin/windows/contrib/3.1"
  ), 
  ncol = 4, 
  dimnames = list(
    c("adaptivetau", "BH", "digest"),
    c("Package", "LocalVer", "ReposVer", "Repository"))
)



test_that("asking for confirmation", {
  
  skip_if_not_installed("mockr") 
  
  mockr::with_mock(
    read_line_wrapper = function(...) { "y" },
    .env = "miniCRAN", 
    {
      capture.output(
        z <- 
          ask_to_update(old, "source", "3.1", ask = TRUE)
      )
      expect_equal(old, z, ignore_attr = TRUE)
    }
  )

 mockr::with_mock(
    read_line_wrapper = function(...) { "n" },
    .env = "miniCRAN", 
    {
      capture.output(
        z <- 
          ask_to_update(old, "source", "3.1", ask = TRUE)
      )
      expect_null(z)
    }
  )

 mockr::with_mock(
    read_line_wrapper = function(...) { "y" },
    graphics_capable = function() { TRUE },
    select_from_list = function(choices, ...) { choices },
    .env = "miniCRAN", 
    {
      capture.output(
        z <- 
          ask_to_update(old, "source", "3.1", ask = "graphics")
      )
      expect_equal(old, z, ignore_attr = TRUE)
    }
  )
  
    
})