Hello! I have another round of fixing warnings in the tests. I've not fixed all the warnings, but now using flymake should be a little better.
I'm not sure if I'll do this again. I might just live with the remaining warnings. We shall see. - compile warnings - before: 95 - after: 21 - checkdoc warnings - before: 230 - after: 33 Tests pass on emacs 30.2, 29, and 28. Tests pass with TZ set to UTC, Europe/Istanbul, and America/New_York.
>From ffa356f694cc0411307f6035d1c9e5edaba2e055 Mon Sep 17 00:00:00 2001 From: Morgan Smith <[email protected]> Date: Fri, 27 Feb 2026 23:06:21 -0500 Subject: [PATCH 1/4] Testing: Add missing requires * testing/lisp/test-ob-C.el: Require "ob-C". * testing/lisp/test-ob-csharp.el: Require "ob-csharp". * testing/lisp/test-ob-exp.el: Require "org-element" and "ox". * testing/lisp/test-ob-java.el: Require "org-lint". * testing/lisp/test-ob-lua.el: Require "ob-lua". * testing/lisp/test-ob-maxima.el: Require "ob-maxima". * testing/lisp/test-ob-python.el: Require "ob-python". * testing/lisp/test-ob-scheme.el: Require "ob-scheme". * testing/lisp/test-ob-shell.el: Require "ob-shell". --- testing/lisp/test-ob-C.el | 2 ++ testing/lisp/test-ob-csharp.el | 1 + testing/lisp/test-ob-exp.el | 2 ++ testing/lisp/test-ob-java.el | 2 ++ testing/lisp/test-ob-lua.el | 2 ++ testing/lisp/test-ob-maxima.el | 2 ++ testing/lisp/test-ob-python.el | 2 ++ testing/lisp/test-ob-scheme.el | 2 ++ testing/lisp/test-ob-shell.el | 2 ++ 9 files changed, 17 insertions(+) diff --git a/testing/lisp/test-ob-C.el b/testing/lisp/test-ob-C.el index 5399aed12..f2a0b7a3c 100644 --- a/testing/lisp/test-ob-C.el +++ b/testing/lisp/test-ob-C.el @@ -22,6 +22,8 @@ (unless (featurep 'ob-C) (signal 'missing-test-dependency '("Support for C code blocks"))) +(require 'ob-C) + (ert-deftest ob-C/simple-program () "Hello world program." (if (executable-find org-babel-C++-compiler) diff --git a/testing/lisp/test-ob-csharp.el b/testing/lisp/test-ob-csharp.el index afcfae38d..c0a52d67a 100644 --- a/testing/lisp/test-ob-csharp.el +++ b/testing/lisp/test-ob-csharp.el @@ -23,6 +23,7 @@ (signal 'missing-test-dependency '("Support for C# code blocks"))) (require 'ob-core) +(require 'ob-csharp) (org-test-for-executable org-babel-csharp-compiler) diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 1706d8381..0e1587b06 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -26,6 +26,8 @@ (require 'ob-exp) (require 'org-src) +(require 'org-element) +(require 'ox) (require 'org-test "../testing/org-test") (defmacro org-test-with-expanded-babel-code (&rest body) diff --git a/testing/lisp/test-ob-java.el b/testing/lisp/test-ob-java.el index 4dafa29b6..aa7bc8eaf 100644 --- a/testing/lisp/test-ob-java.el +++ b/testing/lisp/test-ob-java.el @@ -29,6 +29,8 @@ (unless (featurep 'ob-java) (signal 'missing-test-dependency '("Support for java code blocks"))) +(require 'org-lint) + ;;; No Java required (ert-deftest ob-java/lint-header-args-buffer () diff --git a/testing/lisp/test-ob-lua.el b/testing/lisp/test-ob-lua.el index 2e19c4a3d..601e0baa0 100644 --- a/testing/lisp/test-ob-lua.el +++ b/testing/lisp/test-ob-lua.el @@ -22,6 +22,8 @@ (unless (featurep 'ob-lua) (signal 'missing-test-dependency '("Support for Lua code blocks"))) +(require 'ob-lua) + (ert-deftest test-ob-lua/simple-value () "Test associative array return by value." (should diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index 37ddb2f89..878cf23a7 100644 --- a/testing/lisp/test-ob-maxima.el +++ b/testing/lisp/test-ob-maxima.el @@ -22,6 +22,8 @@ (unless (featurep 'ob-maxima) (signal 'missing-test-dependency '("Support for Maxima code blocks"))) +(require 'ob-maxima) + (defmacro ob-maxima--without-rc (&rest body) "Run body arranging maxima calls to ignore init file." (declare (debug (body))) diff --git a/testing/lisp/test-ob-python.el b/testing/lisp/test-ob-python.el index b770d1a90..b52b92f41 100644 --- a/testing/lisp/test-ob-python.el +++ b/testing/lisp/test-ob-python.el @@ -24,6 +24,8 @@ (unless (featurep 'ob-python) (signal 'missing-test-dependency '("Support for Python code blocks"))) +(require 'ob-python) + (ert-deftest test-ob-python/colnames-yes-header-argument () (should (equal '(("col") hline ("a") ("b")) diff --git a/testing/lisp/test-ob-scheme.el b/testing/lisp/test-ob-scheme.el index c6a1ddccc..9f3ef3465 100644 --- a/testing/lisp/test-ob-scheme.el +++ b/testing/lisp/test-ob-scheme.el @@ -30,6 +30,8 @@ (unless (version<= "27.1" emacs-version) (signal 'missing-test-dependency '("Geiser required for Scheme code blocks needs Emacs >=27.1"))) +(require 'ob-scheme) + (ert-deftest test-ob-scheme/tables () "Test table output." (should diff --git a/testing/lisp/test-ob-shell.el b/testing/lisp/test-ob-shell.el index 49b232342..feecc4206 100644 --- a/testing/lisp/test-ob-shell.el +++ b/testing/lisp/test-ob-shell.el @@ -34,6 +34,8 @@ (org-test-for-executable "sh") +(require 'ob-shell) + ;;; Code: (ert-deftest test-ob-shell/dont-insert-spaces-on-expanded-bodies () base-commit: 13b24185576b4063021378cf8c77577bb61c1c31 -- 2.52.0
>From 6a263cbef84a1b6712e770110fd732414a24fcfc Mon Sep 17 00:00:00 2001 From: Morgan Smith <[email protected]> Date: Thu, 12 Mar 2026 14:25:54 -0400 Subject: [PATCH 2/4] Testing: Add missing defvar's and declare-function's * testing/lisp/test-ob-lilypond.el: defvar org-babel-lilypond-here. * testing/lisp/test-ob-tangle.el: defvar org-capture-templates. * testing/lisp/test-oc-basic.el: defvar org-export-show-temporary-export-buffer. * testing/lisp/test-ol.el: declare-function org-element-link-parser. * testing/lisp/test-org-src.el: defvar nxml-mode-syntax-table. --- testing/lisp/test-ob-lilypond.el | 2 ++ testing/lisp/test-ob-tangle.el | 2 ++ testing/lisp/test-oc-basic.el | 2 ++ testing/lisp/test-ol.el | 2 ++ testing/lisp/test-org-src.el | 2 ++ 5 files changed, 10 insertions(+) diff --git a/testing/lisp/test-ob-lilypond.el b/testing/lisp/test-ob-lilypond.el index 49a61fcab..ccb2d8ed7 100644 --- a/testing/lisp/test-ob-lilypond.el +++ b/testing/lisp/test-ob-lilypond.el @@ -21,6 +21,8 @@ ;;; Code: (require 'ob-lilypond) +(defvar org-babel-lilypond-here) + (with-current-buffer (get-buffer-create "test-ob-lilypond.el") (setq org-babel-lilypond-here (file-name-directory diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el index a65b1f758..da5e8416d 100644 --- a/testing/lisp/test-ob-tangle.el +++ b/testing/lisp/test-ob-tangle.el @@ -29,6 +29,8 @@ (require 'ob-tangle) (require 'org) +(defvar org-capture-templates) + ;; TODO ;; (ert-deftest ob-tangle/noweb-on-tangle () ;; "Noweb header arguments tangle correctly. diff --git a/testing/lisp/test-oc-basic.el b/testing/lisp/test-oc-basic.el index b7510dc66..e12e05724 100644 --- a/testing/lisp/test-oc-basic.el +++ b/testing/lisp/test-oc-basic.el @@ -25,6 +25,8 @@ (require 'oc-basic) +(defvar org-export-show-temporary-export-buffer) + (ert-deftest test-org-cite-basic/parse-bibliography () "Test `org-cite-basic--parse-bibliography'." ;; Bibtex bibliography. diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el index 75bd537c0..199ed86fe 100644 --- a/testing/lisp/test-ol.el +++ b/testing/lisp/test-ol.el @@ -23,6 +23,8 @@ (require 'ol) (require 'org-id) +(declare-function org-element-link-parser "org-element" ()) + ;;; Decode and Encode Links diff --git a/testing/lisp/test-org-src.el b/testing/lisp/test-org-src.el index f655b7bca..ff30aa231 100644 --- a/testing/lisp/test-org-src.el +++ b/testing/lisp/test-org-src.el @@ -23,6 +23,8 @@ (require 'org-test "../testing/org-test") +(defvar nxml-mode-syntax-table) + (ert-deftest test-org-src/basic () -- 2.52.0
>From 0acb286fa3727b455c34a481f0b6eb7ec3c8c7c4 Mon Sep 17 00:00:00 2001 From: Morgan Smith <[email protected]> Date: Wed, 23 Jul 2025 14:36:00 -0400 Subject: [PATCH 3/4] Testing: Fix compile warnings * testing/lisp/test-ox-publish.el (test-org-publish/index): Don't reference `org-publish-transient-cache' which got removed in commit a701ac892. Instead call `org-publish-reset-cache'. * testing/lisp/test-org-src.el (test-org-src/footnote-references): Give global variable a prefix. * testing/lisp/test-duplicates-detector.el (test-org-tests/test-duplicates-detector-testing-find-duplicates) (test-org-tests/test-with-nested-duplicates) (test-org-tests/test-without-duplicates-1): Fix unused variable warnings. * testing/lisp/test-org-agenda.el (test-org-agenda/tags-sorting): Fix unused variable warnings. * testing/lisp/test-org-ctags.el (test-org-ctags/list-elements-equal-p): Fix unused variable warnings. * testing/lisp/test-org-element.el (test-org-element/property): Fix unused variable warnings. * testing/lisp/test-org.el (test-org/up-heading-safe): Fix unused variable warnings. * testing/lisp/test-org-attach.el (test-org-attach/dired-attach-to-next-best-subtree/1) (test-org-attach/dired-attach-to-next-best-subtree/2): Don't use interactive only functions. * testing/lisp/test-org-colview.el (test-org-colview/columns-move-row-down) (test-org-colview/columns-move-row-up) (test-org-colview/columns--move-row-stay-at-the-same-column) (test-org-colview/columns-move-row-down-with-subheading): Don't use interactive only functions. * testing/lisp/test-org-element.el (test-org-element/cache) (test-org-export/expand-include): Don't use interactive only functions. * testing/lisp/test-ob-sql.el (ob-sql/command-should-contain) (ob-sql/command-should-not-contain): Shorten docstring to fix compile time warnings. * testing/lisp/test-ox-man.el (ox-man/test-with-exported-test): Use "not-newline" instead of deprecated "any" rx construct. --- testing/lisp/test-duplicates-detector.el | 8 ++++---- testing/lisp/test-ob-sql.el | 4 ++-- testing/lisp/test-org-agenda.el | 4 ++-- testing/lisp/test-org-attach.el | 4 ++-- testing/lisp/test-org-colview.el | 8 ++++---- testing/lisp/test-org-ctags.el | 2 +- testing/lisp/test-org-element.el | 4 ++-- testing/lisp/test-org-src.el | 4 ++-- testing/lisp/test-org.el | 5 ++--- testing/lisp/test-ox-man.el | 8 ++++---- testing/lisp/test-ox-publish.el | 4 ++-- testing/lisp/test-ox.el | 2 +- 12 files changed, 28 insertions(+), 29 deletions(-) diff --git a/testing/lisp/test-duplicates-detector.el b/testing/lisp/test-duplicates-detector.el index 9850a2a0d..9840348bd 100644 --- a/testing/lisp/test-duplicates-detector.el +++ b/testing/lisp/test-duplicates-detector.el @@ -264,7 +264,7 @@ test-org-tests/test-duplicates-detector-testing-find-duplicates (ert-deftest test-org-tests/test-with-duplicates-at-root () "Test with duplicates at the root." (should (message "123")) - (format "%s" "string") + (ignore (format "%s" "string")) (should (message "123"))) @@ -273,10 +273,10 @@ test-org-tests/test-with-nested-duplicates (let ((var "string")) (should (message "123 %s" var))) - (format "%s" "string") + (ignore (format "%s" "string")) (let ((var "string")) (should (message "123 %s" var))) - (format "%s" "string")) + (ignore (format "%s" "string"))) ;;;;; Tests without duplicates @@ -291,7 +291,7 @@ test-org-tests/test-without-duplicates-1 (ert-deftest test-org-tests/test-without-duplicates-2 () "Test without duplicates. Equal `should' macros, but different nesting paths." - (let ((var "string")) + (let ((_var "string")) (should (format "123 %s" "asd"))) (+ 5 6 9) (should (format "123 %s" "asd"))) diff --git a/testing/lisp/test-ob-sql.el b/testing/lisp/test-ob-sql.el index ac8a1ccb2..695b5e23b 100644 --- a/testing/lisp/test-ob-sql.el +++ b/testing/lisp/test-ob-sql.el @@ -31,7 +31,7 @@ ob-sql/command ,@body))) (defmacro ob-sql/command-should-contain (regexp sql-block) - "Check that REGEXP is contained in the command executed when evaluating SQL-BLOCK." + "Check that REGEXP is in the command executed when evaluating SQL-BLOCK." `(let ((regexps ,(if (listp regexp) regexp `(list ,regexp))) (command (ob-sql/command (org-test-with-temp-text ,sql-block @@ -41,7 +41,7 @@ ob-sql/command-should-contain (should (string-match-p regexp command))))) (defmacro ob-sql/command-should-not-contain (regexp sql-block) - "Check that REGEXP is not contained in the command executed when evaluating SQL-BLOCK." + "Check that REGEXP is not in the command executed when evaluating SQL-BLOCK." `(let ((command (ob-sql/command (org-test-with-temp-text ,sql-block diff --git a/testing/lisp/test-org-agenda.el b/testing/lisp/test-org-agenda.el index 312104ab1..ebedcaafe 100644 --- a/testing/lisp/test-org-agenda.el +++ b/testing/lisp/test-org-agenda.el @@ -899,11 +899,11 @@ test-org-agenda/tags-sorting '("tag_b_2" "tag_b_1" "tag_a_2" "tag_a_1" "lonely" "groupless" "group_a" "blueberry") "\n")) ((or (pred (equal string-length<)) - `(,string-length<)) + `(,(pred (equal string-length<)))) (string-join '("lonely" "group_a" "tag_a_2" "tag_b_2" "tag_a_1" "tag_b_1" "groupless" "blueberry") "\n")) - (`(,string-length< org-string<) + (`(,(pred (equal string-length<)) org-string<) (string-join '("lonely" "group_a" "tag_a_1" "tag_a_2" "tag_b_1" "tag_b_2" "blueberry" "groupless") "\n")) diff --git a/testing/lisp/test-org-attach.el b/testing/lisp/test-org-attach.el index d475ecba3..6339963b6 100644 --- a/testing/lisp/test-org-attach.el +++ b/testing/lisp/test-org-attach.el @@ -127,7 +127,7 @@ test-org-attach/dired-attach-to-next-best-subtree/1 (delete-window) (switch-to-buffer org-buffer) (cl-assert (eq 'org-mode major-mode))) - (beginning-of-buffer) + (goto-char (point-min)) (search-forward "* foo") ; expectation. tag ATTACH has been appended. (cl-reduce (lambda (x y) (or x y)) @@ -160,7 +160,7 @@ test-org-attach/dired-attach-to-next-best-subtree/2 (delete-window) (switch-to-buffer org-buffer)) (cl-assert (eq 'org-mode major-mode)) - (beginning-of-buffer) + (goto-char (point-min)) (search-forward "* foo") (and (file-exists-p (concat (org-attach-dir) "/" (file-name-nondirectory a-filename))) diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el index 1595fa40d..e847b0d62 100644 --- a/testing/lisp/test-org-colview.el +++ b/testing/lisp/test-org-colview.el @@ -1110,7 +1110,7 @@ test-org-colview/columns-move-row-down ** B " (let ((org-columns-default-format "%ITEM")) (org-columns) - (next-line 1) + (forward-line 1) (org-columns-move-row-down) (buffer-substring-no-properties (point-min) (point-max))))))) @@ -1126,7 +1126,7 @@ test-org-colview/columns-move-row-up ** B " (let ((org-columns-default-format "%ITEM")) (org-columns) - (next-line 2) + (forward-line 2) (org-columns-move-row-up) (buffer-substring-no-properties (point-min) (point-max))))))) @@ -1141,7 +1141,7 @@ test-org-colview/columns--move-row-stay-at-the-same-column ** B " (org-columns) - (next-line 1) + (forward-line 1) (forward-char 2) (org-columns--move-row) (current-column))))) @@ -1161,7 +1161,7 @@ test-org-colview/columns-move-row-down-with-subheading ** B " (let ((org-columns-default-format "%ITEM")) (org-columns) - (next-line 1) + (forward-line 1) (org-columns-move-row-down) (buffer-substring-no-properties (point-min) (point-max))))))) diff --git a/testing/lisp/test-org-ctags.el b/testing/lisp/test-org-ctags.el index 4e0ee37ff..dc4223b36 100644 --- a/testing/lisp/test-org-ctags.el +++ b/testing/lisp/test-org-ctags.el @@ -115,7 +115,7 @@ test-org-ctags/list-elements-equal-p (test-org-ctags/list-elements actual indicies))) (defun test-org-ctags/list-elements-equal-explain - (expect actual indicies &rest _comments) + (_expect actual indicies &rest _comments) "`ert-eplainer' for `test-org-ctags/list-elements-equal-p'." (if (listp actual) (list diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index f1dd3c230..e0b036b75 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -211,7 +211,7 @@ test-org-element/property 'dummy `(:foo ,(org-element-deferred-create - nil (lambda (el) + nil (lambda (_el) (org-element-deferred-create nil (lambda (_) 1)))))))) (should (eq 1 (org-element-property :foo el))))) @@ -5292,7 +5292,7 @@ test-org-element/cache (org-test-with-temp-text "* H1\nP1\n<point>*H2\n" (let ((org-element-use-cache t)) (org-element-cache-map #'ignore :granularity 'element) - (backward-delete-char 1) + (delete-char 1) (org-element-type (org-element-at-point)))))) (org-test-with-temp-text "Paragraph.\n #<point> comment" (let ((org-element-use-cache t)) diff --git a/testing/lisp/test-org-src.el b/testing/lisp/test-org-src.el index ff30aa231..1f798f203 100644 --- a/testing/lisp/test-org-src.el +++ b/testing/lisp/test-org-src.el @@ -530,9 +530,9 @@ test-org-src/footnote-references (should (eq 'bar (org-test-with-temp-text "A footnote<point>[fn:1]\n[fn:1] Definition" - (setq-local foo 'bar) + (setq-local test-org-src--foo 'bar) (org-edit-special) - (prog1 foo (org-edit-src-exit)))))) + (prog1 test-org-src--foo (org-edit-src-exit)))))) ;;; Code escaping diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 51265d255..1b7d2df82 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -2455,9 +2455,8 @@ test-org/up-heading-safe (org-test-with-temp-text " Text. * Heading <point>" - (let ((pos (point))) - (should-not (org-up-heading-safe)) - (should (looking-at-p "^\\* Heading")))) + (should-not (org-up-heading-safe)) + (should (looking-at-p "^\\* Heading"))) ;; Jump from inside a heading. (org-test-with-temp-text " * H1 diff --git a/testing/lisp/test-ox-man.el b/testing/lisp/test-ox-man.el index 12f839ea8..c0d255485 100644 --- a/testing/lisp/test-ox-man.el +++ b/testing/lisp/test-ox-man.el @@ -46,20 +46,20 @@ ox-man/test-with-exported-test ;; FIXME: ox-man does not yet support passing a ;; project name. (replace-regexp-in-string - (rx bol (0+ any) + (rx bol (0+ not-newline) "style: .TH missing fourth argument; " "suggest package/project name and version" - (0+ any) eol) + (0+ not-newline) eol) "") ;; We do support date via #+DATE keyword, but it ;; is not enabled by default for historical ;; reasons. (replace-regexp-in-string - (rx bol (0+ any) + (rx bol (0+ not-newline) "style: .TH missing third argument;" " suggest document modification" " date in ISO 8601 format (YYYY-MM-DD)" - (0+ any) eol) + (0+ not-newline) eol) "") (replace-regexp-in-string "\n+" "")))))) (kill-buffer output)))) diff --git a/testing/lisp/test-ox-publish.el b/testing/lisp/test-ox-publish.el index 900035f37..a61369f76 100644 --- a/testing/lisp/test-ox-publish.el +++ b/testing/lisp/test-ox-publish.el @@ -490,9 +490,9 @@ test-org-publish/index :include ("index/file1.org" "index/file2.org")) (lambda (_)) nil t pub-dir t) ;; Pretend that a new Emacs session started as follows: - ;; Use empty transient cache. + ;; Use empty cache. ;; Touch file2.org as changed, while file1.org is skipped. - (setq org-publish-transient-cache nil) + (org-publish-reset-cache) (org-test-publish-touch (expand-file-name "index/file2.org" base)) (let ((result (org-test-publish diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index 858b8ee22..d45d9736d 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -1331,7 +1331,7 @@ test-org-export/expand-include (should (equal (with-temp-buffer - (insert-file + (insert-file-contents (expand-file-name "examples/include.org" org-test-dir)) (replace-regexp-in-string (regexp-quote "#+INCLUDE: \"include2.org\"") -- 2.52.0
>From 297edf1516ad10d7e1d5ce0b1ec5bf05caf2add0 Mon Sep 17 00:00:00 2001 From: Morgan Smith <[email protected]> Date: Thu, 12 Mar 2026 13:03:57 -0400 Subject: [PATCH 4/4] Testing: Fix many checkdoc warnings * testing/lisp/test-duplicates-detector.el: * testing/lisp/test-ob-C.el: * testing/lisp/test-ob-R.el: * testing/lisp/test-ob-awk.el: * testing/lisp/test-ob-calc.el: * testing/lisp/test-ob-clojure.el: * testing/lisp/test-ob-comint.el: * testing/lisp/test-ob-csharp.el: * testing/lisp/test-ob-emacs-lisp.el: * testing/lisp/test-ob-eshell.el: * testing/lisp/test-ob-exp.el: * testing/lisp/test-ob-fortran.el: * testing/lisp/test-ob-haskell-ghci.el: * testing/lisp/test-ob-header-arg-defaults.el |: * testing/lisp/test-ob-java.el: * testing/lisp/test-ob-julia.el: * testing/lisp/test-ob-lilypond.el: * testing/lisp/test-ob-lob.el: * testing/lisp/test-ob-lua.el: * testing/lisp/test-ob-maxima.el: * testing/lisp/test-ob-octave.el: * testing/lisp/test-ob-perl.el: * testing/lisp/test-ob-plantuml.el: * testing/lisp/test-ob-python.el: * testing/lisp/test-ob-ruby.el: * testing/lisp/test-ob-sed.el: * testing/lisp/test-ob-shell.el: * testing/lisp/test-ob-sql.el: * testing/lisp/test-ob-sqlite.el: * testing/lisp/test-ob-table.el: * testing/lisp/test-ob-tangle.el: * testing/lisp/test-ob.el: * testing/lisp/test-oc.el: * testing/lisp/test-ol-bbdb.el: * testing/lisp/test-ol.el: * testing/lisp/test-org-agenda.el: * testing/lisp/test-org-archive.el: * testing/lisp/test-org-attach-git.el: * testing/lisp/test-org-capture.el: * testing/lisp/test-org-clock.el: * testing/lisp/test-org-colview.el: * testing/lisp/test-org-ctags.el: * testing/lisp/test-org-datetree.el: * testing/lisp/test-org-duration.el: * testing/lisp/test-org-element.el: * testing/lisp/test-org-fold.el: * testing/lisp/test-org-footnote.el: * testing/lisp/test-org-habit.el: * testing/lisp/test-org-info.el: * testing/lisp/test-org-inlinetask.el: * testing/lisp/test-org-lint.el: * testing/lisp/test-org-list.el: * testing/lisp/test-org-macro.el: * testing/lisp/test-org-macs.el: * testing/lisp/test-org-num.el: * testing/lisp/test-org-pcomplete.el: * testing/lisp/test-org-protocol.el: * testing/lisp/test-org-src.el: * testing/lisp/test-org-table.el: * testing/lisp/test-org-tempo.el: * testing/lisp/test-org-timer.el: * testing/lisp/test-org.el: * testing/lisp/test-ox-html.el: * testing/lisp/test-ox-icalendar.el: * testing/lisp/test-ox-latex.el: * testing/lisp/test-ox-man.el: * testing/lisp/test-ox-md.el: * testing/lisp/test-ox-org.el: * testing/lisp/test-ox-publish.el: * testing/lisp/test-ox-texinfo.el: * testing/lisp/test-ox.el: * testing/lisp/test-property-inheritance.el: Fix many checkdoc warnings --- testing/lisp/test-duplicates-detector.el | 4 +-- testing/lisp/test-ob-C.el | 38 ++++++++++++--------- testing/lisp/test-ob-R.el | 16 +++++---- testing/lisp/test-ob-awk.el | 12 ++++--- testing/lisp/test-ob-calc.el | 4 +++ testing/lisp/test-ob-clojure.el | 6 ++-- testing/lisp/test-ob-comint.el | 4 +-- testing/lisp/test-ob-csharp.el | 4 +++ testing/lisp/test-ob-emacs-lisp.el | 6 ++-- testing/lisp/test-ob-eshell.el | 4 +-- testing/lisp/test-ob-exp.el | 4 +-- testing/lisp/test-ob-fortran.el | 28 ++++++++------- testing/lisp/test-ob-haskell-ghci.el | 2 +- testing/lisp/test-ob-header-arg-defaults.el | 4 +++ testing/lisp/test-ob-java.el | 10 ++++-- testing/lisp/test-ob-julia.el | 4 +++ testing/lisp/test-ob-lilypond.el | 4 +++ testing/lisp/test-ob-lob.el | 5 +++ testing/lisp/test-ob-lua.el | 6 +++- testing/lisp/test-ob-maxima.el | 21 +++++++----- testing/lisp/test-ob-octave.el | 22 ++++++++---- testing/lisp/test-ob-perl.el | 4 +++ testing/lisp/test-ob-plantuml.el | 4 +++ testing/lisp/test-ob-python.el | 4 +++ testing/lisp/test-ob-ruby.el | 4 +++ testing/lisp/test-ob-sed.el | 7 +++- testing/lisp/test-ob-shell.el | 16 ++++----- testing/lisp/test-ob-sql.el | 6 +++- testing/lisp/test-ob-sqlite.el | 7 +++- testing/lisp/test-ob-table.el | 4 +-- testing/lisp/test-ob-tangle.el | 2 +- testing/lisp/test-ob.el | 9 +++-- testing/lisp/test-oc.el | 4 +++ testing/lisp/test-ol-bbdb.el | 2 +- testing/lisp/test-ol.el | 4 +++ testing/lisp/test-org-agenda.el | 2 +- testing/lisp/test-org-archive.el | 4 +++ testing/lisp/test-org-attach-git.el | 4 +++ testing/lisp/test-org-capture.el | 2 +- testing/lisp/test-org-clock.el | 7 ++-- testing/lisp/test-org-colview.el | 4 +++ testing/lisp/test-org-ctags.el | 9 +++-- testing/lisp/test-org-datetree.el | 4 +++ testing/lisp/test-org-duration.el | 4 +++ testing/lisp/test-org-element.el | 6 +++- testing/lisp/test-org-fold.el | 2 ++ testing/lisp/test-org-footnote.el | 4 +++ testing/lisp/test-org-habit.el | 6 ++-- testing/lisp/test-org-info.el | 4 +++ testing/lisp/test-org-inlinetask.el | 2 +- testing/lisp/test-org-lint.el | 4 +++ testing/lisp/test-org-list.el | 4 +++ testing/lisp/test-org-macro.el | 4 +++ testing/lisp/test-org-macs.el | 6 +++- testing/lisp/test-org-num.el | 7 +++- testing/lisp/test-org-pcomplete.el | 4 +-- testing/lisp/test-org-protocol.el | 4 +++ testing/lisp/test-org-src.el | 4 +++ testing/lisp/test-org-table.el | 4 +-- testing/lisp/test-org-tempo.el | 9 +++-- testing/lisp/test-org-timer.el | 7 +++- testing/lisp/test-org.el | 16 +++++---- testing/lisp/test-ox-html.el | 32 +++++++++-------- testing/lisp/test-ox-icalendar.el | 4 +-- testing/lisp/test-ox-latex.el | 8 ++--- testing/lisp/test-ox-man.el | 4 +++ testing/lisp/test-ox-md.el | 4 +++ testing/lisp/test-ox-org.el | 6 +++- testing/lisp/test-ox-publish.el | 4 +++ testing/lisp/test-ox-texinfo.el | 7 +++- testing/lisp/test-ox.el | 7 +++- testing/lisp/test-property-inheritance.el | 4 +++ 72 files changed, 360 insertions(+), 142 deletions(-) diff --git a/testing/lisp/test-duplicates-detector.el b/testing/lisp/test-duplicates-detector.el index 9840348bd..50b3e918a 100644 --- a/testing/lisp/test-duplicates-detector.el +++ b/testing/lisp/test-duplicates-detector.el @@ -123,7 +123,7 @@ org-test-ignore-duplicate ;;;; ERT tests (ert-deftest test-org-tests/find-duplicates () - "Try to find duplicate forms and ert-deftests in FILES." + "Try to find duplicate forms and `ert-deftest's in FILES." (should-not (test-duplicates-detector--find-duplicates test-duplicates-detector-files))) @@ -131,7 +131,7 @@ test-org-tests/find-duplicates ;;;; Auxiliary functions (defun test-duplicates-detector--find-duplicates (files) - "Try to find duplicate forms and ert-deftests in FILES. + "Try to find duplicate forms and `ert-deftest's in FILES. Duplicate forms will be written to `test-duplicates-detector-duplicate-forms'. diff --git a/testing/lisp/test-ob-C.el b/testing/lisp/test-ob-C.el index f2a0b7a3c..737127b02 100644 --- a/testing/lisp/test-ob-C.el +++ b/testing/lisp/test-ob-C.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (unless (featurep 'ob-C) (signal 'missing-test-dependency '("Support for C code blocks"))) @@ -60,35 +64,35 @@ ob-D/integer-var (should (= 12 (org-babel-execute-src-block)))))) (ert-deftest ob-C/two-integer-var () - "Test of two input variables" + "Test of two input variables." (if (executable-find org-babel-C++-compiler) (org-test-at-id "fa6db330-e960-4ea2-ac67-94bb845b8577" (org-babel-next-src-block 6) (should (= 22 (org-babel-execute-src-block)))))) (ert-deftest ob-D/two-integer-var () - "Test of two input variables" + "Test of two input variables." (if (executable-find org-babel-D-compiler) (org-test-at-id "fa6db330-e960-4ea2-ac67-94bb845b8577" (org-babel-next-src-block 7) (should (= 22 (org-babel-execute-src-block)))))) (ert-deftest ob-C/string-var () - "Test of a string input variable" + "Test of a string input variable." (if (executable-find org-babel-C++-compiler) (org-test-at-id "fa6db330-e960-4ea2-ac67-94bb845b8577" (org-babel-next-src-block 8) (should (equal "word 4" (org-babel-execute-src-block)))))) (ert-deftest ob-D/string-var () - "Test of a string input variable" + "Test of a string input variable." (if (executable-find org-babel-D-compiler) (org-test-at-id "fa6db330-e960-4ea2-ac67-94bb845b8577" (org-babel-next-src-block 9) (should (equal "word 4" (org-babel-execute-src-block)))))) (ert-deftest ob-C/preprocessor () - "Test of a string variable" + "Test of a string variable." (if (executable-find org-babel-C++-compiler) (org-test-at-id "fa6db330-e960-4ea2-ac67-94bb845b8577" (org-babel-next-src-block 10) @@ -97,7 +101,7 @@ ob-C/preprocessor (ert-deftest ob-C/float-var () "Test that floats are passed without unnecessary rounding." (if (executable-find org-babel-C++-compiler) - (org-test-with-temp-text + (org-test-with-temp-text "#+source: float_var #+begin_src cpp :var x=1.123456789012345678 :includes \"<iostream>\" :results silent double y = 1.123456789012345678; @@ -106,63 +110,63 @@ ob-C/float-var (should (= 1 (org-babel-execute-src-block)))))) (ert-deftest ob-C/table () - "Test of a table output" + "Test of a table output." (if (executable-find org-babel-C++-compiler) (org-test-at-id "2df1ab83-3fa3-462a-a1f3-3aef6044a874" (org-babel-next-src-block 1) (should (equal '((1) (2)) (org-babel-execute-src-block)))))) (ert-deftest ob-D/table () - "Test of a table output" + "Test of a table output." (if (executable-find org-babel-D-compiler) (org-test-at-id "2df1ab83-3fa3-462a-a1f3-3aef6044a874" (org-babel-next-src-block 2) (should (equal '((1) (2)) (org-babel-execute-src-block)))))) (ert-deftest ob-C/list-var () - "Test of a list input variable" + "Test of a list input variable." (if (executable-find org-babel-C++-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 1) (should (string= "abcdef2" (org-babel-execute-src-block)))))) (ert-deftest ob-D/list-var () - "Test of a list input variable" + "Test of a list input variable." (if (executable-find org-babel-D-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 2) (should (string= "abcdef2" (org-babel-execute-src-block)))))) (ert-deftest ob-C/vector-var () - "Test of a vector input variable" + "Test of a vector input variable." (if (executable-find org-babel-C++-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 3) (should (equal 122 (org-babel-execute-src-block)))))) (ert-deftest ob-D/vector-var () - "Test of a vector input variable" + "Test of a vector input variable." (if (executable-find org-babel-D-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 4) (should (equal 122 (org-babel-execute-src-block)))))) (ert-deftest ob-C/list-list-var () - "Test of a list list input variable" + "Test of a list list input variable." (if (executable-find org-babel-C++-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 5) (should (equal '((1 3) (2 4)) (org-babel-execute-src-block)))))) (ert-deftest ob-D/list-list-var () - "Test of a list list input variable" + "Test of a list list input variable." (if (executable-find org-babel-D-compiler) (org-test-at-id "cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5" (org-babel-next-src-block 6) (should (equal '((1 3) (2 4)) (org-babel-execute-src-block)))))) (ert-deftest ob-C/inhomogeneous_table () - "Test inhomogeneous input table" + "Test inhomogeneous input table." (if (executable-find org-babel-C++-compiler) (org-test-at-id "e112bc2e-419a-4890-99c2-7ac4779531cc" (org-babel-next-src-block 1) @@ -178,7 +182,7 @@ ob-C/inhomogeneous_table (org-babel-execute-src-block)))))) (ert-deftest ob-D/inhomogeneous_table () - "Test inhomogeneous input table" + "Test inhomogeneous input table." (if (executable-find org-babel-D-compiler) (org-test-at-id "e112bc2e-419a-4890-99c2-7ac4779531cc" (org-babel-next-src-block 2) @@ -194,7 +198,7 @@ ob-D/inhomogeneous_table (org-babel-execute-src-block)))))) (ert-deftest ob-C/ouput-doublequotes () - "Double quotes not swallowed in raw output" + "Double quotes not swallowed in raw output." (if (executable-find org-babel-C++-compiler) (org-test-at-id "9386490b-4063-4400-842c-4a634edbedf5" (org-babel-next-src-block 1) diff --git a/testing/lisp/test-ob-R.el b/testing/lisp/test-ob-R.el index b92b3e8f1..dab714fd6 100644 --- a/testing/lisp/test-ob-R.el +++ b/testing/lisp/test-ob-R.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "R") (require 'ob-core) @@ -110,7 +114,7 @@ test-ob-R/results-file (ert-deftest test-ob-r/output-with-<> () - "make sure angle brackets are well formatted" + "Make sure angle brackets are well formatted." (let (ess-ask-for-ess-directory ess-history-file) (should (string="[1] \"<X> <Y> <!>\" [1] \"one <two> three\" @@ -127,7 +131,7 @@ test-ob-r/output-with-<> (ert-deftest test-ob-r/session-output-with->-bol () - "make sure prompt-like strings are well formatted, even when at beginning of line." + "Make sure prompt-like strings are well formatted, even when at beginning of line." (let (ess-ask-for-ess-directory ess-history-file) (should (string="abc def> <ghi" @@ -166,12 +170,12 @@ test-ob-R/output-nonprinted (should (string= "[1] 14\n[1] 2.302585\n[1] 1\n[1] 20\n[1] 0.3333333\n[1] Inf\n" (org-babel-execute-src-block)))))) (ert-deftest test-ob-r/NA-blank () - "For :results value, NAs should be empty" + "For :results value, NAs should be empty." (let (ess-ask-for-ess-directory ess-history-file) (should (equal '(("A" "B") hline ("" 1) (1 2) (1 "") (1 4) (1 4)) (org-test-with-temp-text "#+BEGIN_SRC R :results value :colnames yes data.frame(A=c(NA,1,1,1,1),B=c(1,2,NA,4,4)) -#+end_src" +#+end_src" (org-babel-execute-src-block)))))) @@ -297,7 +301,7 @@ ob-session-R-result-value ;; test for printing of (nested) list (ert-deftest ob-R-nested-list () - "List are printed as the first column of a table and nested lists are ignored" + "List are printed as the first column of a table and nested lists are ignored." (let (ess-ask-for-ess-directory ess-history-file org-confirm-babel-evaluate @@ -322,7 +326,7 @@ ob-R-nested-list text (goto-char (point-min)) (org-babel-next-src-block) - (should (progn + (should (progn (org-babel-execute-src-block) (sleep-for 0.200) (string= (concat text result) diff --git a/testing/lisp/test-ob-awk.el b/testing/lisp/test-ob-awk.el index b3a2a50fc..bc492a57a 100644 --- a/testing/lisp/test-ob-awk.el +++ b/testing/lisp/test-ob-awk.el @@ -18,31 +18,35 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "awk") (unless (featurep 'ob-awk) (signal 'missing-test-dependency '("Support for Awk code blocks"))) (ert-deftest ob-awk/input-none () - "Test with no input file" + "Test with no input file." (org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a" (org-babel-next-src-block) (should (= 42 (org-babel-execute-src-block))))) (ert-deftest ob-awk/input-src-block-1 () - "Test a code block as an input" + "Test a code block as an input." (org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a" (org-babel-next-src-block 2) (should (= 43 (org-babel-execute-src-block))))) (ert-deftest ob-awk/input-src-block-2 () - "Test a code block as an input" + "Test a code block as an input." (org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a" (org-babel-next-src-block 3) (should (= 150 (org-babel-execute-src-block))))) (ert-deftest ob-awk/tabular-input () - "Test a code block as an input" + "Test a code block as an input." (org-test-at-id "9e998b2a-3581-43fe-b26d-07d3c507b86a" (org-babel-next-src-block 4) (should (equal '(("a" "b" "c")) (org-babel-execute-src-block))))) diff --git a/testing/lisp/test-ob-calc.el b/testing/lisp/test-ob-calc.el index de6656a4e..c7ca457ae 100644 --- a/testing/lisp/test-ob-calc.el +++ b/testing/lisp/test-ob-calc.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ob-calc) diff --git a/testing/lisp/test-ob-clojure.el b/testing/lisp/test-ob-clojure.el index 8e42cf570..6ec33fb11 100644 --- a/testing/lisp/test-ob-clojure.el +++ b/testing/lisp/test-ob-clojure.el @@ -1,4 +1,4 @@ -;;; test-ob-clojure.el -*- lexical-binding: t; -*- +;;; test-ob-clojure.el --- tests for test-ob-clojure.el -*- lexical-binding: t; -*- ;; Copyright (c) 2018-2026 Free Software Foundation, Inc. ;; Authors: stardiviner @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Org tests for ob-clojure.el live here @@ -31,4 +31,4 @@ (provide 'test-ob-clojure) - ;;; test-ob-clojure.el ends here +;;; test-ob-clojure.el ends here diff --git a/testing/lisp/test-ob-comint.el b/testing/lisp/test-ob-comint.el index 8f6def8ca..7000cfb6c 100644 --- a/testing/lisp/test-ob-comint.el +++ b/testing/lisp/test-ob-comint.el @@ -1,4 +1,4 @@ -;;; test-ob-comint.el -*- lexical-binding: t; -*- +;;; test-ob-comint.el --- tests for test-ob-comint.el -*- lexical-binding: t; -*- ;; Copyright (c) 2024 Matthew Trzcinski ;; Authors: Matthew Trzcinski @@ -19,7 +19,7 @@ ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comment: +;;; Commentary: ;; See testing/README for how to run tests. diff --git a/testing/lisp/test-ob-csharp.el b/testing/lisp/test-ob-csharp.el index c0a52d67a..1e486c23f 100644 --- a/testing/lisp/test-ob-csharp.el +++ b/testing/lisp/test-ob-csharp.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (unless (featurep 'ob-csharp) diff --git a/testing/lisp/test-ob-emacs-lisp.el b/testing/lisp/test-ob-emacs-lisp.el index 5578a8a1c..015c1c7ea 100644 --- a/testing/lisp/test-ob-emacs-lisp.el +++ b/testing/lisp/test-ob-emacs-lisp.el @@ -1,4 +1,4 @@ -;;; test-ob-emacs-lisp.el -*- lexical-binding: t; -*- +;;; test-ob-emacs-lisp.el --- tests for test-ob-emacs-lisp.el -*- lexical-binding: t; -*- ;; Copyright (c) 2012-2026 Free Software Foundation, Inc. ;; Authors: Eric Schulte, Martyn Jago @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Org tests for ob-emacs-lisp.el live here @@ -182,4 +182,4 @@ ob-emacs-lisp/results (provide 'test-ob-emacs-lisp) - ;;; test-ob-emacs-lisp.el ends here +;;; test-ob-emacs-lisp.el ends here diff --git a/testing/lisp/test-ob-eshell.el b/testing/lisp/test-ob-eshell.el index 5d0da8d99..c4920c09f 100644 --- a/testing/lisp/test-ob-eshell.el +++ b/testing/lisp/test-ob-eshell.el @@ -1,4 +1,4 @@ -;;; test-ob-eshell.el -*- lexical-binding: t; -*- +;;; test-ob-eshell.el --- tests for test-ob-eshell.el -*- lexical-binding: t; -*- ;; Copyright (c) 2018 stardiviner ;; Authors: stardiviner @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comment: +;;; Commentary: ;; Template test file for Org tests diff --git a/testing/lisp/test-ob-exp.el b/testing/lisp/test-ob-exp.el index 0e1587b06..3ec63350d 100644 --- a/testing/lisp/test-ob-exp.el +++ b/testing/lisp/test-ob-exp.el @@ -1,4 +1,4 @@ -;;; test-ob-exp.el -*- lexical-binding: t; -*- +;;; test-ob-exp.el --- tests for test-ob-exp.el -*- lexical-binding: t; -*- ;; Copyright (c) 2010-2015, 2019 Eric Schulte ;; Authors: Eric Schulte @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Template test file for Org tests diff --git a/testing/lisp/test-ob-fortran.el b/testing/lisp/test-ob-fortran.el index 209a966b1..1d2fe348c 100644 --- a/testing/lisp/test-ob-fortran.el +++ b/testing/lisp/test-ob-fortran.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "gfortran") (unless (featurep 'ob-fortran) @@ -30,62 +34,62 @@ ob-fortran/simple-program (should (equal "Hello world" (org-babel-execute-src-block))))) (ert-deftest ob-fortran/fortran-var-program () - "Test a fortran variable" + "Test a fortran variable." (org-test-at-id "459384e8-1797-4f11-867e-dde0473ea7cc" (org-babel-next-src-block 2) (should (= 10 (org-babel-execute-src-block))))) (ert-deftest ob-fortran/input-var () - "Test :var" + "Test :var." (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242" (org-babel-next-src-block) (should (= 15 (org-babel-execute-src-block))))) (ert-deftest ob-fortran/preprocessor-var () - "Test preprocessed fortran" + "Test preprocessed fortran." (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242" (org-babel-next-src-block 2) (should (= 42 (org-babel-execute-src-block))))) (ert-deftest ob-fortran/character-var () - "Test string input" + "Test string input." (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242" (org-babel-next-src-block 3) (should (equal "word" (org-babel-execute-src-block))))) (ert-deftest ob-fortran/list-var () - "Test real array input" + "Test real array input." (org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465" (org-babel-next-src-block) (should (equal "1.00 2.00 3.00" (org-babel-execute-src-block))))) (ert-deftest ob-fortran/list-var-from-table () - "Test real array from a table" + "Test real array from a table." (org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465" (org-babel-next-src-block 2) (should (equal "1.00 2.00" (org-babel-execute-src-block))))) (ert-deftest ob-fortran/list-matrix-from-table1 () - "Test real matrix from a table" + "Test real matrix from a table." (org-test-at-id "3f73ab19-d25a-428d-8c26-e8c6aa933976" (org-babel-next-src-block 1) (should (= 42 (org-babel-execute-src-block))))) (ert-deftest ob-fortran/list-matrix-from-table2 () - "Test real matrix from a table" + "Test real matrix from a table." (org-test-at-id "3f73ab19-d25a-428d-8c26-e8c6aa933976" (org-babel-next-src-block 2) (should (= 42 (org-babel-execute-src-block))))) (ert-deftest ob-fortran/no-variables-with-main () - "Test :var with explicit 'program'" + "Test :var with explicit 'program'." (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f" (org-babel-next-src-block) (should-error (org-babel-execute-src-block)) :type 'error)) (ert-deftest ob-fortran/wrong-list () - "Test wrong input list" + "Test wrong input list." (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f" (org-babel-next-src-block 2) (org-babel-execute-src-block) @@ -94,7 +98,7 @@ ob-fortran/wrong-list :type 'error)) (ert-deftest ob-fortran/compiler-flags () - "Test compiler's flags" + "Test compiler's flags." (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f" (org-babel-next-src-block 3) (org-babel-execute-src-block) @@ -103,7 +107,7 @@ ob-fortran/compiler-flags :type 'error)) (ert-deftest ob-fortran/command-arguments () - "Test real array from a table" + "Test real array from a table." (org-test-at-id "2d5330ea-9934-4737-9ed6-e1d3dae2dfa4" (org-babel-next-src-block) (should (= 23 (org-babel-execute-src-block))))) diff --git a/testing/lisp/test-ob-haskell-ghci.el b/testing/lisp/test-ob-haskell-ghci.el index a50364374..70a8a842e 100644 --- a/testing/lisp/test-ob-haskell-ghci.el +++ b/testing/lisp/test-ob-haskell-ghci.el @@ -380,7 +380,7 @@ ob-haskell/not-defined-then-defined-1 (ert-deftest ob-haskell/not-defined-then-defined-1-fixed () - "Like not-defined-then-defined-1, but using the mutiline marks." + "Like not-defined-then-defined-1, but using the multiline marks." (let ((r (test-ob-haskell-ghci "" " :{ v :: Int diff --git a/testing/lisp/test-ob-header-arg-defaults.el b/testing/lisp/test-ob-header-arg-defaults.el index beb3ea5b8..c1d9fd443 100644 --- a/testing/lisp/test-ob-header-arg-defaults.el +++ b/testing/lisp/test-ob-header-arg-defaults.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (ert-deftest test-ob-header-arg-defaults/global/call () diff --git a/testing/lisp/test-ob-java.el b/testing/lisp/test-ob-java.el index aa7bc8eaf..55268c0c5 100644 --- a/testing/lisp/test-ob-java.el +++ b/testing/lisp/test-ob-java.el @@ -20,6 +20,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-test "../testing/org-test") @@ -82,8 +86,8 @@ ob-java/lint-header-args-block ; simple tests (ert-deftest ob-java/simple () - "Hello world program that writes output. Also tests that -ob-java defaults to scripting mode." + "Hello world program that writes output. +Also tests that ob-java defaults to scripting mode." (org-test-with-temp-text "#+begin_src java :dir 'nil :results silent System.out.print(42); @@ -312,7 +316,7 @@ ob-java/var-with-class-and-package (should (string= "42" (org-babel-execute-src-block))))) (ert-deftest ob-java/var-with-class-and-hanging-curlies () - "Read and write an integer variable, with class with hanging curlies." + "Read and write an integer variable, with class with hanging curly brackets." (org-test-with-temp-text "#+begin_src java :dir 'nil :var a=42 :results output silent public class Main diff --git a/testing/lisp/test-ob-julia.el b/testing/lisp/test-ob-julia.el index c0d21fbd8..62c58d5a5 100644 --- a/testing/lisp/test-ob-julia.el +++ b/testing/lisp/test-ob-julia.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "julia") (require 'ob-core) diff --git a/testing/lisp/test-ob-lilypond.el b/testing/lisp/test-ob-lilypond.el index ccb2d8ed7..76ccf95b9 100644 --- a/testing/lisp/test-ob-lilypond.el +++ b/testing/lisp/test-ob-lilypond.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ob-lilypond) diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index 680f0335a..31c20aab2 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -18,6 +18,11 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: +;; + +;;; Code: + (eval-when-compile (require 'cl-lib)) (require 'ob-lob) diff --git a/testing/lisp/test-ob-lua.el b/testing/lisp/test-ob-lua.el index 601e0baa0..2e67a254b 100644 --- a/testing/lisp/test-ob-lua.el +++ b/testing/lisp/test-ob-lua.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (unless (featurep 'ob-lua) (signal 'missing-test-dependency '("Support for Lua code blocks"))) @@ -99,7 +103,7 @@ test-ob-lua/colnames-yes-header-argument-pp (org-babel-execute-src-block))))) (ert-deftest test-ob-lua/colnames-nil-header-argument () - "Test table with `colnames' set to `nil'." + "Test table with `colnames' set to nil." (should (equal "1 = a\n2 = b" (org-test-with-temp-text diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index 878cf23a7..3ab08314a 100644 --- a/testing/lisp/test-ob-maxima.el +++ b/testing/lisp/test-ob-maxima.el @@ -18,6 +18,11 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: +;; + +;;; Code: + (org-test-for-executable "maxima") (unless (featurep 'ob-maxima) (signal 'missing-test-dependency '("Support for Maxima code blocks"))) @@ -25,7 +30,7 @@ (require 'ob-maxima) (defmacro ob-maxima--without-rc (&rest body) - "Run body arranging maxima calls to ignore init file." + "Run BODY arranging maxima calls to ignore init file." (declare (debug (body))) `(let ((org-babel-maxima--command-arguments-default (concat org-babel-maxima--command-arguments-default @@ -33,49 +38,49 @@ ob-maxima--without-rc ,@body)) (ert-deftest ob-maxima/integer-input () - "Test of integer input" + "Test of integer input." (ob-maxima--without-rc (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8" (org-babel-next-src-block) (should (equal 4 (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/string-input () - "Test of string input" + "Test of string input." (ob-maxima--without-rc (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8" (org-babel-next-src-block 2) (should (equal "- sin(x)" (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/simple-list-input () - "Test of flat list input" + "Test of flat list input." (ob-maxima--without-rc (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6" (org-babel-next-src-block) (should (equal "[1, 2, 3] " (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/list-input () - "Test of list input" + "Test of list input." (ob-maxima--without-rc (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6" (org-babel-next-src-block 2) (should (equal "[2, [2, 3], 4] " (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/table-input1 () - "Test of table input" + "Test of table input." (ob-maxima--without-rc (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43" (org-babel-next-src-block) (should (equal "[[2.0], [3.0]] " (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/table-input2 () - "Test of table input" + "Test of table input." (ob-maxima--without-rc (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43" (org-babel-next-src-block 2) (should (equal "[[2.0, 3.0]] " (org-babel-execute-src-block)))))) (ert-deftest ob-maxima/matrix-output () - "Test of table output" + "Test of table output." (ob-maxima--without-rc (org-test-at-id "cc158527-b867-4b1d-8ae0-b8c713a90fd7" (org-babel-next-src-block) diff --git a/testing/lisp/test-ob-octave.el b/testing/lisp/test-ob-octave.el index e508380e4..7cd24f645 100644 --- a/testing/lisp/test-ob-octave.el +++ b/testing/lisp/test-ob-octave.el @@ -18,6 +18,12 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + +;;; Code: + (require 'ob-core) (org-test-for-executable "octave") @@ -25,43 +31,43 @@ (signal 'missing-test-dependency '("Support for Octave code blocks"))) (ert-deftest ob-octave/input-none () - "Number output" + "Number output." (org-test-at-id "54dcd61d-cf6c-4d7a-b9e5-854953c8a753" (org-babel-next-src-block) (should (= 10 (org-babel-execute-src-block))))) (ert-deftest ob-octave/output-vector () - "Vector output" + "Vector output." (org-test-at-id "54dcd61d-cf6c-4d7a-b9e5-854953c8a753" (org-babel-next-src-block 2) (should (equal '((1 2 3 4)) (org-babel-execute-src-block))))) (ert-deftest ob-octave/input-variable () - "Input variable" + "Input variable." (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba" (org-babel-next-src-block) (should (= 42 (org-babel-execute-src-block))))) (ert-deftest ob-octave/input-array () - "Input an array" + "Input an array." (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba" (org-babel-next-src-block 2) (should (equal '((1 2 3)) (org-babel-execute-src-block))))) (ert-deftest ob-octave/input-matrix () - "Input a matrix" + "Input a matrix." (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba" (org-babel-next-src-block 3) (should (equal '((1 2) (3 4)) (org-babel-execute-src-block))))) (ert-deftest ob-octave/input-string () - "Input a string" + "Input a string." (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba" (org-babel-next-src-block 4) (should (equal "te" (org-babel-execute-src-block))))) (ert-deftest ob-octave/input-nil () - "Input elisp nil" + "Input elisp nil." (org-test-at-id "cc2d82bb-2ac0-45be-a0c8-d1463b86a3ba" (org-babel-next-src-block 5) (should (equal nil (org-babel-execute-src-block))))) @@ -136,3 +142,5 @@ ob-octave/session-multiline (should (equal "x = 1" (org-babel-execute-src-block)))))) (provide 'test-ob-octave) + +;;; test-ob-octave.el ends here diff --git a/testing/lisp/test-ob-perl.el b/testing/lisp/test-ob-perl.el index e079d09d9..e320f0110 100644 --- a/testing/lisp/test-ob-perl.el +++ b/testing/lisp/test-ob-perl.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "perl") (unless (featurep 'ob-perl) diff --git a/testing/lisp/test-ob-plantuml.el b/testing/lisp/test-ob-plantuml.el index b45d38be6..3ab5b918f 100644 --- a/testing/lisp/test-ob-plantuml.el +++ b/testing/lisp/test-ob-plantuml.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ob-plantuml) diff --git a/testing/lisp/test-ob-python.el b/testing/lisp/test-ob-python.el index b52b92f41..4142a0289 100644 --- a/testing/lisp/test-ob-python.el +++ b/testing/lisp/test-ob-python.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "python") (require 'ob-core) diff --git a/testing/lisp/test-ob-ruby.el b/testing/lisp/test-ob-ruby.el index c4d75a80f..aecc05b40 100644 --- a/testing/lisp/test-ob-ruby.el +++ b/testing/lisp/test-ob-ruby.el @@ -16,6 +16,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "ruby") (unless (featurep 'ob-ruby) diff --git a/testing/lisp/test-ob-sed.el b/testing/lisp/test-ob-sed.el index c57c79899..d32e067d3 100644 --- a/testing/lisp/test-ob-sed.el +++ b/testing/lisp/test-ob-sed.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ob-sed) @@ -59,4 +63,5 @@ ob-sed-test/cmd-line-header-argument (provide 'test-ob-sed) -;;; test-ob-sed ends here + +;;; test-ob-sed.el ends here diff --git a/testing/lisp/test-ob-shell.el b/testing/lisp/test-ob-shell.el index feecc4206..2b60a8fbf 100644 --- a/testing/lisp/test-ob-shell.el +++ b/testing/lisp/test-ob-shell.el @@ -1,4 +1,4 @@ -;;; test-ob-shell.el -*- lexical-binding: t; -*- +;;; test-ob-shell.el --- tests for test-ob-shell.el -*- lexical-binding: t; -*- ;; Copyright (c) 2010-2014, 2019 Eric Schulte ;; Authors: Eric Schulte @@ -19,7 +19,7 @@ ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comment: +;;; Commentary: ;; See testing/README for how to run tests. @@ -173,7 +173,7 @@ test-ob-shell/bash-uses-arrays "Bash sees named array as a simple indexed array. In this test, we check that the returned value is indeed only the -first item of the array, as opposed to the generic serialiation +first item of the array, as opposed to the generic serialization that will return all elements of the array as a single string." (org-test-with-temp-text "#+NAME: sample_array @@ -189,7 +189,7 @@ test-ob-shell/bash-uses-arrays (should (equal "one" (org-trim (org-babel-execute-src-block)))))) (ert-deftest test-ob-shell/generic-uses-no-assoc-arrays-simple-map () - "Generic shell: no special handing for key-value mapping table + "Generic shell: no special handing for key-value mapping table. No associative arrays for generic. The shell will see all values as a single string." @@ -227,11 +227,11 @@ test-ob-shell/generic-uses-no-assoc-arrays-3-columns (org-trim (org-babel-execute-src-block)))))) (ert-deftest test-ob-shell/bash-uses-assoc-arrays () - "Bash shell: support for associative arrays + "Bash shell: support for associative arrays. Bash will see a table that contains the first column as the 'index' of the associative array, and the second column as the -value. " +value." (skip-unless ;; Old GPLv2 BASH in macOSX does not support associative arrays. (if-let* ((bash (executable-find "bash"))) @@ -251,10 +251,10 @@ test-ob-shell/bash-uses-assoc-arrays (org-trim (org-babel-execute-src-block)))))) (ert-deftest test-ob-shell/bash-uses-assoc-arrays-with-lists () - "Bash shell: support for associative arrays with lists + "Bash shell: support for associative arrays with lists. Bash will see an associative array that contains each row as a single -string. Bash cannot handle lists in associative arrays." +string. Bash cannot handle lists in associative arrays." (skip-unless ;; Old GPLv2 BASH in macOSX does not support associative arrays. (if-let* ((bash (executable-find "bash"))) diff --git a/testing/lisp/test-ob-sql.el b/testing/lisp/test-ob-sql.el index 695b5e23b..64c54c188 100644 --- a/testing/lisp/test-ob-sql.el +++ b/testing/lisp/test-ob-sql.el @@ -18,13 +18,17 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (unless (featurep 'ob-sql) (signal 'missing-test-dependency '("Support for sql code blocks"))) (defmacro ob-sql/command (&rest body) - "Execute body and return the command that would have been executed." + "Execute BODY and return the command that would have been executed." `(cl-letf (((symbol-function 'org-babel-eval) (lambda (command &rest _) (throw 'sql-command command)))) (catch 'sql-command diff --git a/testing/lisp/test-ob-sqlite.el b/testing/lisp/test-ob-sqlite.el index 0d04643cf..88126df6c 100644 --- a/testing/lisp/test-ob-sqlite.el +++ b/testing/lisp/test-ob-sqlite.el @@ -18,13 +18,18 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "sqlite3") (unless (featurep 'ob-sqlite) (signal 'missing-test-dependency '("Support for sqlite code blocks"))) (ert-deftest ob-sqlite/table-variables-with-commas () - "Test of a table variable that contains commas. This guarantees that this code path results in a valid CSV." + "Test of a table variable that contains commas. +This guarantees that this code path results in a valid CSV." (should (equal '(("Mr Test A. Sql" "Minister for Science, Eternal Happiness, and Finance")) diff --git a/testing/lisp/test-ob-table.el b/testing/lisp/test-ob-table.el index 44c22e603..11d4a8054 100644 --- a/testing/lisp/test-ob-table.el +++ b/testing/lisp/test-ob-table.el @@ -1,4 +1,4 @@ -;;; test-ob-table.el -*- lexical-binding: t; -*- +;;; test-ob-table.el --- tests for test-ob-table.el -*- lexical-binding: t; -*- ;; Copyright (c) 2011-2014, 2019 Eric Schulte ;; Authors: Eric Schulte @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Template test file for Org tests diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el index da5e8416d..b71c32cb5 100644 --- a/testing/lisp/test-ob-tangle.el +++ b/testing/lisp/test-ob-tangle.el @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Template test file for Org tests diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el index f91681f9e..094c9ae56 100644 --- a/testing/lisp/test-ob.el +++ b/testing/lisp/test-ob.el @@ -18,6 +18,9 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: +;; + ;;; Code: (require 'ob-core) @@ -1917,7 +1920,7 @@ test-ob/file-mode (delete-file "t.sh")))))) (ert-deftest test-ob-core/dir-attach () - "Test :dir header using special 'attach value" + "Test :dir header using special 'attach value." (should (org-test-with-temp-text-in-file "* 'attach Symbol @@ -2737,7 +2740,7 @@ test-ob/demarcate-block-split-prefix-region (t (should (= ok-col (current-column))))))))) (ert-deftest test-ob/demarcate-block-split-user-errors () - "Test for `user-error's in splitting" + "Test for `user-error's in splitting." (let ((org-adapt-indentation t) (org-src-content-indentation 2) (org-src-preserve-indentation)) @@ -2860,4 +2863,4 @@ test-ob/keep-case (provide 'test-ob) -;;; test-ob ends here +;;; test-ob.el ends here diff --git a/testing/lisp/test-oc.el b/testing/lisp/test-oc.el index 2f127a511..c194ec186 100644 --- a/testing/lisp/test-oc.el +++ b/testing/lisp/test-oc.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'oc) diff --git a/testing/lisp/test-ol-bbdb.el b/testing/lisp/test-ol-bbdb.el index 5a7c50d32..82e213663 100644 --- a/testing/lisp/test-ol-bbdb.el +++ b/testing/lisp/test-ol-bbdb.el @@ -40,4 +40,4 @@ test-org-bbdb-describe-link (provide 'test-ol-bbdb) -;;; test-org-bbdb.el ends here +;;; test-ol-bbdb.el ends here diff --git a/testing/lisp/test-ol.el b/testing/lisp/test-ol.el index 199ed86fe..2403b154c 100644 --- a/testing/lisp/test-ol.el +++ b/testing/lisp/test-ol.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'cl-lib) diff --git a/testing/lisp/test-org-agenda.el b/testing/lisp/test-org-agenda.el index ebedcaafe..9af012b7d 100644 --- a/testing/lisp/test-org-agenda.el +++ b/testing/lisp/test-org-agenda.el @@ -377,7 +377,7 @@ test-org-agenda/property-timestamp (org-test-agenda--kill-all-agendas)) (ert-deftest test-org-agenda/set-priority () - "One informative line in the agenda. Check that org-agenda-priority updates the agenda." + "One informative line in the agenda. Check that org-agenda-priority updates the agenda." (cl-assert (not org-agenda-sticky) nil "precondition violation") (cl-assert (not (org-test-agenda--agenda-buffers)) nil "precondition violation") diff --git a/testing/lisp/test-org-archive.el b/testing/lisp/test-org-archive.el index 5e4ceb9b0..1e91a7287 100644 --- a/testing/lisp/test-org-archive.el +++ b/testing/lisp/test-org-archive.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-archive) diff --git a/testing/lisp/test-org-attach-git.el b/testing/lisp/test-org-attach-git.el index 6b949afb5..a65418a78 100644 --- a/testing/lisp/test-org-attach-git.el +++ b/testing/lisp/test-org-attach-git.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (org-test-for-executable "git-annex") (require 'org-attach-git) diff --git a/testing/lisp/test-org-capture.el b/testing/lisp/test-org-capture.el index 41852a0a0..80a460434 100644 --- a/testing/lisp/test-org-capture.el +++ b/testing/lisp/test-org-capture.el @@ -1084,7 +1084,7 @@ test-org-capture/template-specific-hooks (buffer-string)))))) (ert-deftest test-org-capture/org-capture-expand-olp () - "Test org-capture-expand-olp." + "Test `org-capture-expand-olp'." ;; `org-capture-expand-olp' accepts inlined outline path. (should (equal diff --git a/testing/lisp/test-org-clock.el b/testing/lisp/test-org-clock.el index 1a15938a7..034446548 100644 --- a/testing/lisp/test-org-clock.el +++ b/testing/lisp/test-org-clock.el @@ -7,7 +7,7 @@ ;; Released under the GNU General Public License version 3 ;; see: https://www.gnu.org/licenses/gpl-3.0.html -;;;; Comments +;;; Commentary: @@ -63,7 +63,7 @@ org-test-clock-create-clock "\n"))) (defun test-org-clock-clocktable-contents (options &optional initial no-move) - "Return contents of a Clock table for current buffer + "Return contents of a Clock table for current buffer. OPTIONS is a string of Clock table options. Optional argument INITIAL is a string specifying initial contents within the Clock @@ -1742,4 +1742,5 @@ test-org-clock/clocktable/inlinetask/open-clock (org-clock-cancel))))))) (provide 'test-org-clock) -;;; test-org-clock.el end here + +;;; test-org-clock.el ends here diff --git a/testing/lisp/test-org-colview.el b/testing/lisp/test-org-colview.el index e847b0d62..bbf14d0d4 100644 --- a/testing/lisp/test-org-colview.el +++ b/testing/lisp/test-org-colview.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: ;;; Column view diff --git a/testing/lisp/test-org-ctags.el b/testing/lisp/test-org-ctags.el index dc4223b36..b9695af4a 100644 --- a/testing/lisp/test-org-ctags.el +++ b/testing/lisp/test-org-ctags.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: ;; Alternative implementation for `test-org-ctags/mock-command' @@ -30,7 +34,7 @@ ;;;; Helpers: (defun test-org-ctags/mock-command (temp-file command-name) - "Define shell function COMMAND-NAME wrining arguments to TEMP-FILE." + "Define shell function COMMAND-NAME writing arguments to TEMP-FILE." ;; Failure exit code is used to prevent further `org-ctags' actions. (format "%s() { printf '%%s\\n' %s \"$@\" >%s 2>&1 ; false ; } ; %s" command-name command-name @@ -189,4 +193,5 @@ test-org-ctags/create-tags-escape (delete-directory temp-dir)))) (provide 'test-org-ctags) -;;; test-org.el ends here + +;;; test-org-ctags.el ends here diff --git a/testing/lisp/test-org-datetree.el b/testing/lisp/test-org-datetree.el index d6ba32887..6cc6449a2 100644 --- a/testing/lisp/test-org-datetree.el +++ b/testing/lisp/test-org-datetree.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-datetree) diff --git a/testing/lisp/test-org-duration.el b/testing/lisp/test-org-duration.el index 760f3207b..c4ca4aea6 100644 --- a/testing/lisp/test-org-duration.el +++ b/testing/lisp/test-org-duration.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-duration) diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index e0b036b75..71ee13522 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (eval-when-compile (require 'cl-lib)) @@ -1017,7 +1021,7 @@ test-org-element/center-block-parser ;;;; Citation (ert-deftest test-org-element/citation-parser () - "Test `citation' parser" + "Test `citation' parser." ;; Parse citations. They must contain at least a bare key. (should (eq 'citation diff --git a/testing/lisp/test-org-fold.el b/testing/lisp/test-org-fold.el index dcd5b784d..5633edb36 100644 --- a/testing/lisp/test-org-fold.el +++ b/testing/lisp/test-org-fold.el @@ -17,6 +17,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: + ;; Org folding tests. ;;; Code: diff --git a/testing/lisp/test-org-footnote.el b/testing/lisp/test-org-footnote.el index 4c300b8db..89aee0899 100644 --- a/testing/lisp/test-org-footnote.el +++ b/testing/lisp/test-org-footnote.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-test "../testing/org-test") diff --git a/testing/lisp/test-org-habit.el b/testing/lisp/test-org-habit.el index ea7f43cc0..b79bdf068 100644 --- a/testing/lisp/test-org-habit.el +++ b/testing/lisp/test-org-habit.el @@ -214,7 +214,7 @@ test-org-habit/habit (buffer-string))))))) (ert-deftest test-org-habit/graph-column () - "Test how modifiying `org-habit-graph-column' affects habits in the agenda." + "Test how modifying `org-habit-graph-column' affects habits in the agenda." (org-test-at-time "2009-10-17" (org-test-habit (dolist (org-habit-graph-column '(0 1 2 3 10 20 40 100)) @@ -234,7 +234,7 @@ test-org-habit/graph-column (buffer-string)))))))) (ert-deftest test-org-habit/preceding-days () - "Test how modifiying `org-habit-preceding-days' affects habits in the agenda." + "Test how modifying `org-habit-preceding-days' affects habits in the agenda." (org-test-at-time "2009-10-17" (org-test-habit (dolist (org-habit-preceding-days '(0 1 2 3 10 20 40 100)) @@ -255,7 +255,7 @@ test-org-habit/preceding-days (buffer-substring (+ 1 org-habit-graph-column) (point-max))))))))) (ert-deftest test-org-habit/following-days () - "Test how modifiying `org-habit-following-days' affects habits in the agenda." + "Test how modifying `org-habit-following-days' affects habits in the agenda." ;; Avoid DST when TZ="America/New_York". See `test-org-habit/dst'. (org-test-with-timezone "UTC0" (org-test-at-time "2009-10-17" diff --git a/testing/lisp/test-org-info.el b/testing/lisp/test-org-info.el index 55627cbef..75dbc774d 100644 --- a/testing/lisp/test-org-info.el +++ b/testing/lisp/test-org-info.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ol-info) diff --git a/testing/lisp/test-org-inlinetask.el b/testing/lisp/test-org-inlinetask.el index fd2a62bd8..4670af57a 100644 --- a/testing/lisp/test-org-inlinetask.el +++ b/testing/lisp/test-org-inlinetask.el @@ -16,7 +16,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: ;; Tests for org-inlinetask.el. diff --git a/testing/lisp/test-org-lint.el b/testing/lisp/test-org-lint.el index a2c7a06e6..9c2e5bf7a 100644 --- a/testing/lisp/test-org-lint.el +++ b/testing/lisp/test-org-lint.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-footnote) diff --git a/testing/lisp/test-org-list.el b/testing/lisp/test-org-list.el index 5f069dee0..ae99f7cc0 100644 --- a/testing/lisp/test-org-list.el +++ b/testing/lisp/test-org-list.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-list) diff --git a/testing/lisp/test-org-macro.el b/testing/lisp/test-org-macro.el index cb98f42e8..69b8f5c09 100644 --- a/testing/lisp/test-org-macro.el +++ b/testing/lisp/test-org-macro.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: diff --git a/testing/lisp/test-org-macs.el b/testing/lisp/test-org-macs.el index dde1dccff..bfd2b62ea 100644 --- a/testing/lisp/test-org-macs.el +++ b/testing/lisp/test-org-macs.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: @@ -110,7 +114,7 @@ test-org/in-regexp ;;; Template (ert-deftest test-org/fill-template () - "Test `org-fill-template'" + "Test `org-fill-template'." (should (string= "working" (org-fill-template "%var-long" diff --git a/testing/lisp/test-org-num.el b/testing/lisp/test-org-num.el index 02883aadd..70b03a7d8 100644 --- a/testing/lisp/test-org-num.el +++ b/testing/lisp/test-org-num.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-num) @@ -325,4 +329,5 @@ test-org-num/update #'string-lessp)))))) (provide 'test-org-num) -;;; org-test-num.el ends here + +;;; test-org-num.el ends here diff --git a/testing/lisp/test-org-pcomplete.el b/testing/lisp/test-org-pcomplete.el index d92520b77..1a90c43b8 100644 --- a/testing/lisp/test-org-pcomplete.el +++ b/testing/lisp/test-org-pcomplete.el @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;; Comments: +;;; Commentary: @@ -93,7 +93,7 @@ test-org-pcomplete/src-block (buffer-string))))) (ert-deftest test-org-pcomplete/link () - "Test link completion" + "Test link completion." (should (equal "[[org:" (org-test-with-temp-text "[[o<point>" diff --git a/testing/lisp/test-org-protocol.el b/testing/lisp/test-org-protocol.el index d31940d3e..90a8869d6 100644 --- a/testing/lisp/test-org-protocol.el +++ b/testing/lisp/test-org-protocol.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'cl-lib) diff --git a/testing/lisp/test-org-src.el b/testing/lisp/test-org-src.el index 1f798f203..67125fd3c 100644 --- a/testing/lisp/test-org-src.el +++ b/testing/lisp/test-org-src.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-test "../testing/org-test") diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el index cb52c56de..2d111ae7e 100644 --- a/testing/lisp/test-org-table.el +++ b/testing/lisp/test-org-table.el @@ -18,7 +18,7 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -;;;; Comments: +;;; Commentary: ;; Template test file for Org tests. Many tests are also a howto ;; example collection as a user documentation, more or less all those @@ -3173,7 +3173,7 @@ test-org-table/toggle-column-width (overlays-in (point-min) (point-max))))) (ert-deftest test-org-table/shrunk-columns () - "Test behaviour of shrunk column." + "Test behavior of shrunk column." ;; Edition automatically expands a shrunk column. (should-not (org-test-with-temp-text "| <point>a |" diff --git a/testing/lisp/test-org-tempo.el b/testing/lisp/test-org-tempo.el index 800fef234..324445062 100644 --- a/testing/lisp/test-org-tempo.el +++ b/testing/lisp/test-org-tempo.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-tempo) @@ -83,7 +87,7 @@ test-org-tempo/space-first-line '("s" "E" "L"))))) (ert-deftest test-org-tempo/cursor-placement () - "Test the placement of the cursor after tempo expand" + "Test the placement of the cursor after tempo expand." ;; Normal blocks place point "inside" block. (should (eq (org-test-with-temp-text "<l<point>" @@ -113,4 +117,5 @@ test-org-tempo/add-new-templates (assoc "<N" org-tempo-tags)))) (provide 'test-org-tempo) -;;; test-org-tempo.el end here + +;;; test-org-tempo.el ends here diff --git a/testing/lisp/test-org-timer.el b/testing/lisp/test-org-timer.el index 1ec5afb04..beba53cfd 100644 --- a/testing/lisp/test-org-timer.el +++ b/testing/lisp/test-org-timer.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (eval-when-compile (require 'cl-lib)) @@ -298,4 +302,5 @@ test-org-timer/set-timer-from-effort-prop (provide 'test-org-timer) -;;; test-org-timer.el end here + +;;; test-org-timer.el ends here diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 1b7d2df82..b31e0e5c1 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -18,6 +18,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: + ;; Template test file for Org tests ;;; Code: @@ -114,7 +116,7 @@ test-org/toggle-comment (org-test-with-temp-text "" (org-toggle-comment))))) (ert-deftest test-org/comment-dwim () - "Test `comment-dwim' behaviour in an Org buffer." + "Test `comment-dwim' behavior in an Org buffer." ;; No region selected, no comment on current line and line not ;; empty: insert comment on line above. (should @@ -228,7 +230,7 @@ test-org/comment-dwim ;;; Date and time analysis (ert-deftest test-org/org-encode-time () - "Test various ways to call `org-encode-time'" + "Test various ways to call `org-encode-time'." (cl-flet ((test-org-encode-time (input expected &optional (time-format-string "%F %T") zone) (should (string-equal @@ -884,7 +886,7 @@ test-org/fill-paragraph (buffer-string)))))) (ert-deftest test-org/fill-region () - "Test `fill-region' behaviour." + "Test `fill-region' behavior." ;; fill-region should fill every item of a list (should (equal "\n- 2345678\n 9\n- 2345678\n 9" @@ -4487,7 +4489,7 @@ test-org/end-of-meta-data (looking-at "Contents")))) (ert-deftest test-org/end-of-subtree () - "Test `org-end-of-subtree' specifictions." + "Test `org-end-of-subtree' specifications." ;; Simple call with no arguments. (org-test-with-temp-text " @@ -6446,12 +6448,12 @@ test-org/at-planning-p ;; Correctly find planning attached to inlinetasks. (when (featurep 'org-inlinetask) (should - (let ((org-inlinetask-min-level 3)) + (let ((org-inlinetask-min-level 3)) (org-test-with-temp-text "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>\n*** END" (org-at-planning-p)))) (should-not - (let ((org-inlinetask-min-level 3)) + (let ((org-inlinetask-min-level 3)) (org-test-with-temp-text "*** Inlinetask\n<point>DEADLINE: <2014-03-04 tue.>" (org-at-planning-p)))) @@ -8532,7 +8534,7 @@ test-org/set-tags (overlays-at (point))))) (ert-deftest test-org/set-tags-command () - "Test `org-set-tags-command' specifications" + "Test `org-set-tags-command' specifications." ;; Set tags at current headline. (should (equal "* H1 :foo:" diff --git a/testing/lisp/test-ox-html.el b/testing/lisp/test-ox-html.el index 04d7850ad..82e11f472 100644 --- a/testing/lisp/test-ox-html.el +++ b/testing/lisp/test-ox-html.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ox-html) @@ -818,7 +822,7 @@ ox-html/mathjax-legacy-line-breaks-message-in-buffer ;;; Rendering checkboxes (ert-deftest ox-html/checkbox-ascii () - "Test ascii checkbox rendering" + "Test ascii checkbox rendering." (skip-unless (libxml-available-p)) (should (equal @@ -850,7 +854,7 @@ ox-html/checkbox-ascii (libxml-parse-html-region (point-min) (point-max)))))))) (ert-deftest ox-html/checkbox-html () - "Test HTML checkbox rendering" + "Test HTML checkbox rendering." (skip-unless (libxml-available-p)) (should (equal @@ -874,7 +878,7 @@ ox-html/checkbox-html (libxml-parse-xml-region (point-min) (point-max)))))))) (ert-deftest ox-html/checkbox-unicode () - "Test HTML checkbox rendering" + "Test HTML checkbox rendering." (skip-unless (libxml-available-p)) (should (equal @@ -898,7 +902,7 @@ ox-html/checkbox-unicode ;;; Rendering Timestamps (ert-deftest ox-html/plain-timestamps () - "Test rendering of timestamps (outside of clock/planning)" + "Test rendering of timestamps (outside of clock/planning)." (org-test-with-temp-text " - [2025-01-31 Fri] - [2025-01-31 Fri 14:00] @@ -919,7 +923,7 @@ ox-html/plain-timestamps "<span class=\"timestamp\">[2025-02-17 Mon 17:00]–[2025-02-17 Mon 19:00]</span>")))))) (ert-deftest ox-html/clock () - "Test rendering of clock elements" + "Test rendering of clock elements." (org-test-with-temp-text " * Test :LOGBOOK: @@ -938,7 +942,7 @@ ox-html/clock nil t)))))) (ert-deftest ox-html/planning () - "Test rendering of timestamps in planning elements" + "Test rendering of timestamps in planning elements." (org-test-with-temp-text " * Some Item SCHEDULED: <2025-03-26 Wed> DEADLINE: <2025-03-27 Thu 13:00> CLOSED: [2025-03-25 Tue 19:09] @@ -955,7 +959,7 @@ ox-html/planning "<span class=\"timestamp-kwd\">SCHEDULED:</span> <span class=\"timestamp\"><2025-03-26 Wed> </span>")))))) (ert-deftest ox-html/html5-fancy-timestamps () - "Test rendering of timestamps with fancy HTML5 enabled" + "Test rendering of timestamps with fancy HTML5 enabled." (org-test-with-temp-text " [2025-06-25 Wed] <2025-06-25 Wed 19:10> @@ -976,7 +980,7 @@ ox-html/html5-fancy-timestamps ;;; Postamble Format (ert-deftest ox-html/postamble-default () - "Test default postamble" + "Test default postamble." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -988,7 +992,7 @@ ox-html/postamble-default (ert-deftest ox-html/postamble-custom () - "Test custom postamble" + "Test custom postamble." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -1000,7 +1004,7 @@ ox-html/postamble-custom (should (= 1 (how-many "Foobar"))))))) (ert-deftest ox-html/postamble-custom-format () - "Test a html-postamble option (not -format) containing a format string" + "Test a html-postamble option (not -format) containing a format string." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -1013,7 +1017,7 @@ ox-html/postamble-custom-format (should (= 1 (how-many "Author=Madame Orange"))))))) (ert-deftest ox-html/postamble-none () - "Test no postamble" + "Test no postamble." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -1041,7 +1045,7 @@ ox-html/postamble-format-wrong-config (should (= 0 (how-many "Foobar"))))))) (ert-deftest ox-html/postamble-format-proper-config () - "Test a html-postamble-format option which is just a string" + "Test a html-postamble-format option which is just a string." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -1054,7 +1058,7 @@ ox-html/postamble-format-proper-config (should (= 1 (how-many "Foobar"))))))) (ert-deftest ox-html/postamble-format-conflict () - "Test conflicting postamble and postamble-format configs" + "Test conflicting postamble and postamble-format configs." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) @@ -1068,7 +1072,7 @@ ox-html/postamble-format-conflict (should (= 1 (how-many "Regular postamble"))))))) (ert-deftest ox-html/postamble-format-author () - "Test a html-postamble-format option containing the author" + "Test a html-postamble-format option containing the author." (org-test-with-temp-text "Test, hi" (let ((export-buffer "*Test HTML Export*") (org-export-show-temporary-export-buffer nil)) diff --git a/testing/lisp/test-ox-icalendar.el b/testing/lisp/test-ox-icalendar.el index 8c0ab6377..31d7fe8b2 100644 --- a/testing/lisp/test-ox-icalendar.el +++ b/testing/lisp/test-ox-icalendar.el @@ -129,7 +129,7 @@ test-ox-icalendar/warn-unsupported-repeater (delete-file tmp-ics)))))))) (ert-deftest test-ox-icalendar/diary-timestamp () - "Test icalendar export of diary timestamps." + "Test iCalendar export of diary timestamps." (let* ((tmp-ics (org-test-with-temp-text-in-file "* First Sunday of the month <%%(diary-float t 0 1)>" @@ -144,7 +144,7 @@ test-ox-icalendar/diary-timestamp (when (file-exists-p tmp-ics) (delete-file tmp-ics))))) (ert-deftest test-ox-icalendar/exclude-diary-timestamp () - "Test icalendar exclude of diary timestamps." + "Test iCalendar exclude of diary timestamps." (let* ((org-icalendar-with-timestamps 'active-exclude-diary) (tmp-ics (org-test-with-temp-text-in-file "* Test entry with 2 timestamps diff --git a/testing/lisp/test-ox-latex.el b/testing/lisp/test-ox-latex.el index 7e82cb789..2c3b8f3bf 100644 --- a/testing/lisp/test-ox-latex.el +++ b/testing/lisp/test-ox-latex.el @@ -183,7 +183,7 @@ test-ox-latex/inline-image "\\href{https://orgmode.org/worg/images/orgmode/org-mode-unicorn.svg}{\\includegraphics[width=.9\\linewidth]{/wallpaper.png}}";)))) (ert-deftest test-ox-latex/num-t () - "Test toc treatment for fixed num:t" + "Test toc treatment for fixed num:t." (org-test-with-exported-text 'latex "#+TITLE: num: fix @@ -241,7 +241,7 @@ test-ox-latex/num-t \\end{document}")))) (ert-deftest test-ox-latex/new-toc-as-org () - "test toc treatment with `org-latex-toc-include-unnumbered' set to `t'" + "Test toc treatment with `org-latex-toc-include-unnumbered' set to t." (let ((org-latex-toc-include-unnumbered t)) (org-test-with-exported-text 'latex "#+TITLE: num: fix @@ -357,7 +357,7 @@ test-ox-latex/use-sans-override (should (search-forward "\\begin{document}" nil t))))) (ert-deftest test-ox-latex/latex-class-pre () - "Test #+LATEX_CLASS_PRE" + "Test #+LATEX_CLASS_PRE." (org-test-with-exported-text 'latex "#+LATEX_CLASS_PRE: \\PassOptionsToPackage{dvipsnames}{xcolor} #+TITLE: Test prepending LaTeX before the preamble @@ -373,7 +373,7 @@ test-ox-latex/latex-class-pre ;; And after this (should (search-forward "\\begin{document}" nil t)))) (ert-deftest test-ox-latex/latex-default-example-with-options () - "Test #+ATTR_LATEX: :options with custom environment" + "Test #+ATTR_LATEX: :options with custom environment." (let ((org-latex-default-example-environment "Verbatim")) (org-test-with-exported-text 'latex diff --git a/testing/lisp/test-ox-man.el b/testing/lisp/test-ox-man.el index c0d255485..5b21a8216 100644 --- a/testing/lisp/test-ox-man.el +++ b/testing/lisp/test-ox-man.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ox-man) diff --git a/testing/lisp/test-ox-md.el b/testing/lisp/test-ox-md.el index 99548bb3f..3f6ffc05a 100644 --- a/testing/lisp/test-ox-md.el +++ b/testing/lisp/test-ox-md.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ox-md) diff --git a/testing/lisp/test-ox-org.el b/testing/lisp/test-ox-org.el index a56a1a2af..08a5f989c 100644 --- a/testing/lisp/test-ox-org.el +++ b/testing/lisp/test-ox-org.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'ox-org) @@ -41,4 +45,4 @@ ox-org/honor-export-snippets (provide 'test-ox-org) -;; test-ox-org.el ends here +;;; test-ox-org.el ends here diff --git a/testing/lisp/test-ox-publish.el b/testing/lisp/test-ox-publish.el index a61369f76..b6e7bfef2 100644 --- a/testing/lisp/test-ox-publish.el +++ b/testing/lisp/test-ox-publish.el @@ -17,6 +17,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'org-test "../testing/org-test") diff --git a/testing/lisp/test-ox-texinfo.el b/testing/lisp/test-ox-texinfo.el index 57175b4be..4ba9825b0 100644 --- a/testing/lisp/test-ox-texinfo.el +++ b/testing/lisp/test-ox-texinfo.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'cl-lib) @@ -676,4 +680,5 @@ test-ox-texinfo/inlinetask-priorities )))))) (provide 'test-ox-texinfo) -;;; test-ox-texinfo.el end here + +;;; test-ox-texinfo.el ends here diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el index d45d9736d..fcaab4fbe 100644 --- a/testing/lisp/test-ox.el +++ b/testing/lisp/test-ox.el @@ -19,6 +19,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (require 'cl-lib) @@ -5417,4 +5421,5 @@ test-org-export/get-previous-element (provide 'test-ox) -;;; test-org-export.el end here + +;;; test-ox.el ends here diff --git a/testing/lisp/test-property-inheritance.el b/testing/lisp/test-property-inheritance.el index c8976d6cc..b7aede854 100644 --- a/testing/lisp/test-property-inheritance.el +++ b/testing/lisp/test-property-inheritance.el @@ -18,6 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: +;; + ;;; Code: (defmacro test-org-in-property-buffer (&rest body) `(with-temp-buffer -- 2.52.0
![https://orgmode.org/worg/images/orgmode/org-mode-unicorn.svg}{\\includegraphics[width=.9\\linewidth]{/wallpaper.png}}"](https://orgmode.org/worg/images/orgmode/org-mode-unicorn.svg}{\\includegraphics[width=.9\\linewidth]{/wallpaper.png}}"){kind=link}