DXML-30: fix emit of default namespaces

clojure · Aug 28, 2016 · e84990d · e84990d
1 parent 814825f
commit e84990d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/main/clojure/clojure/data/xml/jvm/emit.clj b/src/main/clojure/clojure/data/xml/jvm/emit.clj
@@ -75,7 +75,7 @@
     (persistent!
      (reduce (fn [tleft uri]
                (if (and (not (str/blank? uri))
-                        (str/blank? (get-prefix writer tleft uri)))
+                        (nil? (get-prefix writer tleft uri)))
                  (assoc! tleft uri (make-prefix (.getNamespaceContext writer)))
                  tleft))
              tleft used-uris))))

diff --git a/src/test/clojure/clojure/data/xml/test_emit.clj b/src/test/clojure/clojure/data/xml/test_emit.clj
@@ -184,3 +184,8 @@
                     (element (to-qname "{NS2}foo"))
                     (element (to-qname "{NS2}bar")))]
     (is (= (parse-str (emit-str el)) el))))
+
+(deftest test-default-xmlns
+  (is (= {:clojure.data.xml/nss {:xmlns "NS"}}
+         (meta (parse-str "<foo xmlns=\"NS\"/>"))
+         (meta (parse-str (emit-str (parse-str "<foo xmlns=\"NS\"/>")))))))