t/img.t: Give better diagnostics if we can't load an image

diff --git a/t/img.t b/t/img.t
index 228f09a0e871e534c9bb1b426cf7bb0b20f3a0c7..20c960500f8de136a9d8565eaa825d926d017af8 100755 (executable)
--- a/t/img.t
+++ b/t/img.t
@@ -107,7 +107,7 @@ sub size($) {
        my $filename = shift;
        my $im = Image::Magick->new();
        my $r = $im->Read(":$filename");
-       return "no image" if $r;
+       return "no image: $r" if $r;
        my $w = $im->Get("width");
        my $h = $im->Get("height");
        return "${w}x${h}";