]>
Commit | Line | Data |
---|---|---|
344e176e MG |
1 | #!/usr/bin/perl |
2 | use 5.014000; | |
3 | use warnings; | |
4 | ||
5 | use IO::Handle; | |
f1171346 MG |
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) { | |
40af1ba2 MG |
13 | my $out; |
14 | close STDOUT; | |
15 | open STDOUT, '>', \$out; | |
16 | clean; | |
f1171346 | 17 | |
344e176e MG |
18 | my $ok = join '', IO::File->new("$example.out", '<')->getlines; |
19 | do "$example.pl"; | |
20 | is $out, $ok, substr $example, length 't/examples/' | |
f1171346 | 21 | } |