3 use Image::Size qw(imgsize);
5 eval { require Apache::FakeRequest; };
7 plan skip_all => 'skip Apache::FakeRequest not found';
13 my $request = Apache::FakeRequest->new('get_remote_host' => 'localhost');
15 Apache::Gallery::resizepicture($request, 't/002_inpng.png', 't/inpng-resized.png', 10, 10, 0, '');
16 Apache::Gallery::resizepicture($request, 't/002_injpg.jpg', 't/injpg-resized.jpg', 10, 10, 0, '');
17 my ($pngwidth, $pngheight)=imgsize('t/inpng-resized.png');
18 my ($jpgwidth, $jpgheight)=imgsize('t/injpg-resized.jpg');
20 is ($pngwidth, 10, 'PNG Width') or diag('You need to install libpng before libimlib');
21 is ($pngheight, 10, 'PNG Height') or diag('You need to install libpng before libimlib');
22 is ($jpgwidth, 10, 'JPG Width') or diag('You need to install libjpeg before libimlib');
23 is ($jpgheight, 10, 'JPG Height') or diag('You need to install libjpeg before libimlib');
25 unlink('t/inpng-resized.png');
26 unlink('t/injpg-resized.jpg');