Mercurial > lasercutter

diff 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 diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/contrib/test_contrib/test_prxml.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,10 @@
     1.4 +(ns clojure.contrib.test-prxml
     1.5 +  (:use clojure.test clojure.contrib.prxml))
     1.6 +
     1.7 +(deftest prxml-basic
     1.8 +  (is (= "<p>Hello, World!</p>"
     1.9 +         (with-out-str (prxml [:p "Hello, World!"])))))
    1.10 +
    1.11 +(deftest prxml-escaping
    1.12 +  (is (= "<a href=\"foo&amp;bar\">foo&lt;bar</a>"
    1.13 +         (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"])))))