t/examples.t

   1 #!/usr/bin/perl -w
   2 use File::Basename qw/fileparse/;
   3 use File::Slurp qw/read_file/;
   4 use Mafia;
   5
   6 my @examples;
   7 BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
   8 use Test::More tests => scalar @examples;
   9
  10 for my $example (@examples) {
  11   my $out;
  12   close STDOUT;
  13   open STDOUT, '>', \$out;
  14   clean;
  15
  16   my $ok = read_file "$example.out";
  17   eval scalar read_file "$example.pl";
  18   is $out, $ok, scalar fileparse $example
  19 }