From: Glenn Morris <rgm@gnu.org>
Date: Sat, 15 Oct 2011 20:56:02 +0000 (-0700)
Subject: * test/automated/f90.el: New file.
X-Git-Tag: emacs-pretest-24.0.91~112
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21fedf28e5c59fd17e846f4b8abcbb223ae5ed90;p=emacs.git

* test/automated/f90.el: New file.
---

diff --git a/test/ChangeLog b/test/ChangeLog
index 6ab148358d9..ea6d90b534c 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-15  Glenn Morris  <rgm@gnu.org>
+
+	* automated/f90.el: New file.
+
 2011-09-27  Ulf Jasper  <ulf.jasper@web.de>
 
 	* automated/newsticker-tests.el: Move newsticker-testsuite.el
diff --git a/test/automated/f90.el b/test/automated/f90.el
new file mode 100644
index 00000000000..5d75d5cd0fb
--- /dev/null
+++ b/test/automated/f90.el
@@ -0,0 +1,158 @@
+;;; f90.el --- tests for progmodes/f90.el
+
+;; Copyright (C) 2011  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