@@ -120,7 +120,7 @@ First line
120120 (pe/kill-at-pos {:row 1 :col 1 }) z/root-string))))
121121
122122(deftest kill-one-at-pos
123- (let [sample " [10 20 30]" ]
123+ (let [sample " [10 20 30]" ]
124124 (is (= " [10 30]"
125125 (-> (z/of-string sample {:track-position? true })
126126 (pe/kill-one-at-pos {:row 1 :col 4 }) ; at whitespace
@@ -172,7 +172,6 @@ First line
172172 (is (= " \" world\" "
173173 (-> (pe/kill-one-at-pos sample {:row 1 :col 2 }) z/root-string)))))
174174
175-
176175(deftest kill-one-at-pos-in-multiline-string
177176 (let [sample (z/of-string " \" foo bar do\n lorem\" " {:track-position? true })]
178177 (is (= " \" bar do\n lorem\" "
@@ -182,8 +181,6 @@ First line
182181 (is (= " \" foo bar \n lorem\" "
183182 (-> (pe/kill-one-at-pos sample {:row 1 :col 10 }) z/root-string)))))
184183
185-
186-
187184(deftest slurp-forward-and-keep-loc-rightmost
188185 (doseq [opts zipper-opts]
189186 (testing (zipper-opts-desc opts)
@@ -346,12 +343,12 @@ First line
346343(deftest barf-forward-and-keep-loc
347344 (doseq [opts zipper-opts]
348345 (testing (zipper-opts-desc opts)
349- (let [res (-> " [[1 2 3] 4]"
346+ (let [res (-> " [[1 2 3] 4]"
350347 (z/of-string opts)
351- z/down z/down z/right; position at 2
352- pe/barf-forward)]
353- (is (= " [[1 2] 3 4]" (-> res z/root-string)))
354- (is (= " 2" (-> res z/string)))))))
348+ z/down z/down z/right; position at 2
349+ pe/barf-forward)]
350+ (is (= " [[1 2] 3 4]" (-> res z/root-string)))
351+ (is (= " 2" (-> res z/string)))))))
355352
356353(deftest barf-forward-on-elem-with-children
357354 (doseq [opts zipper-opts]
@@ -566,7 +563,6 @@ First line
566563 (pe/split-at-pos {:row 1 :col 9 })
567564 z/root-string))))
568565
569-
570566(deftest join-simple
571567 (doseq [opts zipper-opts]
572568 (testing (zipper-opts-desc opts)
0 commit comments