665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
17 lines
682 B
Clojure
17 lines
682 B
Clojure
(ns clojure.data.zip-test
|
|
(:require [clojure.test :as t :refer [deftest is]]
|
|
[clojure.data.xml :as xml]
|
|
[clojure.zip :as zip]
|
|
[clojure.data.zip.xml :refer [attr attr= xml1->]]))
|
|
|
|
(def data (str "<root>"
|
|
" <character type=\"person\" name=\"alice\" />"
|
|
" <character type=\"animal\" name=\"march hare\" />"
|
|
"</root>"))
|
|
|
|
(deftest xml1-test
|
|
(let [xml (zip/xml-zip (xml/parse (java.io.StringReader. data)))]
|
|
(is (= "person"
|
|
(xml1-> xml :character [(attr= :name "alice")] (attr :type))))
|
|
(is (= "march hare"
|
|
(xml1-> xml :character [(attr= :type "animal")] (attr :name))))))
|