]> git.donarmstrong.com Git - deb_pkgs/libapache-gallery-perl.git/blob - t/005_imageinfo.t
import Apache2::Const::REDIRECT
[deb_pkgs/libapache-gallery-perl.git] / t / 005_imageinfo.t
1 use Apache::Gallery;
2 use Test::More;
3
4 eval { require Apache::FakeRequest; };
5 if ($@) {
6         plan skip_all => 'skip Apache::FakeRequest not found';
7 }
8 else {
9
10         plan tests => 1;
11
12         my $request = Apache::FakeRequest->new('get_remote_host' => 'localhost');
13
14         my $info = Apache::Gallery::get_imageinfo($request, "t/005_jpg.jpg", "JPG", 15, 11);
15
16         is ( $info->{Comment}, "Created with The GIMP", 'Comment');
17 }