use Test;
BEGIN { plan tests => 3 };
use Image::Imager::Thumbnail 0.01;
ok(1);
skip (!-e 'source.jpg', &img_tests);
exit;
sub img_tests {
unlink 'source_thumb.jpg' if -e 'source_thumb.jpg';
my $tb = new Image::Imager::Thumbnail(
file_src => 'source.jpg',
file_dst => 'source_thumb.jpg',
width => 50,
height => 50
);
$tb->save;
ok (-e 'source_thumb.jpg');
unlink 'source_thumb.jpg' if -e 'source_thumb.jpg';
}
__END__