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