tests/testthat/test-github.R

In ropenscilabs/available: Check if the Title of a Package is Available, Appropriate and Interesting

test_that("Can find ", {
  skip_on_cran()

  expect_false(available_on_github("svrepmisc")$available)
})

test_that("Can't find made up package", {
  skip_on_cran()

  expect_true(available_on_github("This_is_not_a_pkg")$available)
})