master 2b6c5fb 2/2: Add test for nnrss

[Lars Ingebrigtsen]

branch: master
commit 2b6c5fb2953a9134064c32f67674ecd41db6c26a
Author: Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add test for nnrss
    
    * test/lisp/gnus/nnrss-tests.el (test-nnrss-xml): New test (bug#34685).
---
 test/lisp/gnus/nnrss-tests.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/test/lisp/gnus/nnrss-tests.el b/test/lisp/gnus/nnrss-tests.el
index 9821ec7..01b374a 100644
--- a/test/lisp/gnus/nnrss-tests.el
+++ b/test/lisp/gnus/nnrss-tests.el
@@ -26,4 +26,20 @@
   (should (equal (nnrss-normalize-date "2004-09-17T05:09:49.001+00:00")
                  "Fri, 17 Sep 2004 05:09:49 +0000")))
 
+(defconst test-nnrss-xml
+  '(rss
+    ((version . "2.0")
+     (xmlns:dc . "http://purl.org/dc/elements/1.1/";))
+    (channel
+     ((xmlns:content . "http://purl.org/rss/1.0/modules/content/";)))))
+
+(ert-deftest test-nnrss-namespace-top ()
+  (should (equal (nnrss-get-namespace-prefix
+                  test-nnrss-xml "http://purl.org/dc/elements/1.1/";)
+                 "dc:")))
+(ert-deftest test-nnrss-namespace-inner ()
+  (should (equal (nnrss-get-namespace-prefix
+                  test-nnrss-xml "http://purl.org/rss/1.0/modules/content/";)
+                 "content:")))
+
 ;;; nnrss-tests.el ends here