9 BEGIN { @examples = map { s/\.pl//r } glob 't/examples/*.pl' };
10 use Test
::More tests
=> scalar @examples;
12 for my $example (@examples) {
15 open STDOUT
, '>', \
$out;
18 my $ok = join '', IO
::File
->new("$example.out", '<')->getlines;
20 is
$out, $ok, substr $example, length 't/examples/'
This page took 0.023655 seconds and 5 git commands to generate.