File: 005_imageinfo.t

package info (click to toggle)
libapache-gallery-perl 1.0.2-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,260 kB
  • sloc: perl: 1,281; sh: 21; makefile: 13
file content (17 lines) | stat: -rw-r--r-- 398 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Apache::Gallery;
use Test::More;

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

	plan tests => 1;

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

	my $info = Apache::Gallery::get_imageinfo($request, "t/005_jpg.jpg", "JPG", 15, 11);

	is ( $info->{Comment}, "Created with The GIMP", 'Comment');
}