view release on metacpan or  search on metacpan

t/manifest.t  view on Meta::CPAN

eval "use Test::CheckManifest 0.9";
plan skip_all => "Test::CheckManifest 0.9 required" if $@;

open( my $exclude_fh, q{<}, File::Spec->catfile( $dist_dir, 'ignore.txt' ) )
  or die "couldn't open ignore.txt: $!";

my @exclude_files = map{
  chomp;
  /\*/ ?
    glob( File::Spec->catfile( $dist_dir, $_ ) ) :
    File::Spec->catfile( $dist_dir, $_ )
} ( <$exclude_fh> );

ok_manifest({ exclude => [ @exclude_files,
			   glob( $dist_dir . 't/data/*.db' ),
			 ],
	      filter  => [qr/\.svn/,
			  qr/\.git/,
			  qr/^.*~$/,
			 ],
	      bool    => 'or',
	    });

done_testing();