bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#42397: [PATCH 10/14] * test/src/emacs-module-tests.el: Use proper ou


From: Jonas Bernoulli
Subject: bug#42397: [PATCH 10/14] * test/src/emacs-module-tests.el: Use proper outline headings.
Date: Thu, 16 Jul 2020 16:54:52 +0200

This library already used section headings but it used just two
instead of three semicolons, making them indistinguishable from
plain comments.
---
 test/src/emacs-module-tests.el | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index 411b4505da..905a0ae546 100644
--- a/test/src/emacs-module-tests.el
+++ b/test/src/emacs-module-tests.el
@@ -48,9 +48,7 @@ emacs-module-tests--generic
 (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 +101,7 @@ module-function-object
                  ">" 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 +138,7 @@ mod-test-non-local-exit-funcall-throw
   (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."
@@ -165,9 +159,7 @@ mod-test-globref-free-test
 (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)
@@ -181,9 +173,7 @@ mod-test-userptr-fun-test
 
 ;; TODO: try to test finalizer
 
-;;
-;; Vector tests.
-;;
+;;; Vector tests.
 
 (ert-deftest mod-test-vector-test ()
   (dolist (s '(2 10 100 1000))
-- 
2.26.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]