DXML-44 support empty on elements

Author: bendlas

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

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

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

@@ -1,6 +1,8 @@
 (ns clojure.data.xml.test-process
   (:require [clojure.data.xml :refer :all]
-            [clojure.test :refer :all]))
+            [clojure.test :refer :all]
+            [clojure.walk :as w]
+            [clojure.string :as str]))
 
 (def test-data
   (element
@@ -14,3 +16,12 @@
 (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))
+                     (element :foo)))))