From 5ff6a80cc577558dda51cdbe4b4ec75534913627 Mon Sep 17 00:00:00 2001
From: Alan Malloy <alan@malloys.org>
Date: Sun, 3 Jul 2011 02:37:56 -0700
Subject: [PATCH] Add tests for a few more basic features

---
 .../test/clojure/clojure/contrib/test_prxml.clj    | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 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
index 53b2b388..1a2e220e 100644
--- a/modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj
+++ b/modules/prxml/src/test/clojure/clojure/contrib/test_prxml.clj
@@ -2,9 +2,19 @@
   (:use clojure.test clojure.contrib.prxml))
 
 (deftest prxml-basic
-  (is (= "<p>Hello, World!</p>"
-         (with-out-str (prxml [:p "Hello, World!"])))))
+  (is (= "<p id=\"test\">Hello, World!</p>"
+         (with-out-str (prxml [:p {:id "test"} "Hello, World!"])))))
 
 (deftest prxml-escaping
   (is (= "<a href=\"foo&amp;bar\">foo&lt;bar</a>"
          (with-out-str (prxml [:a {:href "foo&bar"} "foo<bar"])))))
+
+(deftest prxml-pprint
+  (is (= "
+<ol>
+    <li>1
+    </li>
+</ol>"
+         (binding [*prxml-indent* 4]
+           (with-out-str
+             (prxml [:ol [:li 1]]))))))