diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-04-20 23:32:19 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-13 11:30:16 +0200 |
| commit | cb58a3c5526c0818ae4ddb1f9e4fa41ce5c64688 (patch) | |
| tree | 62c15dd137e8aa4251f1955261b6f54cb88bdd16 /test | |
| parent | 9d267db8fa25bbbb8d360d133402aece918624af (diff) | |
| download | emacs-cb58a3c5526c0818ae4ddb1f9e4fa41ce5c64688.tar.gz | |
* test/src/emacs-module-tests.el: Use proper outline headings.
This library already used section headings but it used just two
instead of three semicolons, making them indistinguishable from
plain comments.
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/emacs-module-tests.el | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 51b2ca0cd51..0fd8e1db49e 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -24,6 +24,7 @@ ;; module in test/data/emacs-module. ;;; Code: +;;; Prelude (require 'cl-lib) (require 'ert) @@ -48,9 +49,7 @@ (cl-defmethod emacs-module-tests--generic ((_ user-ptr)) 'user-ptr) -;; -;; Basic tests. -;; +;;; Basic tests (ert-deftest mod-test-sum-test () (should (= (mod-test-sum 1 2) 3)) @@ -103,9 +102,7 @@ changes." ">" eos) (prin1-to-string func))))) -;; -;; Non-local exists (throw, signal). -;; +;;; Non-local exists (throw, signal) (ert-deftest mod-test-non-local-exit-signal-test () (should-error (mod-test-signal)) @@ -142,9 +139,7 @@ changes." (should (equal (mod-test-non-local-exit-funcall (lambda () (throw 'tag 32))) '(throw tag 32)))) -;; -;; String tests. -;; +;;; String tests (defun multiply-string (s n) "Return N copies of S concatenated together." @@ -168,9 +163,7 @@ changes." (ert-deftest mod-test-string-a-to-b-test () (should (string= (mod-test-string-a-to-b "aaa") "bbb"))) -;; -;; User-pointer tests. -;; +;;; User-pointer tests (ert-deftest mod-test-userptr-fun-test () (let* ((n 42) @@ -184,9 +177,7 @@ changes." ;; TODO: try to test finalizer -;; -;; Vector tests. -;; +;;; Vector tests (ert-deftest mod-test-vector-test () (dolist (s '(2 10 100 1000)) |