Add some tests

tests/testthat/test-github.R

@@ -1,3 +1,17 @@
+test_that("has_github_links() uses the target_repo, if provided", {
+  skip_if_no_git_user()
+  create_local_package()
+  local_interactive(FALSE)
+  use_git()
+
+  desc::desc_set_urls("https://github.com/OWNER/REPO")
+  desc::desc_set("BugReports", "https://github.com/OWNER/REPO/issues")
+
+  tr <- list(url = "[email protected]:OWNER/REPO.git")
+
+  expect_true(has_github_links(tr))
+})
+
 test_that("use_github_links populates empty URL field", {
   skip_if_no_git_user()
   local_interactive(FALSE)

tests/testthat/test-utils-github.R

@@ -150,6 +150,12 @@ test_that("github_remotes() works", {
   expect_true(is.na(grl$is_fork))
 })
 
+test_that("github_url_from_git_remotes() is idempotent", {
+  url <- "https://github.com/r-lib/usethis.git"
+  out <- github_url_from_git_remotes(url)
+  expect_equal(out, github_url_from_git_remotes(out))
+})
+
 # GitHub remote configuration --------------------------------------------------
 
 test_that("we understand the list of all possible configs", {