Mercurial > lasercutter

view 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
line wrap: on
line source
     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"])))))