From a1384cd65d2f9dbb702b31fdfe06d7b8643ef978 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 26 Jul 2022 14:31:04 +0200 Subject: [PATCH] Add a test for print-unreadable-function * test/lisp/subr-tests.el (test-print-unreadable-function): Add failing test (bug#56773). --- test/lisp/subr-tests.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index f5c1c40263e..84f3e41148d 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -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 "") '(""))) -- 2.39.2