diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/print-tests.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/test/src/print-tests.el b/test/src/print-tests.el index b503bdeb998..5c349342eb3 100644 --- a/test/src/print-tests.el +++ b/test/src/print-tests.el | |||
| @@ -530,15 +530,17 @@ otherwise, use a different charset." | |||
| 530 | 0))))))))))) | 530 | 0))))))))))) |
| 531 | 531 | ||
| 532 | (ert-deftest test-print-unreadable-function-buffer () | 532 | (ert-deftest test-print-unreadable-function-buffer () |
| 533 | (with-temp-buffer | 533 | (let* ((buffer nil) |
| 534 | (let ((current (current-buffer)) | 534 | (callback-buffer nil) |
| 535 | callback-buffer) | 535 | (str (with-temp-buffer |
| 536 | (let ((print-unreadable-function | 536 | (setq buffer (current-buffer)) |
| 537 | (lambda (_object _escape) | 537 | (let ((print-unreadable-function |
| 538 | (setq callback-buffer (current-buffer))))) | 538 | (lambda (_object _escape) |
| 539 | (let ((_ (prin1-to-string (make-marker)))) nil)) ; this `let' silences a | 539 | (setq callback-buffer (current-buffer)) |
| 540 | ; warning | 540 | "tata"))) |
| 541 | (should (eq current callback-buffer))))) | 541 | (prin1-to-string (make-marker)))))) |
| 542 | (should (eq callback-buffer buffer)) | ||
| 543 | (should (equal str "tata")))) | ||
| 542 | 544 | ||
| 543 | (provide 'print-tests) | 545 | (provide 'print-tests) |
| 544 | ;;; print-tests.el ends here | 546 | ;;; print-tests.el ends here |