1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00

testing/lisp/*.el: Fix second arg to `signal'

The second argument to `signal' should be a list, as explained in its
docstring.  Fix `missing-test-dependency' signals accordingly.
This commit is contained in:
Stefan Monnier 2024-05-19 17:19:51 -04:00 committed by Ihor Radchenko
parent cb758720f3
commit 96d149a660
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
27 changed files with 33 additions and 33 deletions

View File

@ -20,7 +20,7 @@
;;; Code:
(unless (featurep 'ob-C)
(signal 'missing-test-dependency "Support for C code blocks"))
(signal 'missing-test-dependency '("Support for C code blocks")))
(ert-deftest ob-C/simple-program ()
"Hello world program."

View File

@ -22,7 +22,7 @@
(org-test-for-executable "R")
(require 'ob-core)
(unless (featurep 'ess)
(signal 'missing-test-dependency "ESS"))
(signal 'missing-test-dependency '("ESS")))
(defvar ess-ask-for-ess-directory)
(defvar ess-history-file)
(defvar ess-r-post-run-hook)
@ -32,7 +32,7 @@
(declare-function ess-calculate-width "ext:ess-inf" (opt))
(unless (featurep 'ob-R)
(signal 'missing-test-dependency "Support for R code blocks"))
(signal 'missing-test-dependency '("Support for R code blocks")))
(ert-deftest test-ob-R/simple-session ()
(let (ess-ask-for-ess-directory ess-history-file)

View File

@ -21,7 +21,7 @@
;;; Code:
(org-test-for-executable "awk")
(unless (featurep 'ob-awk)
(signal 'missing-test-dependency "Support for Awk code blocks"))
(signal 'missing-test-dependency '("Support for Awk code blocks")))
(ert-deftest ob-awk/input-none ()
"Test with no input file"

View File

@ -21,7 +21,7 @@
(require 'ob-calc)
(unless (featurep 'ob-calc)
(signal 'missing-test-dependency "Support for Calc code blocks"))
(signal 'missing-test-dependency '("Support for Calc code blocks")))
(ert-deftest ob-calc/simple-program-mult ()
"Test of simple multiplication."

View File

@ -25,7 +25,7 @@
;;; Code:
(unless (featurep 'ob-clojure)
(signal 'missing-test-dependency "Support for Clojure code blocks"))
(signal 'missing-test-dependency '("Support for Clojure code blocks")))
;; FIXME: The old tests where totally off. We need to write new tests.

View File

@ -24,7 +24,7 @@
;;; Code:
(unless (featurep 'ob-eshell)
(signal 'missing-test-dependency "Support for Eshell code blocks"))
(signal 'missing-test-dependency '("Support for Eshell code blocks")))
(ert-deftest ob-eshell/execute ()
"Test ob-eshell execute."

View File

@ -21,7 +21,7 @@
;;; Code:
(org-test-for-executable "gfortran")
(unless (featurep 'ob-fortran)
(signal 'missing-test-dependency "Support for Fortran code blocks"))
(signal 'missing-test-dependency '("Support for Fortran code blocks")))
(ert-deftest ob-fortran/simple-program ()
"Test of hello world program."

View File

@ -32,9 +32,9 @@
(require 'org-test "../testing/org-test")
(org-test-for-executable "ghci")
(unless (featurep 'haskell-mode)
(signal 'missing-test-dependency "haskell-mode"))
(signal 'missing-test-dependency '("haskell-mode")))
(unless (featurep 'haskell)
(signal 'missing-test-dependency "haskell"))
(signal 'missing-test-dependency '("haskell")))
;;; Helpers

View File

@ -27,7 +27,7 @@
;; ob-java is needed for linter tests as well. org-lint relies on
;; default header arg value.
(unless (featurep 'ob-java)
(signal 'missing-test-dependency "Support for java code blocks"))
(signal 'missing-test-dependency '("Support for java code blocks")))
;;; No Java required

View File

@ -23,9 +23,9 @@
(org-test-for-executable "julia")
(require 'ob-core)
(unless (featurep 'ob-julia)
(signal 'missing-test-dependency "Support for julia code blocks"))
(signal 'missing-test-dependency '("Support for julia code blocks")))
(unless (featurep 'ess)
(signal 'missing-test-dependency "ESS"))
(signal 'missing-test-dependency '("ESS")))
(ert-deftest test-ob-julia/colnames-yes-header-argument ()
(should

View File

@ -20,7 +20,7 @@
;;; Code:
(unless (featurep 'ob-lua)
(signal 'missing-test-dependency "Support for Lua code blocks"))
(signal 'missing-test-dependency '("Support for Lua code blocks")))
(ert-deftest test-ob-lua/simple-value ()
"Test associative array return by value."

View File

@ -20,7 +20,7 @@
(org-test-for-executable "maxima")
(unless (featurep 'ob-maxima)
(signal 'missing-test-dependency "Support for Maxima code blocks"))
(signal 'missing-test-dependency '("Support for Maxima code blocks")))
(ert-deftest ob-maxima/integer-input ()
"Test of integer input"

View File

@ -20,7 +20,7 @@
(org-test-for-executable "octave")
(unless (featurep 'ob-octave)
(signal 'missing-test-dependency "Support for Octave code blocks"))
(signal 'missing-test-dependency '("Support for Octave code blocks")))
(ert-deftest ob-octave/input-none ()
"Number output"

View File

@ -21,7 +21,7 @@
;;; Code:
(org-test-for-executable "perl")
(unless (featurep 'ob-perl)
(signal 'missing-test-dependency "Support for perl code blocks"))
(signal 'missing-test-dependency '("Support for perl code blocks")))
(ert-deftest test-ob-perl/simple-output ()
(org-test-with-temp-text "

View File

@ -22,7 +22,7 @@
(org-test-for-executable "python")
(require 'ob-core)
(unless (featurep 'ob-python)
(signal 'missing-test-dependency "Support for Python code blocks"))
(signal 'missing-test-dependency '("Support for Python code blocks")))
(ert-deftest test-ob-python/colnames-yes-header-argument ()
(should

View File

@ -19,9 +19,9 @@
;;; Code:
(org-test-for-executable "ruby")
(unless (featurep 'ob-ruby)
(signal 'missing-test-dependency "Support for Ruby code blocks"))
(signal 'missing-test-dependency '("Support for Ruby code blocks")))
(unless (featurep 'inf-ruby)
(signal 'missing-test-dependency "inf-ruby"))
(signal 'missing-test-dependency '("inf-ruby")))
(ert-deftest test-ob-ruby/session-output-1 ()
(should (equal (org-test-with-temp-text "#+begin_src ruby :session org-test-ruby :results output

View File

@ -24,11 +24,11 @@
;;; Code:
(unless (featurep 'ob-scheme)
(signal 'missing-test-dependency "Support for Scheme code blocks"))
(signal 'missing-test-dependency '("Support for Scheme code blocks")))
(unless (featurep 'geiser)
(signal 'missing-test-dependency "geiser"))
(signal 'missing-test-dependency '("geiser")))
(unless (version<= "27.1" emacs-version)
(signal 'missing-test-dependency "Geiser required for Scheme code blocks needs Emacs >=27.1"))
(signal 'missing-test-dependency '("Geiser required for Scheme code blocks needs Emacs >=27.1")))
(ert-deftest test-ob-scheme/tables ()
"Test table output."

View File

@ -23,7 +23,7 @@
(require 'ob-sed)
(org-test-for-executable "sed")
(unless (featurep 'ob-sed)
(signal 'missing-test-dependency "Support for Sed code blocks"))
(signal 'missing-test-dependency '("Support for Sed code blocks")))
(ert-deftest ob-sed-test/simple-execution-of-script ()
"Test simple execution of script."

View File

@ -30,7 +30,7 @@
(require 'org-macs)
(unless (featurep 'ob-shell)
(signal 'missing-test-dependency "Support for Shell code blocks"))
(signal 'missing-test-dependency '("Support for Shell code blocks")))
(org-test-for-executable "sh")

View File

@ -21,7 +21,7 @@
;;; Code:
(unless (featurep 'ob-sql)
(signal 'missing-test-dependency "Support for sql code blocks"))
(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."

View File

@ -21,7 +21,7 @@
;;; Code:
(org-test-for-executable "sqlite3")
(unless (featurep 'ob-sqlite)
(signal 'missing-test-dependency "Support for sqlite code blocks"))
(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."

View File

@ -23,7 +23,7 @@
;; Alternative implementation for `test-org-ctags/mock-command'
;; is required for cmd.exe.
(unless (string-equal "-c" shell-command-switch)
(signal 'missing-test-dependency "POSIX shell"))
(signal 'missing-test-dependency '("POSIX shell")))
(require 'org-ctags)

View File

@ -24,7 +24,7 @@
(require 'org-tempo)
(unless (featurep 'org-tempo)
(signal 'missing-test-dependency "org-tempo"))
(signal 'missing-test-dependency '("org-tempo")))
(ert-deftest test-org-tempo/completion ()
"Test that blocks and keywords are expanded correctly by org-tempo."

View File

@ -25,7 +25,7 @@
(require 'ox-ascii nil t)
(unless (featurep 'ox-ascii)
(signal 'missing-test-dependency "org-export-ascii"))
(signal 'missing-test-dependency '("org-export-ascii")))

View File

@ -25,7 +25,7 @@
(require 'ox-beamer nil t)
(unless (featurep 'ox-beamer)
(signal 'missing-test-dependency "org-export-beamer"))
(signal 'missing-test-dependency '("org-export-beamer")))

View File

@ -25,7 +25,7 @@
(require 'ox-latex nil t)
(unless (featurep 'ox-latex)
(signal 'missing-test-dependency "org-export-latex"))
(signal 'missing-test-dependency '("org-export-latex")))

View File

@ -27,7 +27,7 @@
(eval-when-compile (require 'subr-x))
(unless (featurep 'ox-texinfo)
(signal 'missing-test-dependency "org-export-texinfo"))
(signal 'missing-test-dependency '("org-export-texinfo")))
;;; TeX fragments