aggregate-xmlns (clj)

variable

Examples

(ns clojure.data.xml.test-process
  (: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]
            [clojure.data.xml.pu-map :as pu]))

#?
(:clj
 (deftest process
   (is (= (find-xmlns test-data) #{"" "GEE:" "GOO:"}))
   (let [nss (set (vals (:p->u (element-nss (aggregate-xmlns test-data)))))]
     (is (every? #(contains? nss %) ["GEE:" "GOO:"])))))