             :out (par/parser t4-out :unhide :content)})
 (deftest test-symbol-spacing
   (testing "Tests that it doesn't eat spaces in the do loop if it's on a single line"
-    (is (= (par/htree-to-str (do-modification(:in map-4)))
-           (par/htree-to-str (:out map-4))))))+    (is (= (do-modification(:in map-4))
+           (:out map-4)))))

(when pred
    (foo)
    (bar))")
(def map-2 {:in (par/parser t2-in :unhide :content) 
            :out (par/parser t2-out :unhide :content)})
(deftest test-pre-whitespace
  (testing "Tests that it maintains whitespace before the statement"
    (is (= (par/htree-to-str (do-modification(:in map-2)))
           (par/htree-to-str (:out map-2))))))
           
(def t3-in
"(if (= 3

"(if pred
  (do
    (foo)
    (bar)))")
(def t0-out
"(when pred
    (foo)
