Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
21fedf28
Commit
21fedf28
authored
Oct 15, 2011
by
Glenn Morris
Browse files
* test/automated/f90.el: New file.
parent
c235b555
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
162 additions
and
0 deletions
+162
-0
test/ChangeLog
test/ChangeLog
+4
-0
test/automated/f90.el
test/automated/f90.el
+158
-0
No files found.
test/ChangeLog
View file @
21fedf28
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
...
...
test/automated/f90.el
0 → 100644
View file @
21fedf28
;;; 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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment