]>
iEval git - mafia.git/blob - t/examples.t
977cd6ef290bf17dc87111e2caac94f330186958
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.050285 seconds and 3 git commands to generate.