diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/print-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/src/print-tests.el b/test/src/print-tests.el index 036248fd091..ce8c095d496 100644 --- a/test/src/print-tests.el +++ b/test/src/print-tests.el | |||
| @@ -356,7 +356,9 @@ otherwise, use a different charset." | |||
| 356 | (print-tests--deftest error-message-string-circular () | 356 | (print-tests--deftest error-message-string-circular () |
| 357 | (let ((err (list 'error))) | 357 | (let ((err (list 'error))) |
| 358 | (setcdr err err) | 358 | (setcdr err err) |
| 359 | (should-error (error-message-string err) :type 'circular-list))) | 359 | (should-error (error-message-string err) :type 'circular-list) |
| 360 | ;; check that prin1-to-string-buffer is cleared (bug#78842) | ||
| 361 | (should (equal "37.0" (prin1-to-string 37.0))))) | ||
| 360 | 362 | ||
| 361 | (print-tests--deftest print-hash-table-test () | 363 | (print-tests--deftest print-hash-table-test () |
| 362 | (should | 364 | (should |