Mercurial > lasercutter

comparison 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
comparison
equal deleted inserted replaced
9:35cf337adfcf 10:ef7dbbd6452c
1 (ns clojure.contrib.test-prxml
2 (:use clojure.test clojure.contrib.prxml))
3
4 (deftest prxml-basic
5 (is (= "<p>Hello, World!</p>"
6 (with-out-str (prxml [:p "Hello, World!"])))))
7
8 (deftest prxml-escaping
9 (is (= "<a href=\"foo&amp;bar\">foo&lt;bar</a>"
10 (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"])))))