aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/buffer-tests.el
diff options
context:
space:
mode:
authorMatt Armstrong2022-11-05 16:31:19 -0700
committerStefan Monnier2022-11-06 00:05:55 -0400
commit23dd27a97953bab3ffab86dcc83b4e3b139657aa (patch)
treecc8f8af05266d5629ebb0eafde0ce7f814215a80 /test/src/buffer-tests.el
parent6e5ec085510ccf52ac6cb07c3a1a2778324a1d89 (diff)
downloademacs-23dd27a97953bab3ffab86dcc83b4e3b139657aa.tar.gz
emacs-23dd27a97953bab3ffab86dcc83b4e3b139657aa.zip
itree.c and buffer-tests.el: Incorporate code review feedback
* src/itree.c: Improve wording in `itree_insert_gap` comment. * test/src/buffer-tests.el (test-overlay-insert-before-markers-at-start): Don't rely on (point-min) being 1. (test-overlay-insert-before-markers-at-end): ditto. (test-overlay-insert-before-markers-empty): ditto.
Diffstat (limited to 'test/src/buffer-tests.el')
-rw-r--r--test/src/buffer-tests.el29
1 files changed, 17 insertions, 12 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el
index b11243e021f..26a649e133c 100644
--- a/test/src/buffer-tests.el
+++ b/test/src/buffer-tests.el
@@ -1339,11 +1339,13 @@ Test both front-advance and non-front-advance overlays."
1339 (ert-info ((format "front-advance %S" front-advance)) 1339 (ert-info ((format "front-advance %S" front-advance))
1340 (with-temp-buffer 1340 (with-temp-buffer
1341 (insert "1234") 1341 (insert "1234")
1342 (let ((overlay (make-overlay 2 3 nil front-advance nil))) 1342 (let* ((beg (1+ (point-min)))
1343 (goto-char 2) 1343 (end (1+ beg))
1344 (overlay (make-overlay beg end nil front-advance nil)))
1345 (goto-char beg)
1344 (insert-before-markers "x") 1346 (insert-before-markers "x")
1345 (should (equal 3 (overlay-start overlay))) 1347 (should (equal (1+ beg) (overlay-start overlay)))
1346 (should (equal 4 (overlay-end overlay)))))))) 1348 (should (equal (1+ end) (overlay-end overlay))))))))
1347 1349
1348(ert-deftest test-overlay-insert-before-markers-at-end () 1350(ert-deftest test-overlay-insert-before-markers-at-end ()
1349 "`insert-before-markers' always advances an overlay's end. 1351 "`insert-before-markers' always advances an overlay's end.
@@ -1352,22 +1354,25 @@ Test both rear-advance and non-rear-advance overlays."
1352 (ert-info ((format "rear-advance %S" rear-advance)) 1354 (ert-info ((format "rear-advance %S" rear-advance))
1353 (with-temp-buffer 1355 (with-temp-buffer
1354 (insert "1234") 1356 (insert "1234")
1355 (let ((overlay (make-overlay 2 3 nil nil rear-advance))) 1357 (let* ((beg (1+ (point-min)))
1356 (goto-char 3) 1358 (end (1+ beg))
1359 (overlay (make-overlay beg end nil nil rear-advance)))
1360 (goto-char end)
1357 (insert-before-markers "x") 1361 (insert-before-markers "x")
1358 (should (equal 2 (overlay-start overlay))) 1362 (should (equal beg (overlay-start overlay)))
1359 (should (equal 4 (overlay-end overlay)))))))) 1363 (should (equal (1+ end) (overlay-end overlay))))))))
1360 1364
1361(ert-deftest test-overlay-insert-before-markers-empty () 1365(ert-deftest test-overlay-insert-before-markers-empty ()
1362 (dolist (advance-args '((nil nil) (t nil) (nil t) (t t))) 1366 (dolist (advance-args '((nil nil) (t nil) (nil t) (t t)))
1363 (ert-info ((format "advance args %S" advance-args)) 1367 (ert-info ((format "advance args %S" advance-args))
1364 (with-temp-buffer 1368 (with-temp-buffer
1365 (insert "1234") 1369 (insert "1234")
1366 (let ((overlay (apply #'make-overlay 2 2 nil advance-args))) 1370 (let* ((pos (1+ (point-min)))
1367 (goto-char 2) 1371 (overlay (apply #'make-overlay pos pos nil advance-args)))
1372 (goto-char pos)
1368 (insert-before-markers "x") 1373 (insert-before-markers "x")
1369 (should (equal 3 (overlay-start overlay))) 1374 (should (equal (1+ pos) (overlay-start overlay)))
1370 (should (equal 3 (overlay-end overlay)))))))) 1375 (should (equal (1+ pos) (overlay-end overlay))))))))
1371 1376
1372;; +==========================================================================+ 1377;; +==========================================================================+
1373;; | Moving by deletions 1378;; | Moving by deletions