mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' into feature/igc

Browse source
This commit is contained in:
Gerd Möllmann 2025-08-24 12:15:10 +02:00
commit 7d7ecea0eb
218 changed files with 6084 additions and 2921 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/emacs-lisp/timer-tests.el
View file

@ -65,4 +65,24 @@
(let ((nt (timer-next-integral-multiple-of-time '(32770 . 65539) 0.5)))
(should (time-equal-p 1 nt))))
(ert-deftest timer-test-repeat-arg ()
"Test bug#79227."
(should (run-at-time nil nil 'ignore))
(should (run-at-time nil 0 'ignore))
(should (run-at-time nil 1.5 'ignore))
;; Test REPEAT that is neither nil nor a non-negative number.
(let ((err (should-error (run-at-time nil t 'ignore))))
(should (equal err '(error . ("Invalid repetition interval: t"))))
;; Test REPEAT that is a negative number.
(setq err (should-error (run-at-time nil -1.5 'ignore)))
(should (equal err '(error . ("Invalid repetition interval: -1.5")))))
;; Same tests for run-with-timer.
(should (run-with-timer 0 nil 'ignore))
(should (run-with-timer 0 0 'ignore))
(should (run-with-timer 0 1.5 'ignore))
(let ((err (should-error (run-with-timer 0 t 'ignore))))
(should (equal err '(error . ("Invalid repetition interval: t"))))
(setq err (should-error (run-with-timer 0 -1.5 'ignore)))
(should (equal err '(error . ("Invalid repetition interval: -1.5"))))))
;;; timer-tests.el ends here