procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/src/emacs-module-tests.el: Use proper outline headings.

Browse source 
This library already used section headings but it used just two
instead of three semicolons, making them indistinguishable from
plain comments.
This commit is contained in:
Jonas Bernoulli 2020-04-20 23:32:19 +02:00
parent 9d267db8fa
commit cb58a3c552
1 changed files with 6 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
test/src/emacs-module-tests.el
View file

@ -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))