tests/testthat/test-gh_install_packages.R

In hoxo-m/githubinstall: A Helpful Way to Install R Packages Hosted on GitHub

context("gh_install_packages")

install_package_mock <- function(...) {
  list(...)
}

test_that("Install a single package", {
  repo <- "AnomalyDetection"
  mockery::stub(gh_install_packages, "install_package", install_package_mock)
  act <- gh_install_packages(repo, ask = FALSE)
  expect_equal(act$repo, "twitter/AnomalyDetection")
})

test_that("Install two package", {
  repo <- c("AnomalyDetection", "toybayesopt")
  mockery::stub(gh_install_packages, "install_package", install_package_mock)
  act <- gh_install_packages(repo, ask = FALSE)
  expect_equal(length(act), 2)
})

test_that("Install: ask no", {
  repo <- c("AnomalyDetection")
  mockery::stub(gh_install_packages, "readline", "N")
  expect_error(
    gh_install_packages(repo, ask = TRUE)
  )
})

test_that("Install: ask yes", {
  repo <- c("AnomalyDetection")
  mockery::stub(gh_install_packages, "readline", "Y")
  mockery::stub(gh_install_packages, "install_package", install_package_mock)
  act <- gh_install_packages(repo, ask = TRUE)
  expect_equal(act$repo, "twitter/AnomalyDetection")
})