From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.devel Subject: Re: compile regexp perl Test module Date: Mon, 16 Feb 2004 10:43:36 +1000 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87oerzx39j.fsf@zip.com.au> References: <87n0abndkh.fsf@zip.com.au> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1076892725 16095 80.91.224.253 (16 Feb 2004 00:52:05 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 16 Feb 2004 00:52:05 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Mon Feb 16 01:51:57 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AsWzM-0001nU-00 for ; Mon, 16 Feb 2004 01:51:56 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1AsWzM-0000Yu-00 for ; Mon, 16 Feb 2004 01:51:56 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AsWvB-0006vy-Vr for emacs-devel@quimby.gnus.org; Sun, 15 Feb 2004 19:47:37 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AsWs3-00068e-Tb for emacs-devel@gnu.org; Sun, 15 Feb 2004 19:44:23 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AsWrV-0005pV-FT for emacs-devel@gnu.org; Sun, 15 Feb 2004 19:44:22 -0500 Original-Received: from [61.8.0.85] (helo=mailout2.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AsWrU-0005nV-53 for emacs-devel@gnu.org; Sun, 15 Feb 2004 19:43:48 -0500 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.0.86]) by mailout2.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1G0hj5O027347 for ; Mon, 16 Feb 2004 11:43:45 +1100 Original-Received: from localhost (ppp183.dyn10.pacific.net.au [61.8.10.183]) by mailproxy1.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1G0hi0H019351 for ; Mon, 16 Feb 2004 11:43:44 +1100 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1AsWrI-00015B-00; Mon, 16 Feb 2004 10:43:36 +1000 Original-To: emacs-devel@gnu.org User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:19959 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:19959 --=-=-= Not sure if this didn't find favour, or was just lost while the cvs was down. Re-posting in case it was the latter: The format of the failure messages from the perl "Test" module is not quite the same as from its normal compiling, * progmodes/compile.el (compilation-error-regexp-alist): Add perl "Test" module error messages. I've only ever bothered with the plain ok(X) form myself, which is the first message shown in the comment, but I added the other styles too. Sample foo.pl I used below. --=-=-= Content-Disposition: attachment; filename=compile.el.perl-test.diff *** 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 \\(.*\\):" --=-=-= Content-Type: application/x-perl Content-Disposition: attachment; filename=foo.pl use Test; BEGIN { plan tests => 123, todo => [5,6,7,8,9,10] } ok (1); ok (0); # fail ok (0,1); # fail, compare style ok (0,1,'extra text'); # fail, with message ok (0); # expected fail ok (0,1); # expected fail, compare style ok (0,1,'extra text'); # expected fail, with message ok (1); # unexpected success ok (1,1,'extra text'); # unexpected success, compare style ok (1,1,'extra text'); # unexpected success, with message --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel --=-=-=--