rlm@10: (ns clojure.contrib.test-prxml
rlm@10:   (:use clojure.test clojure.contrib.prxml))
rlm@10: 
rlm@10: (deftest prxml-basic
rlm@10:   (is (= "<p>Hello, World!</p>"
rlm@10:          (with-out-str (prxml [:p "Hello, World!"])))))
rlm@10: 
rlm@10: (deftest prxml-escaping
rlm@10:   (is (= "<a href=\"foo&amp;bar\">foo&lt;bar</a>"
rlm@10:          (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"])))))