t/examples.t

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