Bio-GeneDesign
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More tests => 13;
sub not_in_file_ok
{
my ($filename, %regex) = @_;
open(my $fh, '<', $filename) || die "couldn't open $filename for reading: $!";
my $ref = do {local $/; <$fh>};
close $fh;
my @data = split(m{\n}msx, $ref);
my %violated;
t/boilerplate.t view on Meta::CPAN
else
{
pass("$filename contains no boilerplate text");
}
return;
}
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]/,
);
return;
}
TODO:
{
local $TODO = "Need to replace the boilerplate text";
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/Bio/GeneDesign.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/Basic.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/CodonJuggle.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/Codons.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/Graph.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/Oligo.pm');
module_boilerplate_ok('lib/Bio/GeneDesign/Random.pm');
( run in 0.695 second using v1.01-cache-2.11-cpan-0a987023a57 )