summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2016-08-20 23:43:35 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2016-08-20 23:43:35 +0200
commit29942e6aa853b9c19c06bd7905a964217d24e059 (patch)
tree9e3d38c00bf7600a7d56f322db51cedc8979c9d8
parent7afd7ebff505d6716b2bcdf9cc60e8eea5f54da1 (diff)
downloadorg-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.el13
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)