# Copyright 2010 Kevin Ryde.

# This file is part of miscbits-el.
#
# miscbits-el is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 3, or (at your option) any later
# version.
#
# miscbits-el is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with miscbits-el; see the file COPYING.  Failing that, go to
# <http://www.gnu.org/licenses/>.


eval (progn (compilation-mode) (font-lock-mode 1))
to see this file match-ized 


-------------------------------------------------------------------------------
Test::Harness output


1..1
# Running under perl version 5.008008 for linux
# Current time local: Sat Dec 29 11:17:19 2007
# Current time GMT:   Sat Dec 29 00:17:19 2007
# Using Test.pm version 1.25
not ok 1
# Failed test 1 in t-compilation-perl.t at line 5
#  t-compilation-perl.t line 5 is: ok(0);
not ok 2
# Test 2 got: "123" (t-compilation-perl.t at line 6)
#   Expected: "456"
#  t-compilation-perl.t line 6 is: ok(123,456);
t-compilation-perl-2....
                                                                             
t-compilation-perl-2....NOK 1# Failed test 1 in t-compilation-perl-2.t at line 8
#  t-compilation-perl-2.t line 8 is: ok(0);

                                                                             
t-compilation-perl-2....NOK 2# Test 2 got: "xx" (t-compilation-perl-2.t at line 10)
#   Expected: "yy"
#  t-compilation-perl-2.t line 10 is: ok('xx','yy');

                                                                             
t-compilation-perl-2....FAILED tests 1-2
	Failed 2/1 tests, -100.00% okay
Failed Test            Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t-compilation-perl-2.t                1    3 300.00%  1-2
Failed 1/1 test scripts, 0.00% okay. 1/1 subtests failed, 0.00% okay.








-------------------------------------------------------------------------------
(progn
  (normal-mode)
;  (setq compilation-error-regexp-alist '(perl--Test2))
;  (setq compilation-error-regexp-alist '(compilation-perl--Test2))
;  (setq compilation-error-regexp-alist (mapcar 'car compilation-error-regexp-alist-alist))
  (compilation-mode)
  (font-lock-mode 1))
