tests/testthat/test-set_repos.R

In GitAI: Extracts Knowledge from 'Git' Repositories

test_that("set_*_repos creates GitStats object inside GitAI with repos set", {
  testthat::skip_on_cran()
  withr::local_envvar(GITAI_VERBOSE = FALSE)
  my_project <- initialize_project("gitai_test_project")

  my_project <- my_project |>
    set_github_repos(repos = c("r-world-devs/GitStats", "openpharma/DataFakeR"))
  expect_true("GitStats" %in% class(my_project$gitstats))

  my_project <- my_project |>
    set_gitlab_repos(repos = "mbtests/gitstatstesting")
  expect_length(
    my_project$gitstats$.__enclos_env__$private$hosts,
    2
  )
})