Mercurial > lasercutter

annotate src/clojure/contrib/test_contrib/test_prxml.clj @ 10:ef7dbbd6452c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
rev   line source
rlm@10 1 (ns clojure.contrib.test-prxml
rlm@10 2 (:use clojure.test clojure.contrib.prxml))
rlm@10 3
rlm@10 4 (deftest prxml-basic
rlm@10 5 (is (= "<p>Hello, World!</p>"
rlm@10 6 (with-out-str (prxml [:p "Hello, World!"])))))
rlm@10 7
rlm@10 8 (deftest prxml-escaping
rlm@10 9 (is (= "<a href=\"foo&amp;bar\">foo&lt;bar</a>"
rlm@10 10 (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"])))))