*** compile.el.~1.282.~	Wed Nov 26 09:29:21 2003
--- compile.el	Tue Dec  2 15:43:25 2003
*************** (defvar compilation-error-regexp-alist
*** 339,344 ****
--- 339,354 ----
      ;; store::odrecall('File_A', 'x2') called at store.pm line 90
      (".* at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 1 2)
  
+     ;; Perl "Test" module:
+     ;;  # Failed test 2 in foo.pl at line 6
+     ;;  # Test 3 got: '0' (foo.pl at line 7)
+     ;; Expected failures (don't match these):
+     ;;  # Failed test 5 in foo.pl at line 10 *TODO*
+     ;;  # Test 6 got: '0' (foo.pl at line 11 *TODO*)
+     ;; Unexpected success:
+     ;;  ok 8 # (foo.pl at line 14 TODO?!)
+     (".*\\((\\| in \\)\\([^ \n]+\\) at line \\([0-9]+\\)\\(\n\\|)\\| TODO\\?!)\\)" 2 3)
+ 
      ;; Oracle pro*c:
      ;; Semantic error at line 528, column 5, file erosacqdb.pc:
      ("Semantic error at line \\([0-9]+\\), column \\([0-9]+\\), file \\(.*\\):"