Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (19 sloc) 577 Bytes
#!perl -w
# packaging test - make sure we included the samples in the MANIFEST <sigh>
use Test::More;
use ExtUtils::Manifest qw(maniread);
# first build a list of samples from samples/README
open SAMPLES, "< samples/README"
or die "Cannot open samples/README: $!";
my @sample_files;
while (<SAMPLES>) {
/^\w[\w.-]+\.\w+$/ and push @sample_files, $_;
close SAMPLES;
plan tests => scalar(@sample_files);
my $manifest = maniread();
for my $filename (@sample_files) {
"sample file $filename in manifest");
Jump to Line
Something went wrong with that request. Please try again.