瀏覽代碼

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)
Marco Wahl 8 年之前
父節點
當前提交
29942e6aa8
共有 1 個文件被更改,包括 1 次插入12 次删除
  1. 1 12
      testing/lisp/test-ob-maxima.el

+ 1 - 12
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)