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)
This commit is contained in:
parent
7afd7ebff5
commit
29942e6aa8
|
@ -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)
|
||||
|
||||
|
|
Loading…
Reference in New Issue