parse-string added

parse HTML from a given string parse-string test
weavejester · Feb 20, 2014 · d43e9e0 · d43e9e0
1 parent 375490c
commit d43e9e0
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/src/crouton/html.clj b/src/crouton/html.clj
@@ -58,3 +58,8 @@
       slurp
       Jsoup/parse
       as-clojure))
+
+(defn parse-string
+  "Reads and parses the HTML from a suplied source text."
+  [string]
+  (as-clojure (Jsoup/parse string)))
diff --git a/test/crouton/test/html.clj b/test/crouton/test/html.clj
@@ -53,3 +53,11 @@
            {:tag :html :attrs nil
             :content [{:tag :head :attrs nil :content nil}
                       {:tag :body :attrs nil :content ["x & y"]}]}))))
+
+(deftest test-parse-string
+  (testing "Elements"
+    (is (= (parse-string "<html><head></head><body></body></html>")
+           {:tag :html :attrs nil
+            :content [{:tag :head :attrs nil :content nil}
+                      {:tag :body :attrs nil :content nil}]}))))
+