mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 14:40:15 +00:00
e85080 is the last correct commit in the maint branch before releasing 7.8.04. The 7.8.05 release should be done from this commit.
113 lines
3.3 KiB
EmacsLisp
113 lines
3.3 KiB
EmacsLisp
;;; test-ob-fortran.el --- tests for ob-fortran.el
|
|
|
|
;; Copyright (c) 2010 Sergey Litvinov
|
|
;; Authors: Sergey Litvinov
|
|
|
|
;; Released under the GNU General Public License version 3
|
|
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
|
|
|
(org-test-for-executable "gfortran")
|
|
|
|
(let ((load-path (cons (expand-file-name
|
|
".." (file-name-directory
|
|
(or load-file-name buffer-file-name)))
|
|
load-path)))
|
|
(require 'org-test)
|
|
(require 'org-test-ob-consts))
|
|
|
|
(let ((load-path (cons (expand-file-name
|
|
"langs"
|
|
(expand-file-name
|
|
"babel"
|
|
(expand-file-name
|
|
"contrib"
|
|
(expand-file-name
|
|
".."
|
|
(expand-file-name
|
|
".."
|
|
(file-name-directory
|
|
(or load-file-name buffer-file-name)))))))
|
|
load-path)))
|
|
|
|
(require 'ob-fortran))
|
|
|
|
(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
|
|
|