tests/testthat/test-github.R

In rapbase: Base Functions and Resources for Rapporteket

test_that("error when dont't know what", {
  expect_error(getGithub("harrypotter", "wand"))
})

test_that("contributors are provided", {
  expect_equal(class(getGithub("contributors", "rapbase")), "character")
})

test_that("key can be provided", {
  expect_true(grepl("ssh-rsa", getGithub("keys", "areedv")))
})