diff --git a/modules/xml.pull-parser/src/test/clojure/clojure/data/xml/test_pull_parser.clj b/modules/xml.pull-parser/src/test/clojure/clojure/data/xml/test_pull_parser.clj
index 6e9d632..a2e5a2a 100644
--- a/modules/xml.pull-parser/src/test/clojure/clojure/data/xml/test_pull_parser.clj
+++ b/modules/xml.pull-parser/src/test/clojure/clojure/data/xml/test_pull_parser.clj
@@ -13,11 +13,16 @@
[clojure.data.xml :as xml :only [element]]
[clojure.data.xml.pull-parser :as pp :only []]))
+(defn test-stream [x]
+ (java.io.ByteArrayInputStream. (.getBytes x)))
+
+(def lazy-parse* (comp pp/lazy-parse test-stream))
+
(deftest simple
(let [input "This is bold test"
expected (element :html {} (element :body {:bg "red"}
"This is " (element :b {} "bold") " test"))]
- (with-in-str input (is (= expected (xml/lazy-parse *in*))))))
+ (is (= expected (lazy-parse* input)))))
(deftest deep
(let [input (str ""
@@ -35,4 +40,4 @@
" t7" (element :e {:l "5" :m "6"}
" t8" (element :f {} "t10") "t11")
" t12" (element :g {} "t13") "t14")]
- (with-in-str input (is (= expected (xml/lazy-parse *in*))))))
+ (is (= expected (lazy-parse* input)))))