Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (19 sloc) 0.577 kB
#!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>) {
chomp;
/^\w[\w.-]+\.\w+$/ and push @sample_files, $_;
}
close SAMPLES;
plan tests => scalar(@sample_files);
my $manifest = maniread();
for my $filename (@sample_files) {
ok(exists($manifest->{"samples/$filename"}),
"sample file $filename in manifest");
}
Jump to Line
Something went wrong with that request. Please try again.