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: compile regexp perl Test module Date: Wed, 03 Dec 2003 06:56:46 +1000 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <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 1070406084 7774 80.91.224.253 (2 Dec 2003 23:01:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 2 Dec 2003 23:01:24 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Wed Dec 03 00:01:22 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1ARJWE-0007Mc-00 for ; Wed, 03 Dec 2003 00:01:22 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1ARJWE-0004Ox-00 for ; Wed, 03 Dec 2003 00:01:22 +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 1ARK4y-0008Lc-Ct for emacs-devel@quimby.gnus.org; Tue, 02 Dec 2003 18:37:16 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1ARIhL-000587-1k for emacs-devel@gnu.org; Tue, 02 Dec 2003 17:08:47 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1ARIg9-0004oG-8T for emacs-devel@gnu.org; Tue, 02 Dec 2003 17:08:04 -0500 Original-Received: from [61.8.0.36] (helo=snoopy.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.24) id 1ARIXR-0002bP-Ju for emacs-devel@gnu.org; Tue, 02 Dec 2003 16:58:33 -0500 Original-Received: from mongrel.pacific.net.au (mongrel.pacific.net.au [61.8.0.107]) by snoopy.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id hB2Kv0no030950 for ; Wed, 3 Dec 2003 07:57:00 +1100 Original-Received: from localhost (ppp144.dyn11.pacific.net.au [61.8.11.144]) by mongrel.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id hB2Kuxxs010504 for ; Wed, 3 Dec 2003 07:56:59 +1100 Original-Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 1ARHZf-0000mT-00; Wed, 03 Dec 2003 06:56:47 +1000 Original-To: emacs-devel@gnu.org User-Agent: Gnus/5.1003 (Gnus v5.10.3) 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:18295 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:18295 --=-=-= 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 --=-=-=--