Add regression test for compilation-error-regexp-alist-alist.

* test/automated/compile-tests.el: New file.

2 files changed, 352 insertions, 0 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index d050a19c19a..4793e904691 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-09  Chong Yidong  <cyd@stupidchicken.com>
+
+	* automated/compile-tests.el: New file.
+
 2011-05-08  Chong Yidong  <cyd@stupidchicken.com>
 
 	* automated/font-parse-tests.el: Don't byte-compile.
diff --git a/test/automated/compile-tests.el b/test/automated/compile-tests.el
new file mode 100644
index 00000000000..1d9a266904c
--- /dev/null
+++ b/test/automated/compile-tests.el
@@ -0,0 +1,348 @@
+;;; compile-tests.el --- Test suite for font parsing.
+
+;; Copyright (C) 2011 Free Software Foundation, Inc.
+
+;; Author: Chong Yidong <cyd@stupidchicken.com>
+;; Keywords:       internal
+;; Human-Keywords: internal
+
+;; 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/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'compile)
+
+(defvar compile-tests--test-regexps-data
+  ;; The computed column numbers are zero-indexed, so subtract 1 from
+  ;; what's reported in the string.  The end column numbers are for
+  ;; the character after, so it matches what's reported in the string.
+  '(;; absoft
+    ("Error on line 3 of t.f: Execution error unclassifiable statement"
+     1 nil 3 "t.f")
+    ("Line 45 of \"foo.c\": bloofle undefined"
+     1 nil 45 "foo.c")
+    ("error on line 19 of fplot.f: spelling error?"
+     1 nil 19 "fplot.f")
+    ("warning on line 17 of fplot.f: data type is undefined for variable d"
+     1 nil 17 "fplot.f")
+    ;; Ada & Mpatrol
+    ("foo.adb:61:11:  [...] in call to size declared at foo.ads:11"
+     1 10 61 "foo.adb")
+    ("foo.adb:61:11:  [...] in call to size declared at foo.ads:11"
+     52 nil 11 "foo.ads")
+    ("     0x8008621 main+16 at error.c:17"
+     23 nil 17 "error.c")
+    ;; aix
+    ("****** Error number 140 in line 8 of file errors.c ******"
+     25 nil 8 "errors.c")
+    ;; ant
+    ("[javac] /src/DataBaseTestCase.java:27: unreported exception ..."
+     13 nil 27 "/src/DataBaseTestCase.java")
+    ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally"
+     13 nil 49 "/src/DataBaseTestCase.java")
+    ("[jikes]  foo.java:3:5:7:9: blah blah"
+     14 (4 . 9) (3 . 7) "foo.java")
+    ;; bash
+    ("a.sh: line 1: ls-l: command not found"
+     1 nil 1 "a.sh")
+    ;; borland
+    ("Error ping.c 15: Unable to open include file 'sys/types.h'"
+     1 nil 15 "ping.c")
+    ("Warning pong.c 68: Call to function 'func' with no prototype"
+     1 nil 68 "pong.c")
+    ("Error E2010 ping.c 15: Unable to open include file 'sys/types.h'"
+     1 nil 15 "ping.c")
+    ("Warning W1022 pong.c 68: Call to function 'func' with no prototype"
+     1 nil 68 "pong.c")
+    ;; caml
+    ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah"
+     1 (19 . 155) (5 . 8) "foobar.ml")
+    ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:"
+     1 (1 . 145) 65 "F:\\ocaml\\sorting.ml")
+    ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children"
+     1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py")
+    ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec"
+     1 nil 302 "\\lib\\python\\Products\\PythonScripts\\PythonScript.py")
+    ("File \"/tmp/foo.py\", line 10"
+     1 nil 10 "/tmp/foo.py")
+    ;; comma
+    ("\"foo.f\", line 3: Error: syntax error near end of statement"
+     1 nil 3 "foo.f")
+    ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error."
+     1 4 19 "vvouch.c")
+    ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\""
+     1 0 32 "foo.c")
+    ("\"foo.adb\", line 2(11): warning: file name does not match ..."
+     1 10 2 "foo.adb")
+    ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment."
+     1 33 30 "src/swapping.c")
+    ;; cucumber
+    ("Scenario: undefined step  # features/cucumber.feature:3"
+     29 nil 3 "features/cucumber.feature")
+    ("      /home/gusev/.rvm/foo/bar.rb:500:in `_wrap_assertion'"
+     1 nil 500 "/home/gusev/.rvm/foo/bar.rb")
+    ;; edg-1 edg-2
+    ("build/intel/debug/../../../struct.cpp(42): error: identifier \"foo\" is undefined"
+     1 nil 42 "build/intel/debug/../../../struct.cpp")
+    ("build/intel/debug/struct.cpp(44): warning #1011: missing return statement at end of"
+     1 nil 44 "build/intel/debug/struct.cpp")
+    ("build/intel/debug/iptr.h(302): remark #981: operands are evaluated in unspecified order"
+     1 nil 302 "build/intel/debug/iptr.h")
+    ("   detected during ... at line 62 of \"build/intel/debug/../../../trace.h\""
+     31 nil 62 "build/intel/debug/../../../trace.h")
+    ;; epc
+    ("Error 24 at (2:progran.f90) : syntax error"
+     1 nil 2 "progran.f90")
+    ;; ftnchek
+    ("    Dummy arg W in module SUBA line 8 file arrayclash.f is array"
+     32 nil 8 "arrayclash.f")
+    ("    L4 used at line 55 file test/assign.f; never set"
+     16 nil 55 "test/assign.f")
+    ("Warning near line 10 file arrayclash.f: Module contains no executable"
+     1 nil 10 "arrayclash.f")
+    ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit"
+     24 8 31 "assign.f")
+    ;; iar
+    ("\"foo.c\",3  Error[32]: Error message"
+     1 nil 3 "foo.c")
+    ("\"foo.c\",3  Warning[32]: Error message"
+     1 nil 3 "foo.c")
+    ;; ibm
+    ("foo.c(2:0) : informational EDC0804: Function foo is not referenced."
+     1 -1 2 "foo.c")
+    ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered."
+     1 7 3 "foo.c")
+    ("foo.c(5:5) : error EDC0350: Syntax error."
+     1 4 5 "foo.c")
+    ;; irix
+    ("ccom: Error: foo.c, line 2: syntax error"
+     1 nil 2 "foo.c")
+    ("cc: Severe: /src/Python-2.3.3/Modules/_curses_panel.c, line 17: Cannot find file <panel.h> ..."
+     1 nil 17 "/src/Python-2.3.3/Modules/_curses_panel.c")
+    ("cc: Info: foo.c, line 27: ..."
+     1 nil 27 "foo.c")
+    ("cfe: Warning 712: foo.c, line 2: illegal combination of pointer and ..."
+     1 nil 2 "foo.c")
+    ("cfe: Warning 600: xfe.c: 170: Not in a conditional directive while ..."
+     1 nil 170 "xfe.c")
+    ("/usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah"
+     1 nil 1 "foo.c")
+    ("/usr/lib/cmplrs/cc/cfe: warning: foo.c: 1: blah blah"
+     1 nil 1 "foo.c")
+    ("foo bar: baz.f, line 27: ..."
+     1 nil 27 "baz.f")
+    ;; java
+    ("\tat org.foo.ComponentGateway.doGet(ComponentGateway.java:172)"
+     5 nil 172 "ComponentGateway.java")
+    ("\tat javax.servlet.http.HttpServlet.service(HttpServlet.java:740)"
+     5 nil 740 "HttpServlet.java")
+    ("==1332==    at 0x4040743C: System::getErrorString() (../src/Lib/System.cpp:217)"
+     13 nil 217 "../src/Lib/System.cpp")
+    ("==1332==    by 0x8008621: main (vtest.c:180)"
+     13 nil 180 "vtest.c")
+    ;; jikes-file jikes-line
+    ("Found 2 semantic errors compiling \"../javax/swing/BorderFactory.java\":"
+     1 nil nil "../javax/swing/BorderFactory.java")
+    ("Issued 1 semantic warning compiling \"java/awt/Toolkit.java\":"
+     1 nil nil "java/awt/Toolkit.java")
+    ;; gcc-include
+    ("In file included from /usr/include/c++/3.3/backward/warn.h:4,"
+     1 nil 4 "/usr/include/c++/3.3/backward/warn.h")
+    ("                 from /usr/include/c++/3.3/backward/iostream.h:31:0,"
+     1 -1 31 "/usr/include/c++/3.3/backward/iostream.h")
+    ("                 from test_clt.cc:1:"
+     1 nil 1 "test_clt.cc")
+    ;; gnu
+    ("foo.c:8: message" 1 nil 8 "foo.c")
+    ("../foo.c:8: W: message" 1 nil 8 "../foo.c")
+    ("/tmp/foo.c:8:warning message" 1 nil 8 "/tmp/foo.c")
+    ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py")
+    ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py")
+    ("foo.c:8:I: message" 1 nil 8 "foo.c")
+    ("foo.c:8.23: note: message" 1 22 8 "foo.c")
+    ("foo.c:8.23: info: message" 1 22 8 "foo.c")
+    ("foo.c:8:23:information: message" 1 22 8 "foo.c")
+    ("foo.c:8.23-45: Informational: message" 1 (22 . nil) (8 . 45) "foo.c")
+    ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c")
+    ("foo.c:8-45.3: message" 1 (nil . 3) (8 . 45) "foo.c")
+    ("foo.c:8.23-9.1: message" 1 (22 . 1) (8 . 9) "foo.c")
+    ("jade:dbcommon.dsl:133:17:E: missing argument for function call"
+     1 16 133 "dbcommon.dsl")
+    ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
+     1 nil 54 "G:/cygwin/dev/build-myproj.xml")
+    ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
+     1 nil 54 "G:/cygwin/dev/build-myproj.xml")
+    ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted"
+     1 nil 27041 "{standard input}")
+    ;; lcc
+    ("E, file.cc(35,52) Illegal operation on pointers" 1 51 35 "file.cc")
+    ("W, file.cc(36,52) blah blah" 1 51 36 "file.cc")
+    ;; makepp
+    ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c")
+    ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c")
+    ("makepp: bla bla `/foo/Makeppfile:12' bla" 18 nil 12 "/foo/Makeppfile")
+    ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h")
+    ;; maven
+    ("FooBar.java:[111,53] no interface expected here"
+     1 52 111 "FooBar.java")
+    ;; mips-1 mips-2
+    ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation"
+     11 nil 255 "solomon.c")
+    ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation"
+     70 nil 93 "solomo.c")
+    ("name defined but never used: LinInt in cmap_calc.c(199)"
+     40 nil 199 "cmap_calc.c")
+    ;; msft
+    ("keyboard handler.c(537) : warning C4005: 'min' : macro redefinition"
+     1 nil 537 "keyboard handler.c")
+    ("d:\\tmp\\test.c(23) : error C2143: syntax error : missing ';' before 'if'"
+     1 nil 23 "d:\\tmp\\test.c")
+    ("d:\\tmp\\test.c(1145) : see declaration of 'nsRefPtr'"
+     1 nil 1145 "d:\\tmp\\test.c")
+    ;; watcom
+    ("..\src\ctrl\lister.c(109): Error! E1009: Expecting ';' but found '{'"
+     1 nil 109 "..\src\ctrl\lister.c")
+    ("..\src\ctrl\lister.c(120): Warning! W201: Unreachable code"
+     1 nil 120 "..\src\ctrl\lister.c")
+    ;; oracle
+    ("Semantic error at line 528, column 5, file erosacqdb.pc:"
+     1 4 528 "erosacqdb.pc")
+    ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp"
+     1 9 41 "/usr/src/sb/ODBI_BHP.hpp")
+    ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc"
+     1 26 49 "/usr/src/sb/ODBI_dxfgh.pc")
+    ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp"
+     1 nil 12 "/usr/src/sb/ODBI_BHP.hpp")
+    ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp"
+     1 nil 27 "/usr/src/sb/ODBI_BHP.hpp")
+    ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:"
+     1 39 21 "/usr/src/sb/ODBI_BHP.hpp")
+    ;; perl
+    ("syntax error at automake line 922, near \"':'\""
+     14 nil 922 "automake")
+    ("Died at test.pl line 27."
+     6 nil 27 "test.pl")
+    ("store::odrecall('File_A', 'x2') called at store.pm line 90"
+     40 nil 90 "store.pm")
+    ("\t(in cleanup) something bad at foo.pl line 3 during global destruction."
+     29 nil 3 "foo.pl")
+    ("GLib-GObject-WARNING **: /build/buildd/glib2.0-2.14.5/gobject/gsignal.c:1741: instance `0x8206790' has no handler with id `1234' at t-compilation-perl-gtk.pl line 3."
+     130 nil 3 "t-compilation-perl-gtk.pl")
+    ;; php
+    ("Parse error: parse error, unexpected $ in main.php on line 59"
+     1 nil 59 "main.php")
+    ("Fatal error: Call to undefined function: mysql_pconnect() in db.inc on line 66"
+     1 nil 66 "db.inc")
+    ;; ruby
+    ("plain-exception.rb:7:in `fun': unhandled exception"
+     1 nil 7 "plain-exception.rb")
+    ("\tfrom plain-exception.rb:3:in `proxy'" 2 nil 3 "plain-exception.rb")
+    ("\tfrom plain-exception.rb:12" 2 nil 12 "plain-exception.rb")
+    ;; ruby-Test::Unit
+    ;; FIXME
+    ("    [examples/test-unit.rb:28:in `here_is_a_deep_assert'"
+     5 nil 28 "examples/test-unit.rb")
+    ("     examples/test-unit.rb:19:in `test_a_deep_assert']:"
+     6 nil 19 "examples/test-unit.rb")
+    ("examples/test-unit.rb:10:in `test_assert_raise'"
+     1 nil 10 "examples/test-unit.rb")
+    ;; rxp
+    ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml"
+     1 7 71 "/home/reto/test/group.xml")
+    ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml"
+     1 7 4 "/home/reto/test/group.xml")
+    ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example
+    ("Thu May 14 10:46:12 1992  mom3.p:"
+     1 nil nil "mom3.p")
+    ;; sun
+    ("cc-1020 CC: REMARK File = CUI_App.h, Line = 735"
+     13 nil 735 "CUI_App.h")
+    ("cc-1070 cc: WARNING File = linkl.c, Line = 38"
+     13 nil 38 "linkl.c")
+    ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3"
+     18 2 16 "Hoved.f90")
+    ;; sun-ada
+    ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted"
+     1 5 361 "/home3/xdhar/rcds_rc/main.a")
+    ;; 4bsd
+    ("/usr/src/foo/foo.c(8): warning: w may be used before set"
+     1 nil 8 "/usr/src/foo/foo.c")
+    ("/usr/src/foo/foo.c(9): error: w is used before set"
+     1 nil 9 "/usr/src/foo/foo.c")
+    ("strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)"
+     44 nil 8 "/usr/src/foo/foo.c")
+    ("bloofle defined( /users/wolfgang/foo.c(4) ), but never used"
+     18 nil 4 "/users/wolfgang/foo.c")
+    ;; perl--Pod::Checker
+    ;; FIXME
+    ;; *** ERROR: Spurious text after =cut at line 193 in file foo.pm
+    ;; *** ERROR: =over on line 37 without closing =back at line EOF in file bar.pm
+    ;; *** ERROR: =over on line 1 without closing =back (at head1) at line 3 in file x.pod
+    ;; perl--Test
+    ("# Failed test 1 in foo.t at line 6"
+     1 nil 6 "foo.t")
+    ;; perl--Test::Harness
+    ("NOK 1# Test 1 got: \"1234\" (t/foo.t at line 46)"
+     1 nil 46 "t/foo.t")
+    ;; weblint
+    ("index.html (13:1) Unknown element <fdjsk>"
+     1 0 13 "index.html"))
+  "List of tests for `compilation-error-regexp-alist'.
+Each element has the form (STR POS COLUMN LINE FILENAME), where
+STR is an error string, POS is the position of the error in STR,
+COLUMN and LINE are the reported column and line numbers (or nil)
+for that error, and FILENAME is the reported filename.
+
+LINE can also be of the form (LINE . END-LINE) meaning a range of
+lines.  COLUMN can also be of the form (COLUMN . END-COLUMN)
+meaning a range of columns starting on LINE and ending on
+END-LINE, if that matched.")
+
+(defun compile--test-error-line (test)
+  (erase-buffer)
+  (setq compilation-locs (make-hash-table))
+  (insert (car test))
+  (compilation-parse-errors (point-min) (point-max))
+  (let ((msg (get-text-property (nth 1 test) 'compilation-message)))
+    (when msg
+      (let ((loc (compilation--message->loc msg))
+	    (col  (nth 2 test))
+	    (line (nth 3 test))
+	    (file (nth 4 test))
+	    end-col end-line)
+	(if (consp col)
+	    (setq end-col (cdr col) col (car col)))
+	(if (consp line)
+	    (setq end-line (cdr line) line (car line)))
+	(and (equal (compilation--loc->col loc) col)
+	     (equal (compilation--loc->line loc) line)
+	     (equal (caar (compilation--loc->file-struct loc)) file)
+	     (or (null end-col)
+	     	 (equal (car (cadr (nth 2 (compilation--loc->file-struct loc))))
+	     		end-col))
+	     (equal (car (nth 2 (compilation--loc->file-struct loc)))
+	     	    (or end-line line)))))))
+
+(ert-deftest compile-test-error-regexps ()
+  "Test the `compilation-error-regexp-alist' regexps.
+The test data is in `compile-tests--test-regexps-data'."
+  (with-temp-buffer
+    (font-lock-mode -1)
+    (dolist (test compile-tests--test-regexps-data)
+      (should (compile--test-error-line test)))))
+
+;;; compile-tests.el ends here.