mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
159 lines
3.7 KiB
EmacsLisp
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
|