The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use FindBin;
use Test::More tests => 5;

BEGIN { use_ok( 'Image::Info' ) }

my @widths = qw/10 10/;

for(0..1) {
    my $info = Image::Info::image_info("$FindBin::Bin/../img/test$_-fuji.jpg");
    is($info->{error}, undef, "No error for test$_-fuji.jpg");
    is($info->{width}, $widths[$_], "Correct width detected");
}