Test for .netrc support (PR#18892).

git-svn-id: https://svn.r-project.org/R/trunk@88416 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: kalibera

tests/download.file.R

@@ -87,6 +87,24 @@ tests <- function() {
   }, error = function(e) FALSE)
   stopifnot(any(grepl("authenticated.*true", h)))
 
+  if (getOption("download.file.method") == "libcurl") {
+    cat("- Basic auth using .netrc (libcurl only)\n")
+    fnetrc <- tempfile(tmpdir = getwd())
+    writeLines(c("machine developer.R-project.org",
+                 "login Aladdin",
+                 "password OpenSesame"),
+               fnetrc)
+    with_options(list(netrc = fnetrc), {
+      ret <- tryCatch({
+        h <- suppressWarnings(get_headers(
+          "basic-auth/Aladdin/OpenSesame"))
+        TRUE
+      }, error = function(e) FALSE)
+      stopifnot(ret && any(grepl("authenticated.*true", h)))
+    })
+    unlink(fnetrc)
+  }
+
   if (getOption("download.file.method") == "libcurl") {
     cat("- Multiple urls (libcurl only)\n")
     urls <- get_path(c("anything", "headers"))