diff options
| author | Matt Armstrong | 2022-11-05 16:31:19 -0700 |
|---|---|---|
| committer | Stefan Monnier | 2022-11-06 00:05:55 -0400 |
| commit | 23dd27a97953bab3ffab86dcc83b4e3b139657aa (patch) | |
| tree | cc8f8af05266d5629ebb0eafde0ce7f814215a80 /test/src/buffer-tests.el | |
| parent | 6e5ec085510ccf52ac6cb07c3a1a2778324a1d89 (diff) | |
| download | emacs-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.el | 29 |
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 |