1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
emacs/test/automated/f90.el
2012-01-05 01:46:05 -08:00

159 lines
3.7 KiB
EmacsLisp

;;; f90.el --- tests for progmodes/f90.el
;; Copyright (C) 2011-2012 Free Software Foundation, Inc.
;; Author: Glenn Morris <rgm@gnu.org>
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file does not have "test" in the name, because it lives under
;; a test/ directory, so that would be superfluous.
;;; Code:
(require 'ert)
(require 'f90)
(defconst f90-test-indent "\
!! Comment before code.
!!! Comments before code.
#preprocessor before code
program progname
implicit none
integer :: i
!! Comment.
do i = 1, 10
#preprocessor
!! Comment.
if ( i % 2 == 0 ) then
!! Comment.
cycle
else
write(*,*) i
end if
end do
!!! Comment.
end program progname
"
"Test string for F90 indentation.")
(ert-deftest f90-test-indent ()
"Test F90 indentation."
(with-temp-buffer
(f90-mode)
(insert f90-test-indent)
(indent-rigidly (point-min) (point-max) -999)
(f90-indent-region (point-min) (point-max))
(should (string-equal (buffer-string) f90-test-indent))))
(ert-deftest f90-test-bug3729 ()
"Test for http://debbugs.gnu.org/3729 ."
:expected-result :failed
(with-temp-buffer
(f90-mode)
(insert "!! Comment
include \"file.f90\"
subroutine test (x)
real x
x = x+1.
return
end subroutine test")
(goto-char (point-min))
(forward-line 2)
(f90-indent-subprogram)
(should (= 0 (current-indentation)))))
(ert-deftest f90-test-bug3730 ()
"Test for http://debbugs.gnu.org/3730 ."
(with-temp-buffer
(f90-mode)
(insert "a" )
(move-to-column 68 t)
(insert "(/ x /)")
(f90-do-auto-fill)
(beginning-of-line)
(skip-chars-forward "[ \t]")
(should (equal "&(/" (buffer-substring (point) (+ 3 (point)))))))
;; TODO bug#5593
(ert-deftest f90-test-bug8691 ()
"Test for http://debbugs.gnu.org/8691 ."
(with-temp-buffer
(f90-mode)
(insert "module modname
type, bind(c) :: type1
integer :: part1
end type type1
end module modname")
(f90-indent-subprogram)
(forward-line -1)
(should (= 2 (current-indentation)))))
;; TODO bug#8812
(ert-deftest f90-test-bug8820 ()
"Test for http://debbugs.gnu.org/8820 ."
(with-temp-buffer
(f90-mode)
(should (eq (char-syntax ?%) (string-to-char ".")))))
(ert-deftest f90-test-bug9553a ()
"Test for http://debbugs.gnu.org/9553 ."
(with-temp-buffer
(f90-mode)
(insert "!!!")
(dotimes (_i 20) (insert " aaaa"))
(f90-do-auto-fill)
(beginning-of-line)
;; This gives a more informative failure than looking-at.
(should (equal "!!! a" (buffer-substring (point) (+ 5 (point)))))))
(ert-deftest f90-test-bug9553b ()
"Test for http://debbugs.gnu.org/9553 ."
(with-temp-buffer
(f90-mode)
(insert "!!!")
(dotimes (_i 13) (insert " aaaa"))
(insert "a, aaaa")
(f90-do-auto-fill)
(beginning-of-line)
(should (equal "!!! a" (buffer-substring (point) (+ 5 (point)))))))
(ert-deftest f90-test-bug9690 ()
"Test for http://debbugs.gnu.org/9690 ."
(with-temp-buffer
(f90-mode)
(insert "#include \"foo.h\"")
(f90-indent-line)
(should (= 0 (current-indentation)))))
;;; f90.el ends here