diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-26 01:53:56 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-26 17:53:23 +0200 |
| commit | 8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b (patch) | |
| tree | 6daad156b285e27c95d4afb3f7d0e4773032961b /test/lisp/emacs-lisp/testcover-resources | |
| parent | 4cc43449432427817400bad12e7ef722e6591a21 (diff) | |
| download | emacs-8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b.tar.gz emacs-8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b.tar.bz2 emacs-8bb28e740dd2cc8058d7833dd60b0ef9a8765c1b.zip | |
; Minor stylistic checkdoc fixes in test/**/*.el
Diffstat (limited to 'test/lisp/emacs-lisp/testcover-resources')
| -rw-r--r-- | test/lisp/emacs-lisp/testcover-resources/testcases.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lisp/emacs-lisp/testcover-resources/testcases.el b/test/lisp/emacs-lisp/testcover-resources/testcases.el index 7ced257c6f9..29094526d7e 100644 --- a/test/lisp/emacs-lisp/testcover-resources/testcases.el +++ b/test/lisp/emacs-lisp/testcover-resources/testcases.el @@ -77,12 +77,12 @@ "Testcover doesn't prevent testing of defcustom values." ;; ==== (defgroup testcover-testcase nil - "Test case for testcover" + "Test case for testcover." :group 'lisp :prefix "testcover-testcase-" :version "26.0") (defcustom testcover-testcase-flag t - "Test value used by testcover-tests.el" + "Test value used by testcover-tests.el." :type 'boolean :group 'testcover-testcase) (defun testcover-testcase-get-flag () @@ -111,7 +111,7 @@ "Wrapping a form with noreturn prevents splotching." ;; ==== (defun testcover-testcase-cancel (spacecraft) - (error "no destination for %s" spacecraft)) + (error "No destination for %s" spacecraft)) (defun testcover-testcase-launch (spacecraft planet) (if (null planet) (noreturn (testcover-testcase-cancel spacecraft%%%)) @@ -220,7 +220,7 @@ (defun testcover-testcase-cc (arg) (condition-case nil (if (null arg%%%)%%% - (error "foo") + (error "Foo") "0")!!! (error nil))) (should-not (testcover-testcase-cc nil)) @@ -510,4 +510,4 @@ regarding the odd-looking coverage result for the quoted form." (testcover-testcase-cyc2 1 2) (testcover-testcase-cyc2 1 4) -;; testcases.el ends here. +;;; testcases.el ends here |