9 BEGIN { @examples = glob 't/examples/*.pl' };
10 use Test
::More tests
=> 1 + @examples;
11 BEGIN { use_ok
('Mafia') }
13 for my $example (@examples) {
16 open STDOUT
, '>', \
$out;
20 $example =~ s/\.pl$//;
21 my $ok = join '', IO
::File
->new("$example.out", '<')->getlines;
22 is
$out, $ok, substr $example, length 't/examples/'
This page took 0.021888 seconds and 4 git commands to generate.