1 files changed, 10 insertions, 1 deletions

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 "") '("")))