Permalink
Browse files

add more tests for html->hiccup

  • Loading branch information...
1 parent 2ff1adb commit 45495c86982fd5970721243f5b55059594838fb4 Hoàng Minh Thắng committed Sep 16, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 test/to_hiccup/test/core.clj
@@ -26,4 +26,8 @@
(ensure-under-hicv-dir "http://google.com/aaa"))))
(deftest html->hiccup-test
- (is (= '([:foo [:bar "bazz"]]) (html->hiccup "<foo><bar>bazz</bar></foo>"))))
+ (is (= '([:foo [:bar "buzz"]]) (html->hiccup "<foo><bar>buzz</bar></foo>")))
+ (is (= '([:foo#me.class1.class2 [:bar "buzz"]])
+ (html->hiccup (str "<foo id=\"me\" class=\"class1 class2\">"
+ "<bar>buzz</bar>"
+ "</foo>")))))

0 comments on commit 45495c8

Please sign in to comment.