[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e5cb6d3: Add a test for netrc folding parsing (bug#25769)
From: |
Lars Ingebrigtsen |
Subject: |
master e5cb6d3: Add a test for netrc folding parsing (bug#25769) |
Date: |
Sat, 14 Aug 2021 10:11:21 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e5cb6d3: Add a test for netrc folding parsing (bug#25769),
Lars Ingebrigtsen <=