diff options
| author | Shanavas M | 2018-03-22 12:20:22 +0300 |
|---|---|---|
| committer | Noam Postavsky | 2018-04-11 21:16:49 -0400 |
| commit | 10f5f4361b9783f1cc4a683cca31ab3192fe179d (patch) | |
| tree | b6245698f65e37bc21ac3312093452a3338a25dd /test/src/buffer-tests.el | |
| parent | 6273503660e055dddbf081e94040d4b1b4735c93 (diff) | |
| download | emacs-10f5f4361b9783f1cc4a683cca31ab3192fe179d.tar.gz emacs-10f5f4361b9783f1cc4a683cca31ab3192fe179d.zip | |
Add tests for buffer-base-buffer function (Bug#30905)
* test/src/buffer-tests.el (test-buffer-base-buffer-indirect)
(test-buffer-base-buffer-non-indirect): New tests for
`buffer-base-buffer'.
Diffstat (limited to 'test/src/buffer-tests.el')
| -rw-r--r-- | test/src/buffer-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index f9c477fbfd7..d115e668178 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -50,4 +50,14 @@ with parameters from the *Messages* buffer modification." | |||
| 50 | (progn (get-buffer-create "nil") | 50 | (progn (get-buffer-create "nil") |
| 51 | (generate-new-buffer-name "nil"))))) | 51 | (generate-new-buffer-name "nil"))))) |
| 52 | 52 | ||
| 53 | (ert-deftest test-buffer-base-buffer-indirect () | ||
| 54 | (with-temp-buffer | ||
| 55 | (let* ((ind-buf-name (generate-new-buffer-name "indbuf")) | ||
| 56 | (ind-buf (make-indirect-buffer (current-buffer) ind-buf-name))) | ||
| 57 | (should (eq (buffer-base-buffer ind-buf) (current-buffer)))))) | ||
| 58 | |||
| 59 | (ert-deftest test-buffer-base-buffer-non-indirect () | ||
| 60 | (with-temp-buffer | ||
| 61 | (should (eq (buffer-base-buffer (current-buffer)) nil)))) | ||
| 62 | |||
| 53 | ;;; buffer-tests.el ends here | 63 | ;;; buffer-tests.el ends here |