diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-08-10 21:40:47 -0400 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-08-10 21:40:47 -0400 |
| commit | 38743f83bdd60d6687dabcea3864b04bbd554a6c (patch) | |
| tree | 44b31d4900c2d5720679abe911694d64fc516d0a /modules/prxml/src/test/clojure | |
| parent | a6a92b9b3d2bfd9a56e1e5e9cfba706d1aeeaae5 (diff) | |
Add test sources to their respective modules
Diffstat (limited to 'modules/prxml/src/test/clojure')
| -rw-r--r-- | modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj b/modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj new file mode 100644 index 00000000..53b2b388 --- /dev/null +++ b/modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj @@ -0,0 +1,10 @@ +(ns clojure.contrib.test-prxml + (:use clojure.test clojure.contrib.prxml)) + +(deftest prxml-basic + (is (= "<p>Hello, World!</p>" + (with-out-str (prxml [:p "Hello, World!"]))))) + +(deftest prxml-escaping + (is (= "<a href=\"foo&bar\">foo<bar</a>" + (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"]))))) |