mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Add tests for buffer-base-buffer function (Bug#30905)

Browse source 
* test/src/buffer-tests.el (test-buffer-base-buffer-indirect)
(test-buffer-base-buffer-non-indirect): New tests for
`buffer-base-buffer'.
This commit is contained in:
Shanavas M 2018-03-22 12:20:22 +03:00 • committed by Noam Postavsky
parent 6273503660
commit 10f5f4361b
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/src/buffer-tests.el
View file

@ -50,4 +50,14 @@ with parameters from the *Messages* buffer modification."
(progn (get-buffer-create "nil")
(generate-new-buffer-name "nil")))))
(ert-deftest test-buffer-base-buffer-indirect ()
(with-temp-buffer
(let* ((ind-buf-name (generate-new-buffer-name "indbuf"))
(ind-buf (make-indirect-buffer (current-buffer) ind-buf-name)))
(should (eq (buffer-base-buffer ind-buf) (current-buffer))))))
(ert-deftest test-buffer-base-buffer-non-indirect ()
(with-temp-buffer
(should (eq (buffer-base-buffer (current-buffer)) nil))))
;;; buffer-tests.el ends here