mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-21 22:48:41 +00:00
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.
91 lines
2.9 KiB
EmacsLisp
91 lines
2.9 KiB
EmacsLisp
;;; test-ob-fortran.el --- tests for ob-fortran.el
|
|
|
|
;; Copyright (c) 2010-2012 Sergey Litvinov
|
|
;; Authors: Sergey Litvinov
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
;;; Code:
|
|
(org-test-for-executable "gfortran")
|
|
(unless (featurep 'ob-fortran)
|
|
(signal 'missing-test-dependency "Support for Fortran code blocks"))
|
|
|
|
(ert-deftest ob-fortran/assert ()
|
|
(should t))
|
|
|
|
(ert-deftest ob-fortran/simple-program ()
|
|
"Test of hello world program."
|
|
(org-test-at-id "459384e8-1797-4f11-867e-dde0473ea7cc"
|
|
(org-babel-next-src-block)
|
|
(should (equal "Hello world" (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/fortran-var-program ()
|
|
"Test a fortran variable"
|
|
(org-test-at-id "459384e8-1797-4f11-867e-dde0473ea7cc"
|
|
(org-babel-next-src-block 2)
|
|
(should (= 10 (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/input-var ()
|
|
"Test :var"
|
|
(org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
|
|
(org-babel-next-src-block)
|
|
(should (= 15 (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/preprosessor-var ()
|
|
"Test preprocessed fortran"
|
|
(org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
|
|
(org-babel-next-src-block 2)
|
|
(should (= 42 (org-babel-execute-src-block)))))
|
|
|
|
;; ;; TODO: test fails
|
|
;; (ert-deftest ob-fortran/character-var ()
|
|
;; "Test string input"
|
|
;; (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
|
|
;; (org-babel-next-src-block 3)
|
|
;; (should (equal "word" (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/list-var ()
|
|
"Test real array input"
|
|
(org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465"
|
|
(org-babel-next-src-block)
|
|
(should (equal "1.00 2.00 3.00" (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/list-var-from-table ()
|
|
"Test real array from a table"
|
|
(org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465"
|
|
(org-babel-next-src-block 2)
|
|
(should (equal "1.00 2.00" (org-babel-execute-src-block)))))
|
|
|
|
(ert-deftest ob-fortran/no-variables-with-main ()
|
|
"Test :var with explicit 'program'"
|
|
(org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
|
|
(org-babel-next-src-block)
|
|
(should-error (org-babel-execute-src-block))
|
|
:type 'error))
|
|
|
|
;; (ert-deftest ob-fortran/wrong-list ()
|
|
;; "Test wrong input list"
|
|
;; (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
|
|
;; (org-babel-next-src-block 2)
|
|
;; (should-error (org-babel-execute-src-block))
|
|
;; :type 'error))
|
|
|
|
;; (ert-deftest ob-fortran/compiler-flags ()
|
|
;; "Test compiler's flags"
|
|
;; (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
|
|
;; (org-babel-next-src-block 3)
|
|
;; (should-error (org-babel-execute-src-block))
|
|
;; :type 'error))
|
|
|
|
(ert-deftest ob-fortran/command-arguments ()
|
|
"Test real array from a table"
|
|
(org-test-at-id "2d5330ea-9934-4737-9ed6-e1d3dae2dfa4"
|
|
(org-babel-next-src-block)
|
|
(should (= 23 (org-babel-execute-src-block)))))
|
|
|
|
(provide 'test-ob-fortran)
|
|
|
|
;;; test-ob-fortran.el ends here
|
|
|