ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
org-mode/testing/lisp/test-ob-maxima.el

75 lines
2.6 KiB
EmacsLisp
Raw Normal View History

construct a table from the output of maxima code block Please consider a patch to construct a table from the output of maxima code block. >From a0305117f4e793c93d7d10bc7aab04f96bd62e9c Mon Sep 17 00:00:00 2001 From: Litvinov Sergey <slitvinov@gmail.com> Date: Sat, 1 Oct 2011 22:29:18 +0200 Subject: [PATCH] [ob-maxima] Construct a table from the output of the code block. Add ert tests.
2011-10-01 21:37:14 -04:00
;;; test-ob-maxima.el --- tests for ob-maxima.el
Update copyright year
2019-01-01 05:50:56 -05:00
;; Copyright (c) 2010-2014, 2019 Sergey Litvinov
construct a table from the output of maxima code block Please consider a patch to construct a table from the output of maxima code block. >From a0305117f4e793c93d7d10bc7aab04f96bd62e9c Mon Sep 17 00:00:00 2001 From: Litvinov Sergey <slitvinov@gmail.com> Date: Sat, 1 Oct 2011 22:29:18 +0200 Subject: [PATCH] [ob-maxima] Construct a table from the output of the code block. Add ert tests.
2011-10-01 21:37:14 -04:00
;; Authors: Sergey Litvinov
Fix copyright notices for test files.
2012-12-13 11:24:19 -05:00
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
Prefer HTTPS to HTTP for links to gnu.org
2021-03-20 03:27:57 -04:00
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
Fix copyright notices for test files.
2012-12-13 11:24:19 -05:00
construct a table from the output of maxima code block Please consider a patch to construct a table from the output of maxima code block. >From a0305117f4e793c93d7d10bc7aab04f96bd62e9c Mon Sep 17 00:00:00 2001 From: Litvinov Sergey <slitvinov@gmail.com> Date: Sat, 1 Oct 2011 22:29:18 +0200 Subject: [PATCH] [ob-maxima] Construct a table from the output of the code block. Add ert tests.
2011-10-01 21:37:14 -04:00
(org-test-for-executable "maxima")
Fix the master branch. I started from the 78ec8e commit then cherry-picked and squashed commits that have been done in master since then, except the bad commits that overwrote the tree (in master) with the tree in maint. This commit also bumps the version number to 7.8.06. The only "fix" that was made between 78ec8e and the previous commit is e0072f which has been reported to break stuff.
2012-03-19 16:38:12 -04:00
(unless (featurep 'ob-maxima)
(signal 'missing-test-dependency "Support for Maxima code blocks"))
construct a table from the output of maxima code block Please consider a patch to construct a table from the output of maxima code block. >From a0305117f4e793c93d7d10bc7aab04f96bd62e9c Mon Sep 17 00:00:00 2001 From: Litvinov Sergey <slitvinov@gmail.com> Date: Sat, 1 Oct 2011 22:29:18 +0200 Subject: [PATCH] [ob-maxima] Construct a table from the output of the code block. Add ert tests.
2011-10-01 21:37:14 -04:00
(ert-deftest ob-maxima/assert ()
(should t))
(ert-deftest ob-maxima/integer-input ()
"Test of integer input"
(org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
(org-babel-next-src-block)
(should (equal 4 (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/string-input ()
"Test of string input"
(org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
(org-babel-next-src-block 2)
(should (equal "- sin(x)" (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/simple-list-input ()
"Test of flat list input"
(org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
(org-babel-next-src-block)
(should (equal "[1, 2, 3] " (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/list-input ()
"Test of list input"
(org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
(org-babel-next-src-block 2)
(should (equal "[2, [2, 3], 4] " (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/table-input1 ()
"Test of table input"
(org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
(org-babel-next-src-block)
(should (equal "[[2.0], [3.0]] " (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/table-input2 ()
"Test of table input"
(org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
(org-babel-next-src-block 2)
(should (equal "[[2.0, 3.0]] " (org-babel-execute-src-block)))))
(ert-deftest ob-maxima/matrix-output ()
"Test of table output"
(org-test-at-id "cc158527-b867-4b1d-8ae0-b8c713a90fd7"
(org-babel-next-src-block)
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"
2016-08-20 15:48:16 -04:00
(should
(equal
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)
2016-08-20 17:43:35 -04:00
'((1 2 3) (2 3 4) (3 4 5)) (org-babel-execute-src-block)))))
construct a table from the output of maxima code block Please consider a patch to construct a table from the output of maxima code block. >From a0305117f4e793c93d7d10bc7aab04f96bd62e9c Mon Sep 17 00:00:00 2001 From: Litvinov Sergey <slitvinov@gmail.com> Date: Sat, 1 Oct 2011 22:29:18 +0200 Subject: [PATCH] [ob-maxima] Construct a table from the output of the code block. Add ert tests.
2011-10-01 21:37:14 -04:00
(provide 'test-ob-maxima)
;;; test-ob-maxima.el ends here