-;;; Test GNU Emacs modules. -*- lexical-binding: t; -*-
+;;; emacs-module-tests --- Test GNU Emacs modules. -*- lexical-binding: t; -*-
;; Copyright 2015-2019 Free Software Foundation, Inc.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
+;;; Commentary:
+
+;; Unit tests for the dynamic module facility. See Info node `(elisp)
+;; Writing Dynamic Modules'. These tests make use of a small test
+;; module in test/data/emacs-module.
+
+;;; Code:
+
(require 'cl-lib)
(require 'ert)
(require 'help-fns)
;;
(defun multiply-string (s n)
+ "Return N copies of S concatenated together."
(let ((res ""))
(dotimes (i n)
(setq res (concat res s)))