3 ##############################################################################
4 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/20_policy_requireconsistentnewlines.t $
5 # $Date: 2008-06-06 00:48:04 -0500 (Fri, 06 Jun 2008) $
8 ##############################################################################
13 use Test::More tests => 29;
15 # common P::C testing tools
16 use Perl::Critic::TestUtils qw(pcritique fcritique);
17 Perl::Critic::TestUtils::block_perlcriticrc();
20 my $policy = 'CodeLayout::RequireConsistentNewlines';
22 my $base_code = <<'END_PERL';
24 my $str = <<"HEREDOC";
46 is( fcritique($policy, \$base_code), 0, $policy );
48 my @lines = split m/\n/mx, $base_code;
49 for my $keyword (qw( Pkg; heredoc_body HEREDOC POD_HEADER pod =cut
50 comment_line inline_comment
51 __END__ end_body __DATA__ DataLine1 DataLine2 )) {
52 my $is_first_line = $lines[0] =~ m/\Q$keyword\E\z/mx;
53 my $nfail = $is_first_line ? @lines-1 : 1;
54 for my $nl ("\012", "\015", "\015\012") {
56 ($code = $base_code) =~ s/(\Q$keyword\E)\n/$1$nl/;
57 is( fcritique($policy, \$code), $nfail, $policy.' - '.$keyword );
61 for my $nl ("\012", "\015", "\015\012") {
63 ($code = $base_code) =~ s/\n/$nl/;
64 is( pcritique($policy, \$code), 0, $policy.' - no filename' );
69 # cperl-indent-level: 4
71 # indent-tabs-mode: nil
72 # c-indentation-style: bsd
74 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :