master a1384cd65d: Add a test for print-unreadable-function

[Lars Ingebrigtsen]

branch: master
commit a1384cd65d2f9dbb702b31fdfe06d7b8643ef978
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 f5c1c40263..84f3e41148 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 "") '("")))