masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-09 05:30:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; * test/lisp/emacs-lisp/copyright-tests.el: Fix and future-safe.

Browse source
This commit is contained in:
Mattias Engdegård 2023-01-01 13:18:50 +01:00
parent 2baf9e107c
commit da77d70dee
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/emacs-lisp/copyright-tests.el
View file

@ -59,7 +59,8 @@
"\nCopyright 2006, 2007, 2008 Foo Bar\n\n") "\nCopyright 2006, 2007, 2008 Foo Bar\n\n")
(copyright-update) (copyright-update)
(buffer-substring (- (point-max) 42) (point-max)))) (buffer-substring (- (point-max) 42) (point-max))))
"Copyright 2006, 2007, 2008, 2022 Foo Bar\n\n"))) (format "Copyright 2006, 2007, 2008, %s Foo Bar\n\n"
(format-time-string "%Y")))))
(ert-deftest test-correct-notice () (ert-deftest test-correct-notice ()
(should (equal (should (equal
@ -70,7 +71,8 @@
(copyright-query nil)) (copyright-query nil))
(copyright-update)) (copyright-update))
(buffer-string)) (buffer-string))
"Copyright 2021 FSF\nCopyright 2021, 2022 FSF\n"))) (format "Copyright 2021 FSF\nCopyright 2021, %s FSF\n"
(format-time-string "%Y")))))
(defmacro with-copyright-fix-years-test (orig result) (defmacro with-copyright-fix-years-test (orig result)
`(let ((copyright-year-ranges t)) `(let ((copyright-year-ranges t))