diff options
| author | Stefan Kangas | 2020-04-28 23:35:00 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-04-28 23:35:52 +0200 |
| commit | e309b329bb42fdf65a1ca0792859d099d04010da (patch) | |
| tree | 0f2693c7ece04734a84eba292f1396ca1040c59c /test | |
| parent | 8aca659bd14602c770d02902817fbedf78cadab7 (diff) | |
| download | emacs-e309b329bb42fdf65a1ca0792859d099d04010da.tar.gz emacs-e309b329bb42fdf65a1ca0792859d099d04010da.zip | |
Use lexical-binding in version.el and add tests
* lisp/version.el: Use lexical-binding.
* test/lisp/version-tests.el: New file.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/version-tests.el | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/test/lisp/version-tests.el b/test/lisp/version-tests.el new file mode 100644 index 00000000000..8fbd4a19fc5 --- /dev/null +++ b/test/lisp/version-tests.el | |||
| @@ -0,0 +1,31 @@ | |||
| 1 | ;;; version-tests.el --- Tests for version.el -*- lexical-binding: t -*- | ||
| 2 | |||
| 3 | ;; Copyright (C) 2020 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | ;; This file is part of GNU Emacs. | ||
| 6 | |||
| 7 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 8 | ;; it under the terms of the GNU General Public License as published by | ||
| 9 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 10 | ;; (at your option) any later version. | ||
| 11 | |||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 15 | ;; GNU General Public License for more details. | ||
| 16 | |||
| 17 | ;; You should have received a copy of the GNU General Public License | ||
| 18 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. | ||
| 19 | |||
| 20 | ;;; Commentary: | ||
| 21 | |||
| 22 | ;;; Code: | ||
| 23 | |||
| 24 | (require 'ert) | ||
| 25 | |||
| 26 | (ert-deftest test-emacs-version () | ||
| 27 | (should (string-match emacs-version (emacs-version))) | ||
| 28 | (should (string-match system-configuration (emacs-version)))) | ||
| 29 | |||
| 30 | (provide 'version-tests) | ||
| 31 | ;;; version-tests.el ends here | ||