The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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__