diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/microformats/parser_test.clj | 12 |
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>"))) |