-#!/usr/bin/perl -w
-use File::Basename qw/fileparse/;
-use File::Slurp qw/read_file/;
+#!/usr/bin/perl
+use 5.014000;
+use warnings;
+
+use IO::Handle;
use Mafia;
my @examples;
open STDOUT, '>', \$out;
clean;
- my $ok = read_file "$example.out";
- eval scalar read_file "$example.pl";
- is $out, $ok, scalar fileparse $example
+ my $ok = join '', IO::File->new("$example.out", '<')->getlines;
+ do "$example.pl";
+ is $out, $ok, substr $example, length 't/examples/'
}