tests/testthat/test-github.R

In AntonelliLab/cmdr: Install and Run Programs, Outside of R, Inside of R

context('Testing \'github\'')
skip_if_offline()
skip_on_cran()
test_that('github_repo_search() works', {
  res <- github_repo_search(repo = 'dombennett/om..hello.world')
  expect_true(inherits(res, 'data.frame'))
  expect_warning(github_repo_search(repo = 'dombennett/notarepo'))
})
test_that('github_search() works', {
  res <- github_search()
  expect_true(inherits(res, 'data.frame'))
})
test_that('github_tags() works', {
  res <- github_tags(repos  = 'dombennett/om..hello.world')
  expect_true(inherits(res, 'tbl_df'))
  expect_warning(github_tags(repos  = 'dombennett/notarepo'))
})