t/t92samples.t

   1 #!perl -w
   2 # packaging test - make sure we included the samples in the MANIFEST <sigh>
   3 use lib 't';
   4 use Test::More;
   5 use ExtUtils::Manifest qw(maniread);
   6
   7 # first build a list of samples from samples/README
   8 open SAMPLES, "< samples/README"
   9   or die "Cannot open samples/README: $!";
  10 my @sample_files;
  11 while (<SAMPLES>) {
  12   chomp;
  13   /^\w[\w.-]+\.\w+$/ and push @sample_files, $_;
  14 }
  15
  16 close SAMPLES;
  17
  18 plan tests => scalar(@sample_files);
  19
  20 my $manifest = maniread();
  21
  22 for my $filename (@sample_files) {
  23   ok(exists($manifest->{"samples/$filename"}),
  24      "sample file $filename in manifest");
  25 }