diff options
Diffstat (limited to 'test/src/buffer-tests.el')
| -rw-r--r-- | test/src/buffer-tests.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 0e4fd3655ae..609585f43ed 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -79,4 +79,19 @@ with parameters from the *Messages* buffer modification." | |||
| 79 | (with-temp-buffer | 79 | (with-temp-buffer |
| 80 | (should (eq (buffer-base-buffer (current-buffer)) nil)))) | 80 | (should (eq (buffer-base-buffer (current-buffer)) nil)))) |
| 81 | 81 | ||
| 82 | (ert-deftest overlay-evaporation-after-killed-buffer () | ||
| 83 | (let* ((ols (with-temp-buffer | ||
| 84 | (insert "toto") | ||
| 85 | (list | ||
| 86 | (make-overlay (point-min) (point-max)) | ||
| 87 | (make-overlay (point-min) (point-max)) | ||
| 88 | (make-overlay (point-min) (point-max))))) | ||
| 89 | (ol (nth 1 ols))) | ||
| 90 | (overlay-put ol 'evaporate t) | ||
| 91 | ;; Evaporation within move-overlay of an overlay that was deleted because | ||
| 92 | ;; of a kill-buffer, triggered an assertion failure in unchain_both. | ||
| 93 | (with-temp-buffer | ||
| 94 | (insert "toto") | ||
| 95 | (move-overlay ol (point-min) (point-min))))) | ||
| 96 | |||
| 82 | ;;; buffer-tests.el ends here | 97 | ;;; buffer-tests.el ends here |