]>
iEval git - mafia.git/blob - t/examples.t
6 use File
::Spec
::Functions qw
/rel2abs/;
10 BEGIN { @examples = glob 't/examples/*.pl' };
11 use Test
::More tests
=> 1 + @examples;
12 BEGIN { use_ok
('Mafia') }
14 for my $example (@examples) {
17 open STDOUT
, '>', \
$out;
21 $example =~ s/\.pl$//;
22 my $ok = join '', IO
::File
->new("$example.out", '<')->getlines;
23 is
$out, $ok, substr $example, length 't/examples/'
This page took 0.052284 seconds and 5 git commands to generate.