From: Vincent Pit Date: Sat, 15 Aug 2009 08:50:30 +0000 (+0200) Subject: Get rid of t/90-boilerplate.t X-Git-Tag: v0.08~20 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=4c42ce6b627580e8aff003ac0870c5bf5cc4270d;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git Get rid of t/90-boilerplate.t --- diff --git a/MANIFEST b/MANIFEST index d3119b9..7e6be1b 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1,5 +1,6 @@ Changes MANIFEST +META.yml Makefile.PL README lib/CPANPLUS/Dist/Gentoo.pm @@ -9,9 +10,7 @@ samples/gengentooisms t/00-load.t t/11-maps-name.t t/12-maps-version.t -t/90-boilerplate.t t/91-pod.t t/92-pod-coverage.t t/95-portability-files.t t/99-kwalitee.t -META.yml Module meta-data (added by MakeMaker) diff --git a/t/90-boilerplate.t b/t/90-boilerplate.t deleted file mode 100644 index f743770..0000000 --- a/t/90-boilerplate.t +++ /dev/null @@ -1,49 +0,0 @@ -#!perl -T - -use strict; -use warnings; -use Test::More tests => 3; - -sub not_in_file_ok { - my ($filename, %regex) = @_; - open( my $fh, '<', $filename ) - or die "couldn't open $filename for reading: $!"; - - my %violated; - - while (my $line = <$fh>) { - while (my ($desc, $regex) = each %regex) { - if ($line =~ $regex) { - push @{$violated{$desc}||=[]}, $.; - } - } - } - - if (%violated) { - fail("$filename contains boilerplate text"); - diag "$_ appears on lines @{$violated{$_}}" for keys %violated; - } else { - pass("$filename contains no boilerplate text"); - } -} - -sub module_boilerplate_ok { - my ($module) = @_; - not_in_file_ok($module => - 'the great new $MODULENAME' => qr/ - The great new /, - 'boilerplate description' => qr/Quick summary of what the module/, - 'stub function definition' => qr/function[12]/, - ); -} - -not_in_file_ok(README => - "The README is used..." => qr/The README is used/, - "'version information here'" => qr/to provide version information/, -); - -not_in_file_ok(Changes => - "placeholder date/time" => qr(Date/time) -); - -module_boilerplate_ok('lib/CPANPLUS/Dist/Gentoo.pm'); -