diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/print-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/src/print-tests.el b/test/src/print-tests.el index 26d49a5ffba..77371a1b4ce 100644 --- a/test/src/print-tests.el +++ b/test/src/print-tests.el @@ -345,11 +345,15 @@ otherwise, use a different charset." ;; Bug#31146. (let ((x '(0 . #1=(0 . #1#)))) (let ((print-circle nil)) - (should (string-match "\\`(0 0 . #[0-9])\\'" + (should (string-match "\\`(0\\( 0\\)* . #[0-9]+)\\'" (print-tests--prin1-to-string x)))) (let ((print-circle t)) (should (equal "(0 . #1=(0 . #1#))" (print-tests--prin1-to-string x)))))) +(print-tests--deftest error-message-string-circular () + (let ((err (list 'error))) + (setcdr err err) + (should-error (error-message-string err) :type 'circular-list))) (provide 'print-tests) ;;; print-tests.el ends here |