 
 (when pred
     (foo)
-    (bar))")
+    (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))))))
+    (is (= (do-modification(:in map-2))
+           (:out map-2)))))
            
 (def t3-in
 "(if (= 3

        :a
        19)
 (foo)
   (bar))")
(def map-3 {:in (par/parser t3-in :unhide :content) 
            :out (par/parser t3-out :unhide :content)})
(deftest test-more-spacing
  (testing "Tests that it keeps parameters on different lines (doesn't indent)"
    (is (= (par/htree-to-str (do-modification(:in map-3)))
           (par/htree-to-str (:out map-3))))))

(def t4-in "(if p (do :a :b))")
(def t4-out "(when p :a :b)")

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