63efb10f15f68bacb391a183ffc11f0b1b1e0c69
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.023778 seconds and 3 git commands to generate.