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:
parent
cb758720f3
commit
96d149a660
@ -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."
|
||||
|
@ -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)
|
||||
|
@ -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"
|
||||
|
@ -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."
|
||||
|
@ -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.
|
||||
|
||||
|
@ -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."
|
||||
|
@ -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."
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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."
|
||||
|
@ -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"
|
||||
|
@ -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"
|
||||
|
@ -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 "
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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."
|
||||
|
@ -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."
|
||||
|
@ -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")
|
||||
|
||||
|
@ -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."
|
||||
|
@ -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."
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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."
|
||||
|
@ -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")))
|
||||
|
||||
|
||||
|
||||
|
@ -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")))
|
||||
|
||||
|
||||
|
||||
|
@ -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")))
|
||||
|
||||
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user