From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 26 Jul 2022 12:31:04 +0000 (+0200)
Subject: Add a test for print-unreadable-function
X-Git-Tag: emacs-29.0.90~1447^2~744
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1384cd65d2f9dbb702b31fdfe06d7b8643ef978;p=emacs.git

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