No port numbers in netrc files

They are not allowed, so compare host names
only, without port numbers.

For r-lib/pak#749

Author: gaborcsardi

R/auth.R

@@ -337,6 +337,9 @@ repo_auth_netrc <- function(host, username) {
   }
   if (!file.exists(netrc_path)) return(NULL)
 
+  # netrc files do not allow port numbers
+  host <- sub(":[0-9]+$", "", host)
+
   lines <- readLines(netrc_path, warn = FALSE)
   # mark potential end of macros with NA
   lines[lines == ""] <- NA_character_

tests/testthat/test-auth.R

@@ -311,7 +311,7 @@ test_that("http requests with auth from netrc", {
   url2 <- set_user_in_url(url)
   authurls <- parse_url_basic_auth(url2)
   writeLines(c(
-    paste0("machine ", authurls$host),
+    paste0("machine ", sub(":[0-9]+$", "", authurls$host)),
     "login username",
     "password token"
   ), netrc)