# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1199779392 0
# Node ID bd942570a8d9eb1bdf043f5f990ff7207448afab
# Parent  8dd090420a992cc83d27c976885675060f03c2ff
Kevin Ryde  <user42 at zip.com.au>:

(compilation-error-regexp-alist-alist): Add entry for two-arg form of
the Test module ok() func.

diff -r 8dd090420a99 -r bd942570a8d9 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Jan 08 07:54:36 2008 +0000
+++ b/lisp/progmodes/compile.el	Tue Jan 08 08:03:12 2008 +0000
@@ -370,6 +370,17 @@
      ;;
      "^# 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)