diff options
| author | Lars Ingebrigtsen | 2022-07-26 14:31:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-07-26 14:31:33 +0200 |
| commit | a1384cd65d2f9dbb702b31fdfe06d7b8643ef978 (patch) | |
| tree | 19489ba59255a795d36bc9158d32f2e8604083aa | |
| parent | 592ae7ffe20aa9b5508fa0ac51dcf0ba33881b3c (diff) | |
| download | emacs-a1384cd65d2f9dbb702b31fdfe06d7b8643ef978.tar.gz emacs-a1384cd65d2f9dbb702b31fdfe06d7b8643ef978.zip | |
Add a test for print-unreadable-function
* test/lisp/subr-tests.el (test-print-unreadable-function): Add
failing test (bug#56773).
| -rw-r--r-- | test/lisp/subr-tests.el | 11 |
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.")) | |||
| 1026 | 1026 | ||
| 1027 | (ert-deftest test-readablep () | 1027 | (ert-deftest test-readablep () |
| 1028 | (should (readablep "foo")) | 1028 | (should (readablep "foo")) |
| 1029 | (should-not (readablep (list (make-marker))))) | 1029 | (should-not (readablep (list (make-marker)))) |
| 1030 | (should-not (readablep (make-marker)))) | ||
| 1031 | |||
| 1032 | (ert-deftest test-print-unreadable-function () | ||
| 1033 | :expected-result :failed | ||
| 1034 | ;; Check that problem with unwinding properly is fixed (bug#56773). | ||
| 1035 | (with-temp-buffer | ||
| 1036 | (let ((buf (current-buffer))) | ||
| 1037 | (readablep (make-marker)) | ||
| 1038 | (should (eq buf (current-buffer)))))) | ||
| 1030 | 1039 | ||
| 1031 | (ert-deftest test-string-lines () | 1040 | (ert-deftest test-string-lines () |
| 1032 | (should (equal (string-lines "") '(""))) | 1041 | (should (equal (string-lines "") '(""))) |