tests/testthat/test-ghe.R

In metrumresearchgroup/mrgvalprep: Preprocessing for mrgvalidate

context("Optionally test hitting GHE")

if (Sys.getenv("MRGVALIDATE_TEST_GHE") != "true") {
  skip("Only run GHE tests when MRGVALIDATE_TEST_GHE set to true")
}

test_that("pull_tagged_repo() gets clones and gets commit hash from GHE", {
  commit_hash <- pull_tagged_repo(org = GHE_ORG, repo = GHE_REPO, tag = GHE_TAG, domain = GHE_DOMAIN)
  expect_identical(commit_hash, GHE_COMMIT_REF)
})

test_that("get_issues() pull from GHE", {
  release_issues <- get_issues(org = GHE_ORG, repo = GHE_REPO, mile = GHE_MILESTONE, domain = GHE_DOMAIN)
  expect_equal(nrow(release_issues), STORIES_DF_ROWS_GHE)
})