test-ob-maxima.el 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. ;;; test-ob-maxima.el --- tests for ob-maxima.el
  2. ;; Copyright (c) 2010-2014 Sergey Litvinov
  3. ;; Authors: Sergey Litvinov
  4. ;; This file is not part of GNU Emacs.
  5. ;; This program is free software; you can redistribute it and/or modify
  6. ;; it under the terms of the GNU General Public License as published by
  7. ;; the Free Software Foundation, either version 3 of the License, or
  8. ;; (at your option) any later version.
  9. ;; This program is distributed in the hope that it will be useful,
  10. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. ;; GNU General Public License for more details.
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  15. (org-test-for-executable "maxima")
  16. (unless (featurep 'ob-maxima)
  17. (signal 'missing-test-dependency "Support for Maxima code blocks"))
  18. (ert-deftest ob-maxima/assert ()
  19. (should t))
  20. (ert-deftest ob-maxima/integer-input ()
  21. "Test of integer input"
  22. (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
  23. (org-babel-next-src-block)
  24. (should (equal 4 (org-babel-execute-src-block)))))
  25. (ert-deftest ob-maxima/string-input ()
  26. "Test of string input"
  27. (org-test-at-id "b5842ed4-8e8b-4b18-a1c9-cef006b6a6c8"
  28. (org-babel-next-src-block 2)
  29. (should (equal "- sin(x)" (org-babel-execute-src-block)))))
  30. (ert-deftest ob-maxima/simple-list-input ()
  31. "Test of flat list input"
  32. (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
  33. (org-babel-next-src-block)
  34. (should (equal "[1, 2, 3] " (org-babel-execute-src-block)))))
  35. (ert-deftest ob-maxima/list-input ()
  36. "Test of list input"
  37. (org-test-at-id "b5561c6a-73cd-453a-ba5e-62ad84844de6"
  38. (org-babel-next-src-block 2)
  39. (should (equal "[2, [2, 3], 4] " (org-babel-execute-src-block)))))
  40. (ert-deftest ob-maxima/table-input1 ()
  41. "Test of table input"
  42. (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
  43. (org-babel-next-src-block)
  44. (should (equal "[[2.0], [3.0]] " (org-babel-execute-src-block)))))
  45. (ert-deftest ob-maxima/table-input2 ()
  46. "Test of table input"
  47. (org-test-at-id "400ee228-6b12-44fd-8097-7986f0f0db43"
  48. (org-babel-next-src-block 2)
  49. (should (equal "[[2.0, 3.0]] " (org-babel-execute-src-block)))))
  50. (ert-deftest ob-maxima/matrix-output ()
  51. "Test of table output"
  52. (org-test-at-id "cc158527-b867-4b1d-8ae0-b8c713a90fd7"
  53. (org-babel-next-src-block)
  54. (should
  55. (equal
  56. '((1 2 3) (2 3 4) (3 4 5)) (org-babel-execute-src-block)))))
  57. (provide 'test-ob-maxima)
  58. ;;; test-ob-maxima.el ends here