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
}