From b7b93a0c2c77436dc73801d980ab0b633e9fe2ae Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Sat, 20 Aug 2016 21:48:16 +0200 Subject: [PATCH] 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" --- testing/lisp/test-ob-maxima.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/testing/lisp/test-ob-maxima.el b/testing/lisp/test-ob-maxima.el index 8af9c0d72..a14800332 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) -- 2.11.4.GIT