tests/testthat/test-check_github_name.R

test_that("check_github_name works", {
  testthat::skip_if_not(nzchar(Sys.getenv("GITHUB_PAT")))
  expect_error(check_github_name("lockedata", "cransays"))
  expect_silent(check_github_name(NULL, "starters"))
  expect_silent(check_github_name("maelle", "pRRRojects"))
})
stephlocke/pRojects documentation built on Jan. 7, 2020, 7:27 p.m.