testing/lisp/test-ob-fortran.el

   1 ;;; test-ob-fortran.el --- tests for ob-fortran.el
   2
   3 ;; Copyright (c) 2010-2013 Sergey Litvinov
   4 ;; Authors: Sergey Litvinov
   5
   6 ;; This file is not part of GNU Emacs.
   7
   8 ;; This program is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation, either version 3 of the License, or
  11 ;; (at your option) any later version.
  12
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 ;;; Code:
  22 (org-test-for-executable "gfortran")
  23 (unless (featurep 'ob-fortran)
  24   (signal 'missing-test-dependency "Support for Fortran code blocks"))
  25
  26 (ert-deftest ob-fortran/assert ()
  27   (should t))
  28
  29 (ert-deftest ob-fortran/simple-program ()
  30   "Test of hello world program."
  31   (org-test-at-id "459384e8-1797-4f11-867e-dde0473ea7cc"
  32     (org-babel-next-src-block)
  33     (should (equal "Hello world" (org-babel-execute-src-block)))))
  34
  35 (ert-deftest ob-fortran/fortran-var-program ()
  36   "Test a fortran variable"
  37   (org-test-at-id "459384e8-1797-4f11-867e-dde0473ea7cc"
  38     (org-babel-next-src-block 2)
  39     (should (= 10 (org-babel-execute-src-block)))))
  40
  41 (ert-deftest ob-fortran/input-var ()
  42   "Test :var"
  43   (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
  44     (org-babel-next-src-block)
  45     (should (= 15 (org-babel-execute-src-block)))))
  46
  47 (ert-deftest ob-fortran/preprosessor-var ()
  48   "Test preprocessed fortran"
  49   (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
  50     (org-babel-next-src-block 2)
  51     (should (= 42 (org-babel-execute-src-block)))))
  52
  53 ;; ;; TODO: test fails
  54 ;; (ert-deftest ob-fortran/character-var ()
  55 ;;   "Test string input"
  56 ;;   (org-test-at-id "d8d1dfd3-5f0c-48fe-b55d-777997e02242"
  57 ;;     (org-babel-next-src-block 3)
  58 ;;     (should (equal "word" (org-babel-execute-src-block)))))
  59
  60 (ert-deftest ob-fortran/list-var ()
  61   "Test real array input"
  62   (org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465"
  63     (org-babel-next-src-block)
  64     (should (equal "1.00 2.00 3.00" (org-babel-execute-src-block)))))
  65
  66 (ert-deftest ob-fortran/list-var-from-table ()
  67   "Test real array from a table"
  68   (org-test-at-id "c28569d9-04ce-4cad-ab81-1ea29f691465"
  69     (org-babel-next-src-block 2)
  70     (should (equal "1.00 2.00" (org-babel-execute-src-block)))))
  71
  72 (ert-deftest ob-fortran/no-variables-with-main ()
  73   "Test :var with explicit 'program'"
  74   (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
  75     (org-babel-next-src-block)
  76     (should-error (org-babel-execute-src-block))
  77     :type 'error))
  78
  79 ;; (ert-deftest ob-fortran/wrong-list ()
  80 ;;   "Test wrong input list"
  81 ;;   (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
  82 ;;     (org-babel-next-src-block 2)
  83 ;;     (should-error (org-babel-execute-src-block))
  84 ;;     :type 'error))
  85
  86 ;; (ert-deftest ob-fortran/compiler-flags ()
  87 ;;   "Test compiler's flags"
  88 ;;   (org-test-at-id "891ead4a-f87a-473c-9ae0-1cf348bcd04f"
  89 ;;     (org-babel-next-src-block 3)
  90 ;;     (should-error (org-babel-execute-src-block))
  91 ;;     :type 'error))
  92
  93 (ert-deftest ob-fortran/command-arguments ()
  94   "Test real array from a table"
  95   (org-test-at-id "2d5330ea-9934-4737-9ed6-e1d3dae2dfa4"
  96     (org-babel-next-src-block)
  97     (should (= 23 (org-babel-execute-src-block)))))
  98
  99 (provide 'test-ob-fortran)
 100
 101 ;;; test-ob-fortran.el ends here
 102