mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add a test for print-unreadable-function

Browse source 
* test/lisp/subr-tests.el (test-print-unreadable-function): Add
failing test (bug#56773).
This commit is contained in:
Lars Ingebrigtsen 2022-07-26 14:31:04 +02:00
parent 592ae7ffe2
commit a1384cd65d
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test/lisp/subr-tests.el
View file

@ -1026,7 +1026,16 @@ final or penultimate step during initialization."))
(ert-deftest test-readablep ()
(should (readablep "foo"))
(should-not (readablep (list (make-marker)))))
(should-not (readablep (list (make-marker))))
(should-not (readablep (make-marker))))
(ert-deftest test-print-unreadable-function ()
:expected-result :failed
;; Check that problem with unwinding properly is fixed (bug#56773).
(with-temp-buffer
(let ((buf (current-buffer)))
(readablep (make-marker))
(should (eq buf (current-buffer))))))
(ert-deftest test-string-lines ()
(should (equal (string-lines "") '("")))