DXML-44 cljs support for empty on elements

Author: bendlas

src/main/clojure/clojure/data/xml.cljs

@@ -9,7 +9,7 @@
 
 (export-api
  name/parse-qname name/qname-uri name/qname-local name/qname name/as-qname name/uri-symbol name/symbol-uri
- node/element* node/element node/cdata node/xml-comment
+ node/element* node/element node/cdata node/xml-comment node/element?
  dom/extend-dom-as-data! dom/element-node dom/element-data)
 
 ;;;; ## TODO event-seq

src/main/clojure/clojure/data/xml/node.cljc

@@ -120,6 +120,9 @@
       [(seq [this] (iterator-seq (.iterator this)))])
 
   #?(:clj (empty [_] (Element. tag {} [] {})))
+  #?@(:cljs
+      [IEmptyableCollection
+       (-empty [_] (Element. tag {} [] {}))])
 
   ;; j.u.Map and included interfaces
   #?@(:clj

…lojure/clojure/data/xml/test_process.clj …ojure/clojure/data/xml/test_process.cljcsrc/test/clojure/clojure/data/xml/test_process.clj renamed to src/test/clojure/clojure/data/xml/test_process.cljc src/test/clojure/clojure/data/xml/test_process.clj renamed to src/test/clojure/clojure/data/xml/test_process.cljc

@@ -1,6 +1,8 @@
 (ns clojure.data.xml.test-process
-  (:require [clojure.data.xml :refer :all]
-            [clojure.test :refer :all]
+  (:require [clojure.data.xml :refer [element qname element?
+                                      #?@(:clj [element-nss aggregate-xmlns
+                                                find-xmlns])]]
+            [clojure.test :refer [deftest is]]
             [clojure.walk :as w]
             [clojure.string :as str]))
 
@@ -13,14 +15,15 @@
    (element (qname "GOO:" "ho") {(qname "GEE:" "hi") "ma"} "ii")
    "end"))
 
-(deftest process
-  (is (= (find-xmlns test-data) #{"" "GEE:" "GOO:"}))
-  (is (= (set (vals (element-nss (aggregate-xmlns test-data)))) #{"GEE:" "GOO:"})))
+#?
+(:clj
+ (deftest process
+   (is (= (find-xmlns test-data) #{"" "GEE:" "GOO:"}))
+   (is (= (set (vals (element-nss (aggregate-xmlns test-data)))) #{"GEE:" "GOO:"}))))
 
 (deftest walk-test
   (is (= {:tag :FOO, :attrs {}, :content ()}
          (w/postwalk (fn [e]
-                       (println e)
                        (if (element? e)
                          (update e :tag (comp keyword str/upper-case name))
                          e))

src/test/clojurescript/clojure/data/xml/test_cljs.cljs

@@ -4,7 +4,8 @@
             clojure.data.xml.test-cljs-basic
             clojure.data.xml.test-cljs-extended
             clojure.data.xml.test-equiv
-            clojure.data.xml.test-pu))
+            clojure.data.xml.test-pu
+            clojure.data.xml.test-process))
 
 (def ^:dynamic *results*)
 
@@ -21,7 +22,8 @@
     (println "Running Basic Tests")
     (test/run-tests 'clojure.data.xml.test-cljs-basic
                     'clojure.data.xml.test-equiv
-                    'clojure.data.xml.test-pu)
+                    'clojure.data.xml.test-pu
+                    'clojure.data.xml.test-process)
     (pr-str *results*)))
 
 (defn ^:export -main []