             :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

        :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 (= (do-modification(:in map-3))
           (:out map-3)))))

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