t/examples.t

   1 #!/usr/bin/perl
   2 use 5.014000;
   3 use warnings;
   4
   5 use IO::Handle;
   6 use Mafia;
   7
   8 my @examples;
   9 BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
  10 use Test::More tests => scalar @examples;
  11
  12 for my $example (@examples) {
  13         my $out;
  14         close STDOUT;
  15         open STDOUT, '>', \$out;
  16         clean;
  17
  18         my $ok = join '', IO::File->new("$example.out", '<')->getlines;
  19         do "$example.pl";
  20         is $out, $ok, substr $example, length 't/examples/'
  21 }