X-Git-Url: http://git.ieval.ro/?p=mafia.git;a=blobdiff_plain;f=t%2Fexamples.t;fp=t%2Fexamples.t;h=60f00fb2fba8ca15395a0610de813282f456107f;hp=b97b8e7b31a53cb1e98ced8be49daa8415e42a17;hb=40af1ba20d91ba52d7b3db23afc0f1b9cafd04aa;hpb=86ad791ba84fa9f8699e6a20519be8a6e054f2d7 diff --git a/t/examples.t b/t/examples.t index b97b8e7..60f00fb 100644 --- a/t/examples.t +++ b/t/examples.t @@ -8,12 +8,12 @@ BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' }; use Test::More tests => scalar @examples; for my $example (@examples) { - my $out; - close STDOUT; - open STDOUT, '>', \$out; - clean; + my $out; + close STDOUT; + open STDOUT, '>', \$out; + clean; - my $ok = read_file "$example.out"; - eval scalar read_file "$example.pl"; - is $out, $ok, scalar fileparse $example + my $ok = read_file "$example.out"; + eval scalar read_file "$example.pl"; + is $out, $ok, scalar fileparse $example }