Bläddra i källkod

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 år sedan
förälder
incheckning
29942e6aa8
1 ändrade filer med 1 tillägg och 12 borttagningar
  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)