Get correct property value for special tags

img, area, abbr, data and input tags are all consumed differently.

1 files changed, 13 insertions, 0 deletions

diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj
index f37906e..d9942f4 100644
--- a/test/microformats/parser_test.clj
+++ b/test/microformats/parser_test.clj
@@ -16,3 +16,16 @@
        {:items [{:properties {:nickname "exuser"}}] :rels {}}
        "<div class=\"h-card\"><p class=\"p-nickname\">exuser</p></div>"
        ))
+
+(deftest parse-p-special-elements
+  (testing "img, abbr and data elements should be parsed differently"
+    (are [ex in] (= ex (parse in))
+         {:items [{:properties {:name "Example User"}}] :rels {}}
+         "<div class=\"h-card\"><img class=\"p-name\" alt=\"Example User\"></div>"
+
+         {:items [{:properties {:name "Example User"}}] :rels {}}
+         "<div class=\"h-card h-person\"><abbr class=\"p-name\" title=\"Example User\">@example</abbr></div>"
+
+         {:items [{:properties {:name "Example User"}}] :rels {}}
+         "<div class=\"h-card\"><data class=\"p-name\" value=\"Example User\"></data></div>"
+         )))