6 # test dim(), html_dim() and image_info()
13 use_ok
("Image::Info") or die($@
);
16 use Image
::Info
qw(image_info dim);
18 my $i = image_info
("../img/test.png") ||
19 die ("Couldn't read test.png: $!");
21 #use Data::Dump; print Data::Dump::dump($i), "\n";
23 is
($i->{color_type
}, 'Indexed-RGB', 'color_type');
24 is
($i->{LastModificationTime
}, "1999-12-25 22:29:06", 'LastModificationTime');
26 is
(dim
($i), '400x300', 'dim()');