view release on metacpan or  search on metacpan

t/002_graphlibs.t  view on Meta::CPAN

use Test::More;
use Apache::Gallery;
use Image::Size qw(imgsize);

eval { require Apache::FakeRequest; };
if ($@) {
  plan skip_all => 'skip Apache::FakeRequest not found';
}
else {

  plan tests => 4;

  my $request = Apache::FakeRequest->new('get_remote_host' => 'localhost');

	Apache::Gallery::resizepicture($request, 't/002_inpng.png', 't/inpng-resized.png', 10, 10, 0, '');
	Apache::Gallery::resizepicture($request, 't/002_injpg.jpg', 't/injpg-resized.jpg', 10, 10, 0, '');
	my ($pngwidth, $pngheight)=imgsize('t/inpng-resized.png');
	my ($jpgwidth, $jpgheight)=imgsize('t/injpg-resized.jpg');

	is  ($pngwidth, 10, 'PNG Width') or diag('You need to install libpng before libimlib');
	is  ($pngheight, 10, 'PNG Height') or diag('You need to install libpng before libimlib');
	is  ($jpgwidth, 10, 'JPG Width') or diag('You need to install libjpeg before libimlib');
	is  ($jpgheight, 10, 'JPG Height') or diag('You need to install libjpeg before libimlib');

	unlink('t/inpng-resized.png');
	unlink('t/injpg-resized.jpg');

}