master e5cb6d3: Add a test for netrc folding parsing (bug#25769)

[Lars Ingebrigtsen]

branch: master
commit e5cb6d3fd1875e425be31fd885519326ba2304b8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add a test for netrc folding parsing (bug#25769)
---
 test/lisp/net/netrc-resources/netrc-folding | 6 ++++++
 test/lisp/net/netrc-tests.el                | 7 +++++++
 2 files changed, 13 insertions(+)

diff --git a/test/lisp/net/netrc-resources/netrc-folding 
b/test/lisp/net/netrc-resources/netrc-folding
new file mode 100644
index 0000000..85e5e32
--- /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 1328b19..f75328a 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