Add e-* parsing

1 files changed, 12 insertions, 0 deletions

diff --git a/test/microformats/parser_test.clj b/test/microformats/parser_test.clj
index 504ac24..7d837f2 100644
--- a/test/microformats/parser_test.clj
+++ b/test/microformats/parser_test.clj
@@ -17,6 +17,12 @@
          [:location :name]
          ["someclass" "p-location" "someotherclass" "p-name"])))
 
+(deftest node-to-html-string
+  (testing "`node-to-html' should return a string of HTML content"
+    (are [ex in] (= ex (apply str (#'microformats.parser/node-to-html in)))
+         "Foo <strong>bar</strong>"
+         '("Foo " {:tag :strong, :attrs nil, :content ("bar")}))))
+
 (deftest parse-p-inner-text
   (testing "Inner text of a p- property should be parsed")
   (are [ex in] (= ex (parse-p (first (html-snippet in))))
@@ -109,3 +115,9 @@
 
          {:start "2012-08-05T14:50"}
          "<input class=\"dt-start\" value=\"2012-08-05T14:50\">")))
+
+(deftest parse-e-elements
+  (testing "Tags with e-* classes should have ther content parsed"
+    (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>")))