Use github_remote_list() for testing

To reduce some of the usage of `github_remotes()` where it's not strictly necessary.
r-lib · Sep 10, 2024 · 44c896c · 44c896c
1 parent 2cc9e5a
commit 44c896c
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/utils-github.R b/R/utils-github.R
@@ -883,7 +883,7 @@ new_no_github <- function() {
 
 new_ours <- function() {
   remotes <- data.frame(name = "origin", url = "https://github.com/OWNER/REPO.git")
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <- grl$perm_known <- TRUE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -917,7 +917,7 @@ new_fork <- function() {
     name = c("origin", "upstream"),
     url = c("https://github.com/CONTRIBUTOR/REPO.git", "https://github.com/OWNER/REPO.git")
   )
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <- grl$perm_known <- TRUE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -940,7 +940,7 @@ new_fork <- function() {
 
 new_maybe_ours_or_theirs <- function() {
   remotes <- data.frame(name = "origin", url = "https://github.com/OWNER/REPO.git")
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <-grl$perm_known <- FALSE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -956,7 +956,7 @@ new_maybe_fork <- function() {
     name = c("origin", "upstream"),
     url = c("https://github.com/CONTRIBUTOR/REPO.git", "https://github.com/OWNER/REPO.git")
   )
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <-grl$perm_known <- FALSE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -973,7 +973,7 @@ new_fork_cannot_push_origin <- function() {
     name = c("origin", "upstream"),
     url = c("https://github.com/CONTRIBUTOR/REPO.git", "https://github.com/OWNER/REPO.git")
   )
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <-grl$perm_known <- TRUE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -993,7 +993,7 @@ new_fork_upstream_is_not_origin_parent<- function() {
     name = c("origin", "upstream"),
     url = c("https://github.com/CONTRIBUTOR/REPO.git", "https://github.com/OLD_OWNER/REPO.git")
   )
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <- grl$perm_known <- TRUE
   grl$default_branch <- "DEFAULT_BRANCH"
 
@@ -1018,7 +1018,7 @@ new_upstream_but_origin_is_not_fork <- function() {
     name = c("origin", "upstream"),
     url = c("https://github.com/CONTRIBUTOR/REPO.git", "https://github.com/OWNER/REPO.git")
   )
-  grl <- github_remotes(github_get = FALSE, x = remotes)
+  grl <- github_remote_list(x = remotes)
   grl$github_got <-grl$perm_known <- TRUE
   grl$default_branch <- "DEFAULT_BRANCH"