procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Kevin Ryde <user42 at zip.com.au>:

Browse source 
(compilation-error-regexp-alist-alist): Add entry for two-arg form of
the Test module ok() func.
This commit is contained in:
Glenn Morris 2008-01-08 08:03:25 +00:00
parent 10a1257e79
commit 01f179de33
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,7 +1,8 @@
2008-01-08 Kevin Ryde <user42@zip.com.au>
* progmodes/compile.el (compilation-error-regexp-alist-alist):
For perl, allow "during global destruction" at end.
For perl, allow "during global destruction" at end. Add entry for
two-arg form of the Test module ok() func.
2008-01-08 Glenn Morris <rgm@gnu.org>

11
lisp/progmodes/compile.el
View file

@ -370,6 +370,17 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
;;
"^# Failed test [0-9]+ in \\([^ \t\r\n]+\\) at line \\([0-9]+\\)"
1 2)
(compilation-perl--Test2
;; Or when comparing got/want values,
;; # Test 2 got: "xx" (t-compilation-perl-2.t at line 10)
;;
;; And under Test::Harness they're preceded by progress stuff with
;; \r and "NOK",
;; ... NOK 1# Test 1 got: "1234" (t/foo.t at line 46)
;;
"^\\(.*NOK.*\\)?# Test [0-9]+ got:.* (\\([^ \t\r\n]+\\) at line \
\\([0-9]+\\))"
2 3)
(compilation-perl--Test::Harness
;; perl Test::Harness output, eg.
;; NOK 1# Test 1 got: "1234" (t/foo.t at line 46)