diff options
| author | Philipp Stephani | 2019-04-28 17:15:04 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2019-04-28 17:15:44 +0200 |
| commit | 66a2c412be0dd21e3adeb766a44cc13fd80ba73c (patch) | |
| tree | 877c99ad5a9c42b328e583e830290e4cb702e6c4 /test/src | |
| parent | cf11fac1eba8076434de345603c380c3e6894fb0 (diff) | |
| download | emacs-66a2c412be0dd21e3adeb766a44cc13fd80ba73c.tar.gz emacs-66a2c412be0dd21e3adeb766a44cc13fd80ba73c.zip | |
Fix a few minor compilation and Checkdoc warnings.
* test/src/emacs-module-tests.el: Add package name and standard
sections.
(multiply-string): Add a docstring.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/emacs-module-tests.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 40afd76259c..51330e305f6 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; Test GNU Emacs modules. -*- lexical-binding: t; -*- | 1 | ;;; emacs-module-tests --- Test GNU Emacs modules. -*- lexical-binding: t; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright 2015-2019 Free Software Foundation, Inc. | 3 | ;; Copyright 2015-2019 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -17,6 +17,14 @@ | |||
| 17 | ;; You should have received a copy of the GNU General Public License | 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/>. */ | 18 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ |
| 19 | 19 | ||
| 20 | ;;; Commentary: | ||
| 21 | |||
| 22 | ;; Unit tests for the dynamic module facility. See Info node `(elisp) | ||
| 23 | ;; Writing Dynamic Modules'. These tests make use of a small test | ||
| 24 | ;; module in test/data/emacs-module. | ||
| 25 | |||
| 26 | ;;; Code: | ||
| 27 | |||
| 20 | (require 'cl-lib) | 28 | (require 'cl-lib) |
| 21 | (require 'ert) | 29 | (require 'ert) |
| 22 | (require 'help-fns) | 30 | (require 'help-fns) |
| @@ -137,6 +145,7 @@ changes." | |||
| 137 | ;; | 145 | ;; |
| 138 | 146 | ||
| 139 | (defun multiply-string (s n) | 147 | (defun multiply-string (s n) |
| 148 | "Return N copies of S concatenated together." | ||
| 140 | (let ((res "")) | 149 | (let ((res "")) |
| 141 | (dotimes (i n) | 150 | (dotimes (i n) |
| 142 | (setq res (concat res s))) | 151 | (setq res (concat res s))) |