diff options
| -rw-r--r-- | lisp/version.el | 2 | ||||
| -rw-r--r-- | test/lisp/version-tests.el | 31 |
2 files changed, 32 insertions, 1 deletions
diff --git a/lisp/version.el b/lisp/version.el index 012cb2175ee..046b4a2ded5 100644 --- a/lisp/version.el +++ b/lisp/version.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; version.el --- record version number of Emacs | 1 | ;;; version.el --- record version number of Emacs -*- lexical-binding:t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1992, 1994-1995, 1999-2020 Free Software | 3 | ;; Copyright (C) 1985, 1992, 1994-1995, 1999-2020 Free Software |
| 4 | ;; Foundation, Inc. | 4 | ;; Foundation, Inc. |
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 | ||