use strict;
use warnings;
+use File::Spec::Functions qw/rel2abs/;
use IO::Handle;
my @examples;
open STDOUT, '>', \$out;
clean;
- do $example;
+ do rel2abs $example;
$example =~ s/\.pl$//;
my $ok = join '', IO::File->new("$example.out", '<')->getlines;
is $out, $ok, substr $example, length 't/examples/'