tests/testthat/test-check.R

In pacs: Supplementary Tools for R Packages Developers

test_that("pac_islast", {
  skip_if_offline()
  expect_identical(pac_islast("WRONG"), FALSE)
  expect_true(is.logical(pac_islast("memoise")))
  expect_true(is.logical(pac_islast("dplyr")))
  expect_true(is.logical(pac_islast("dplyr", "1.0.0")))
  expect_true(is.logical(pac_islast("ThreeWiseMonkeys")))
})

test_that("pac_isin", {
  skip_if_offline()
  expect_identical(pac_isin("WRONG"), FALSE)
  expect_true(is.logical(pac_isin("dplyr")))
  expect_true(is.logical(pac_isin("ThreeWiseMonkeys")))
})

test_that("pacs::pac_checkred online", {
  skip_if_offline()

  expect_error(pac_checkred("dplyr", scope = ""), "")
  skip_if(isNA(checked_packages()))
  expect_true(is.logical(pac_checkred("dplyr")))
  expect_message(pac_checkred("WRONG"), "WRONG package is not on CRAN")
  expect_true(is.na(suppressMessages(pac_checkred("WRONG"))))
  expect_true(isNA(loc <- pac_checkred("dplyr",
    scope = c("ERROR", "FAIL", "WARN"),
    flavors = c(
      "r-devel-linux-x86_64-debian-clang",
      "r-devel-linux-x86_64-debian-gcc"
    )
  )) || is.logical(loc))
})

test_that("pacs::pac_checkred offline", {
  pac_checkred_offline <- pac_checkred
  mockery::stub(pac_checkred_offline, "is_online", FALSE)
  expect_message(pac_checkred_offline("dplyr"), "No internet connection detected")
  expect_identical(suppressMessages(pac_checkred_offline("dplyr")), NA)
})