Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (29 sloc) 732 Bytes
#!perl -w
# Each sub-module ships with our custom Devel::CheckLib, make sure
# they all match
use strict;
use Test::More;
my @subs = qw(FT2 GIF JPEG PNG T1 TIFF W32);
plan tests => 1 + @subs;
# load the base file
my $base = load("inc/Devel/");
ok($base, "Loaded base file");
for my $sub (@subs) {
my $data = load("$sub/inc/Devel/");
# I'd normally use is() here, but it's excessively noisy when
# comparing this size of data
ok(defined($data) && $data eq $base, "check $sub");
sub load {
my ($filename) = @_;
if (open my $f, "<", $filename) {
my $data = do { local $/; <$f> };
close $f;
return $data;
else {
diag "Cannot load $filename: $!\n";
Jump to Line
Something went wrong with that request. Please try again.