@@ -120,7 +120,7 @@ First line
120
120
(pe/kill-at-pos {:row 1 :col 1 }) z/root-string))))
121
121
122
122
(deftest kill-one-at-pos
123
- (let [sample " [10 20 30]" ]
123
+ (let [sample " [10 20 30]" ]
124
124
(is (= " [10 30]"
125
125
(-> (z/of-string sample {:track-position? true })
126
126
(pe/kill-one-at-pos {:row 1 :col 4 }) ; at whitespace
@@ -172,7 +172,6 @@ First line
172
172
(is (= " \" world\" "
173
173
(-> (pe/kill-one-at-pos sample {:row 1 :col 2 }) z/root-string)))))
174
174
175
-
176
175
(deftest kill-one-at-pos-in-multiline-string
177
176
(let [sample (z/of-string " \" foo bar do\n lorem\" " {:track-position? true })]
178
177
(is (= " \" bar do\n lorem\" "
@@ -182,8 +181,6 @@ First line
182
181
(is (= " \" foo bar \n lorem\" "
183
182
(-> (pe/kill-one-at-pos sample {:row 1 :col 10 }) z/root-string)))))
184
183
185
-
186
-
187
184
(deftest slurp-forward-and-keep-loc-rightmost
188
185
(doseq [opts zipper-opts]
189
186
(testing (zipper-opts-desc opts)
@@ -346,12 +343,12 @@ First line
346
343
(deftest barf-forward-and-keep-loc
347
344
(doseq [opts zipper-opts]
348
345
(testing (zipper-opts-desc opts)
349
- (let [res (-> " [[1 2 3] 4]"
346
+ (let [res (-> " [[1 2 3] 4]"
350
347
(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)))))))
355
352
356
353
(deftest barf-forward-on-elem-with-children
357
354
(doseq [opts zipper-opts]
@@ -566,7 +563,6 @@ First line
566
563
(pe/split-at-pos {:row 1 :col 9 })
567
564
z/root-string))))
568
565
569
-
570
566
(deftest join-simple
571
567
(doseq [opts zipper-opts]
572
568
(testing (zipper-opts-desc opts)
0 commit comments