diff options
| author | Mattias EngdegÄrd | 2023-01-01 13:18:50 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2023-01-01 13:18:50 +0100 |
| commit | da77d70deeb2798693ec4f28a291befeb8e43989 (patch) | |
| tree | f2a4a88931f4daf592c0533062aa7460b13f330a | |
| parent | 2baf9e107c1d6f1c71f5804b6bd933d3f5d6a9ea (diff) | |
| download | emacs-da77d70deeb2798693ec4f28a291befeb8e43989.tar.gz emacs-da77d70deeb2798693ec4f28a291befeb8e43989.zip | |
; * test/lisp/emacs-lisp/copyright-tests.el: Fix and future-safe.
| -rw-r--r-- | test/lisp/emacs-lisp/copyright-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/copyright-tests.el b/test/lisp/emacs-lisp/copyright-tests.el index ef531174617..5f8b5c67896 100644 --- a/test/lisp/emacs-lisp/copyright-tests.el +++ b/test/lisp/emacs-lisp/copyright-tests.el | |||
| @@ -59,7 +59,8 @@ | |||
| 59 | "\nCopyright 2006, 2007, 2008 Foo Bar\n\n") | 59 | "\nCopyright 2006, 2007, 2008 Foo Bar\n\n") |
| 60 | (copyright-update) | 60 | (copyright-update) |
| 61 | (buffer-substring (- (point-max) 42) (point-max)))) | 61 | (buffer-substring (- (point-max) 42) (point-max)))) |
| 62 | "Copyright 2006, 2007, 2008, 2022 Foo Bar\n\n"))) | 62 | (format "Copyright 2006, 2007, 2008, %s Foo Bar\n\n" |
| 63 | (format-time-string "%Y"))))) | ||
| 63 | 64 | ||
| 64 | (ert-deftest test-correct-notice () | 65 | (ert-deftest test-correct-notice () |
| 65 | (should (equal | 66 | (should (equal |
| @@ -70,7 +71,8 @@ | |||
| 70 | (copyright-query nil)) | 71 | (copyright-query nil)) |
| 71 | (copyright-update)) | 72 | (copyright-update)) |
| 72 | (buffer-string)) | 73 | (buffer-string)) |
| 73 | "Copyright 2021 FSF\nCopyright 2021, 2022 FSF\n"))) | 74 | (format "Copyright 2021 FSF\nCopyright 2021, %s FSF\n" |
| 75 | (format-time-string "%Y"))))) | ||
| 74 | 76 | ||
| 75 | (defmacro with-copyright-fix-years-test (orig result) | 77 | (defmacro with-copyright-fix-years-test (orig result) |
| 76 | `(let ((copyright-year-ranges t)) | 78 | `(let ((copyright-year-ranges t)) |