diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2016-08-20 23:43:35 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2016-08-20 23:43:35 +0200 |
commit | 29942e6aa853b9c19c06bd7905a964217d24e059 (patch) | |
tree | 9e3d38c00bf7600a7d56f322db51cedc8979c9d8 | |
parent | 7afd7ebff505d6716b2bcdf9cc60e8eea5f54da1 (diff) | |
download | org-mode-29942e6aa853b9c19c06bd7905a964217d24e059.tar.gz |
test-ob-maxima: Revert last commit
* testing/lisp/test-ob-maxima.el:
(ob-maxima/matrix-output): Remove filtering of informational output.
Credit to Leo Butler. From his post:
Since those informational messages are written to stdout, do
with_stdout("/dev/null", load(numericalio))$
write_data ....
to muffle the messages. Note that sbcl warnings are muffled by
:lisp (setf sb-ext::*muffled-warnings* 'warning)
-rw-r--r-- | testing/lisp/test-ob-maxima.el | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index a148003..4211429 100644 --- a/testing/lisp/test-ob-maxima.el +++ b/testing/lisp/test-ob-maxima.el @@ -67,18 +67,7 @@ (org-babel-next-src-block) (should (equal - '((1 2 3) (2 3 4) (3 4 5)) - ((lambda (lista) - "Drop disturbing lines. -This is a workaround to skip informational output from maxima." - (reverse - (reduce (lambda (x y) - (if (equal ";;" (car y)) - x - (cons y x))) - lista))) - (cons nil - (org-babel-execute-src-block))))))) + '((1 2 3) (2 3 4) (3 4 5)) (org-babel-execute-src-block))))) (provide 'test-ob-maxima) |