1 ;;; test-ob-maxima.el --- tests for ob-maxima.el
3 ;; Copyright (c) 2010-2012 Sergey Litvinov
4 ;; Authors: Sergey Litvinov
6 ;; Released under the GNU General Public License version 3
7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
9 (org-test-for-executable "maxima")
11 (let ((load-path (cons (expand-file-name
12 ".." (file-name-directory
13 (or load-file-name buffer-file-name
)))
16 (require 'org-test-ob-consts
))
18 (let ((load-path (cons (expand-file-name
29 (or load-file-name buffer-file-name
)))))))
34 (ert-deftest ob-maxima
/assert
()
37 (ert-deftest ob-maxima
/integer-input
()
38 "Test of integer input"
39 (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
40 (org-babel-next-src-block)
41 (should (equal 4 (org-babel-execute-src-block)))))
43 (ert-deftest ob-maxima
/string-input
()
44 "Test of string input"
45 (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
46 (org-babel-next-src-block 2)
47 (should (equal "- sin(x)" (org-babel-execute-src-block)))))
49 (ert-deftest ob-maxima
/simple-list-input
()
50 "Test of flat list input"
51 (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
52 (org-babel-next-src-block)
53 (should (equal "[1, 2, 3] " (org-babel-execute-src-block)))))
55 (ert-deftest ob-maxima
/list-input
()
57 (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
58 (org-babel-next-src-block 2)
59 (should (equal "[2, [2, 3], 4] " (org-babel-execute-src-block)))))
61 (ert-deftest ob-maxima
/table-input1
()
63 (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
64 (org-babel-next-src-block)
65 (should (equal "[[2.0], [3.0]] " (org-babel-execute-src-block)))))
67 (ert-deftest ob-maxima
/table-input2
()
69 (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
70 (org-babel-next-src-block 2)
71 (should (equal "[[2.0, 3.0]] " (org-babel-execute-src-block)))))
73 (ert-deftest ob-maxima
/matrix-output
()
74 "Test of table output"
75 (org-test-at-id "cc158527-b867-4b1d-8ae0-b8c713a90fd7"
76 (org-babel-next-src-block)
77 (should (equal '((1 2 3) (2 3 4) (3 4 5)) (org-babel-execute-src-block)))))
79 (provide 'test-ob-maxima
)
81 ;;; test-ob-maxima.el ends here