diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-26 15:02:00 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-26 15:02:00 +0100 |
| commit | 826959ccb4ce36c15e2dc3e1fa4a4dbc345875dc (patch) | |
| tree | 54a694b893a8eb0e8597d3bca6c81a52c0e5ae8a /test/lisp/emacs-lisp/copyright-tests.el | |
| parent | 8a343ecee543faeb1be1e7e9de5f3163209f4da6 (diff) | |
| download | emacs-826959ccb4ce36c15e2dc3e1fa4a4dbc345875dc.tar.gz | |
Fix copyright-find-copyright when searching from the end
* lisp/emacs-lisp/copyright.el (copyright-find-copyright): Make
the double check also work when searching from the end (bug#7179).
Diffstat (limited to 'test/lisp/emacs-lisp/copyright-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/copyright-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/copyright-tests.el b/test/lisp/emacs-lisp/copyright-tests.el index 120cd5a6b5e..abb0913a0d7 100644 --- a/test/lisp/emacs-lisp/copyright-tests.el +++ b/test/lisp/emacs-lisp/copyright-tests.el @@ -61,5 +61,16 @@ (buffer-substring (- (point-max) 42) (point-max)))) "Copyright 2006, 2007, 2008, 2022 Foo Bar\n\n"))) +(ert-deftest test-correct-notice () + (should (equal + (with-temp-buffer + (dotimes (_ 2) + (insert "Copyright 2021 FSF\n")) + (let ((copyright-at-end-flag t) + (copyright-query nil)) + (copyright-update)) + (buffer-string)) + "Copyright 2021 FSF\nCopyright 2021, 2022 FSF\n"))) + (provide 'copyright-tests) ;;; copyright-tests.el ends here |