xml_test.clj

(ns clojure.data.zip.xml-test
  (:use [clojure.test]
        [clojure.data.zip.xml])
  (:require [clojure.xml :as xml]
            [clojure.zip :as zip]))


(defn parse-str [s]
  (zip/xml-zip (xml/parse (new org.xml.sax.InputSource
                               (new java.io.StringReader s)))))

(def atom1 (parse-str "<?xml version='1.0' encoding='UTF-8'?>
<feed xmlns='http://www.w3.org/2005/Atom'>
  <id>tag:blogger.com,1999:blog-28403206</id>
  <updated>2008-02-14T08:00:58.567-08:00</updated>
  <title type='text'>n01senet</title>
  <link rel='alternate' type='text/html' href='http://n01senet.blogspot.com/'/>
  <entry>
    <id>1</id>
    <published>2008-02-13</published>
    <title type='text'>clojure is the best lisp yet</title>
    <author><name>Chouser</name></author>
  </entry>
  <entry>
    <id>2</id>
    <published>2008-02-07</published>
    <title type='text'>experimenting with vnc</title>
    <author><name>agriffis</name></author>
  </entry>
</feed>
"))

(deftest test-simple-single-function filter
  (is (= (xml-> atom1 #(:tag (zip/node %)))
         '(:feed))))

(deftest test-two-stage-filter
  (testing "using helpful query prediates"
    (is (= (xml-> atom1 (tag= :title) text)
           '("n01senet"))))
  (testing "keyword shortcut"
    (is (= (xml-> atom1 :title text)
           '("n01senet")))))

(deftest test-multi-stage-filter
  (testing "basic functionality"
    (is (= (xml-> atom1 :entry :author :name text)
           '("Chouser" "agriffis"))))
  (testing "subquery specified using a vector"
    (is (= (xml-> atom1 :entry [:author :name (text= "agriffis")]
                  :id text)
           '("2"))))
  (testing "with string shortcut"
    (is (= (xml-> atom1 :entry [:author :name "agriffis"] :id text)
           '("2")))))

(deftest test-xml1->
  (is (= (xml1-> atom1 :entry :author :name text)
         "Chouser")))

(deftest test-attribute-access
  (is (= (xml-> atom1 :title (attr :type))
         '("text"))))

(deftest test-attribute-filtering
  (is (= (xml-> atom1 :link [(attr= :rel "alternate")] (attr :type))
         '("text/html"))))

;; This was in the original code under a comment, but is fails
#_(deftest test-ancestors
  (testing "basic function"
    (is (= (xml-> atom1 descendants :id "2" ancestors zip/node #(:tag %))
           '(:id :entry :feed))))
  (testing "with non-auto tag= (:entry), followed by auto tag= (:id)"
    (is (= (xml-> atom1 descendants :name "Chouser" ancestors
                  :entry :id text)
           '("1")))))

(defrecord Node [tag attrs content])

(def record
  (zip/xml-zip
   (Node. :root {}
          [(Node. :entry {} [(Node. :id {} ["1"])
                             (Node. :author {:type "text"} ["John"])])
           (Node. :entry {} [(Node. :id {} ["2"])
                             (Node. :author {:type "text"} ["Jane"])])])))

(deftest test-records
  (is (= (xml-> record :entry :author text)
         '("John" "Jane"))))

(def atom2 (parse-str "<feed>
<foo>bar</foo></feed>"))

(deftest dzip-3-first-node
  (is (not= (xml-> atom2 :feed ) '())))

(deftest dzip-3-second-node
  (is (= (xml-> atom2 :foo text) '("bar"))))