- my $ok = read_file "$example.out";
- eval scalar read_file "$example.pl";
- is $out, $ok, scalar fileparse $example
+ do(rel2abs($example));
+ $example =~ s/\.pl$//;
+ my $ok = join '', IO::File->new("$example.out", '<')->getlines;
+ is $out, $ok, substr $example, length 't/examples/'