diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2016-08-20 21:48:16 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2016-08-20 21:48:16 +0200 |
commit | b7b93a0c2c77436dc73801d980ab0b633e9fe2ae (patch) | |
tree | 1f66556422cb5336e8496804553bbda1fb8cec48 | |
parent | b394cfd9ed0e5b648fda31181a808c28bdc93328 (diff) | |
download | org-mode-b7b93a0c2c77436dc73801d980ab0b633e9fe2ae.tar.gz |
test-ob-maxima: Fix maxima matrix test
* testing/lisp/test-ob-maxima.el (ob-maxima/matrix-output): Remove lines
starting with ";;" from the result of `org-babel-execute-src-block'.
This fix works around the occurance of lines like
;; loading #P"/home/b/.../numericalio/encode-decode-float.fasl"
in the output of maxima.
Maxima version: "5.38.1"
Lisp implementation type: "SBCL"
Lisp implementation version: "1.3.6"
-rw-r--r-- | testing/lisp/test-ob-maxima.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index 8af9c0d..a148003 100644 --- a/testing/lisp/test-ob-maxima.el +++ b/testing/lisp/test-ob-maxima.el @@ -65,7 +65,20 @@ "Test of table output" (org-test-at-id "cc158527-b867-4b1d-8ae0-b8c713a90fd7" (org-babel-next-src-block) - (should (equal '((1 2 3) (2 3 4) (3 4 5)) (org-babel-execute-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))))))) (provide 'test-ob-maxima) |