From 29942e6aa853b9c19c06bd7905a964217d24e059 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Sat, 20 Aug 2016 23:43:35 +0200 Subject: [PATCH] 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) --- testing/lisp/test-ob-maxima.el | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index a14800332..421142916 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)