1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!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;
my $manifest = maniread();
my @mani_samples = sort grep m(^samples/\w+\.pl$), keys %$manifest;
plan tests => scalar(@sample_files) + scalar(@mani_samples);
for my $filename (@sample_files) {
ok(exists($manifest->{"samples/$filename"}),
"sample file $filename in manifest");
}
my %files = map { $_ => 1 } @sample_files;
for my $filename (@mani_samples) {
$filename =~ s(^samples/)();
ok(exists $files{$filename},
"sample $filename in manifest found in README");
}
|
