From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 14 Aug 2021 14:08:48 +0000 (+0200)
Subject: Add a test for netrc folding parsing (bug#25769)
X-Git-Tag: emacs-28.0.90~1507
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5cb6d3fd1875e425be31fd885519326ba2304b8;p=emacs.git

Add a test for netrc folding parsing (bug#25769)
---

diff --git a/test/lisp/net/netrc-resources/netrc-folding b/test/lisp/net/netrc-resources/netrc-folding
new file mode 100644
index 00000000000..85e5e324cdf
--- /dev/null
+++ b/test/lisp/net/netrc-resources/netrc-folding
@@ -0,0 +1,6 @@
+# Foo
+machine XM login XL password XP
+
+machine YM
+  login YL
+  password YP
diff --git a/test/lisp/net/netrc-tests.el b/test/lisp/net/netrc-tests.el
index 1328b191494..f75328a59f7 100644
--- a/test/lisp/net/netrc-tests.el
+++ b/test/lisp/net/netrc-tests.el
@@ -48,6 +48,13 @@
     (should (equal (netrc-credentials "ftp.example.org")
                    '("jrh" "*baz*")))))
 
+(ert-deftest test-netrc-credentials ()
+  (let ((netrc-file (ert-resource-file "netrc-folding")))
+    (should
+     (equal (netrc-parse netrc-file)
+            '((("machine" . "XM") ("login" . "XL") ("password" . "XP"))
+              (("machine" . "YM")) (("login" . "YL")) (("password" . "YP")))))))
+
 (provide 'netrc-tests)
 
 ;;; netrc-tests.el ends here