From 11c75c3e47c4afdd419c13e68fa5e0f795daa715 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sat, 13 Sep 2014 21:49:48 +0100
Subject: Add support for parsing rel attributes

---
 test/microformats/parser_test.clj | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'test')

diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj
index 7d837f2..51c45c7 100644
--- a/test/microformats/parser_test.clj
+++ b/test/microformats/parser_test.clj
@@ -121,3 +121,12 @@
     (are [ex in] (= ex (parse-e (first (html-snippet in))))
          {:content {:html "Here is a load of <strong>embedded markup</strong>" :value "Here is a load of embedded markup"}}
          "<div class=\"e-content\">Here is a load of <strong>embedded markup</strong></div>")))
+
+(deftest parse-rel-test
+  (testing "link and a tags with rel attributes should be parsed"
+    (are [ex in] (= ex (parse-rels (html-snippet in)))
+         {:author ["http://example.com/a"]}
+         "<a rel=\"author\" href=\"http://example.com/a\">author a</a>"
+
+         {:author ["http://example.com/a" "http://example.com/b"]}
+         "<a rel=\"author\" href=\"http://example.com/a\">author a</a><a rel=\"author\" href=\"http://example.com/b\">author b</a>")))
-- 
cgit 1.4.1