]>
iEval git - mafia.git/blob - t/examples.t
2 use File
::Basename qw
/fileparse/;
3 use File
::Slurp qw
/read_file/;
7 BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
8 use Test
::More tests
=> scalar @examples;
10 for my $example (@examples) {
13 open STDOUT
, '>', \
$out;
16 my $ok = read_file
"$example.out";
17 eval scalar read_file
"$example.pl";
18 is
$out, $ok, scalar fileparse
$example
This page took 0.050475 seconds and 4 git commands to generate.