Add a test for print-unreadable-function

* test/lisp/subr-tests.el (test-print-unreadable-function): Add
failing test (bug#56773).

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index f5c1c40263e7ac12ee1ba3e3959f754befceee41..84f3e41148da0ea6077f0ad523a7e2132b3a3f2f 100644 (file)
--- 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 "") '("")))