aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/img.t15
1 files changed, 14 insertions, 1 deletions
diff --git a/t/img.t b/t/img.t
index 6049042c2..e42d85353 100755
--- a/t/img.t
+++ b/t/img.t
@@ -105,8 +105,21 @@ ok(! system(@command, '--set-yaml', 'img_allowed_formats=[JPEG, PNG, svg, pdf]')
sub size($) {
my $filename = shift;
+ my $decoder;
+ if ($filename =~ m/\.png$/i) {
+ $decoder = 'png';
+ }
+ elsif ($filename =~ m/\.jpe?g$/i) {
+ $decoder = 'jpeg';
+ }
+ elsif ($filename =~ m/\.bmp$/i) {
+ $decoder = 'bmp';
+ }
+ else {
+ die "Unexpected extension in '$filename'";
+ }
my $im = Image::Magick->new();
- my $r = $im->Read(":$filename");
+ my $r = $im->Read("$decoder:$filename");
return "no image: $r" if $r;
my $w = $im->Get("width");
my $h = $im->Get("height");