aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorPhilipp Stephani2019-04-28 17:15:04 +0200
committerPhilipp Stephani2019-04-28 17:15:44 +0200
commit66a2c412be0dd21e3adeb766a44cc13fd80ba73c (patch)
tree877c99ad5a9c42b328e583e830290e4cb702e6c4 /test/src
parentcf11fac1eba8076434de345603c380c3e6894fb0 (diff)
downloademacs-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.el11
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)))