2 # packaging test - make sure we included the samples in the MANIFEST <sigh>
4 use ExtUtils::Manifest qw(maniread);
6 # first build a list of samples from samples/README
7 open SAMPLES, "< samples/README"
8 or die "Cannot open samples/README: $!";
12 /^\w[\w.-]+\.\w+$/ and push @sample_files, $_;
17 plan tests => scalar(@sample_files);
19 my $manifest = maniread();
21 for my $filename (@sample_files) {
22 ok(exists($manifest->{"samples/$filename"}),
23 "sample file $filename in manifest");