procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move a test from subr-tests to print-tests

Browse source
This commit is contained in:
Lars Ingebrigtsen 2022-07-30 12:45:36 +02:00
parent cd3ce6e541
commit 2539039335
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/subr-tests.el
View file

@ -1126,15 +1126,5 @@ final or penultimate step during initialization."))
(should (equal (butlast l n)
(subr-tests--butlast-ref l n))))))
(ert-deftest test-print-unreadable-function-buffer ()
(with-temp-buffer
(let ((current (current-buffer))
callback-buffer)
(let ((print-unreadable-function
(lambda (_object _escape)
(setq callback-buffer (current-buffer)))))
(prin1-to-string (make-marker)))
(should (eq current callback-buffer)))))
(provide 'subr-tests)
;;; subr-tests.el ends here

10
test/src/print-tests.el
View file

@ -529,5 +529,15 @@ otherwise, use a different charset."
(should (equal (% (- (length numbers) loopback-index) loop)
0)))))))))))
(ert-deftest test-print-unreadable-function-buffer ()
(with-temp-buffer
(let ((current (current-buffer))
callback-buffer)
(let ((print-unreadable-function
(lambda (_object _escape)
(setq callback-buffer (current-buffer)))))
(prin1-to-string (make-marker)))
(should (eq current callback-buffer)))))
(provide 'print-tests)
;;; print-tests.el ends here