added cdata support for sexp-as-element (DXML-11)

src/main/clojure/clojure/data/xml.clj

@@ -178,6 +178,11 @@
 (defprotocol AsElements
   (as-elements [expr] "Return a seq of elements represented by an expression."))
 
+(defn sexp-element [tag attrs child]
+  (cond
+   (= :-cdata tag) (CData. (first child))
+   :else (Element. tag attrs (mapcat as-elements child))))
+
 (extend-protocol AsElements
   clojure.lang.IPersistentVector
   (as-elements [v]
@@ -187,7 +192,7 @@
                                         [k (str v)]))
                              after-attrs]
                             [{} content])]
-      [(Element. tag attrs (mapcat as-elements content))]))
+      [(sexp-element tag attrs content)]))
 
   clojure.lang.ISeq
   (as-elements [s]

src/test/clojure/clojure/data/xml/test_sexp.clj

@@ -25,3 +25,21 @@
     (is (= (sexps-as-fragment input)
            (map sexp-as-element input)))
     (is (thrown? Exception (sexp-as-element input)))))
+
+(deftest with-cdata
+  (let [xml-input (element :tag {:attr "value"}
+                           (element :body {} (cdata "not parsed <stuff")))
+        sexp-input [:tag {:attr "value"} [:body {} [:-cdata "not parsed <stuff"]]]]
+    (is (= xml-input
+           (sexp-as-element sexp-input)))))
+
+(deftest with-multiple-cdata
+  (let [xml-input (element :tag {:attr "value"}
+                           (element :body {}
+                                    (cdata "not parsed <stuff")
+                                    (cdata "more not parsed <stuff")))
+        sexp-input [:tag {:attr "value"} [:body {}
+                                          (list [:-cdata "not parsed <stuff"]
+                                                [:-cdata "more not parsed <stuff"])]]]
+    (is (= xml-input
+           (sexp-as-element sexp-input)))))