request more information

[git.ikiwiki.info.git] / t / img.t

diff --git a/t/img.t b/t/img.t
index 05a91aff696b1ee51a5e7354c0c92b72ed9a4028..20c960500f8de136a9d8565eaa825d926d017af8 100755 (executable)
--- a/t/img.t
+++ b/t/img.t
@@ -13,6 +13,7 @@ package IkiWiki;
 
 use warnings;
 use strict;
 
 use warnings;
 use strict;

+use Cwd qw(getcwd);

 use Test::More;
 plan(skip_all => "Image::Magick not available")
        unless eval q{use Image::Magick; 1};
 use Test::More;
 plan(skip_all => "Image::Magick not available")
        unless eval q{use Image::Magick; 1};


@@ -27,10 +28,10 @@ if ($installed) {
 }
 else {
        ok(! system("make -s ikiwiki.out"));
 }
 else {
        ok(! system("make -s ikiwiki.out"));

-       @command = qw(perl -I. ./ikiwiki.out
+       @command = ("perl", "-I".getcwd, qw(./ikiwiki.out

                --underlaydir=underlays/basewiki
                --set underlaydirbase=underlays
                --underlaydir=underlays/basewiki
                --set underlaydirbase=underlays

-               --templatedir=templates);
+               --templatedir=templates));

 }
 
 push @command, qw(--set usedirs=0 --plugin img t/tmp/in t/tmp/out --verbose);
 }
 
 push @command, qw(--set usedirs=0 --plugin img t/tmp/in t/tmp/out --verbose);


@@ -106,7 +107,7 @@ sub size($) {
        my $filename = shift;
        my $im = Image::Magick->new();
        my $r = $im->Read(":$filename");
        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}";
        my $w = $im->Get("width");
        my $h = $im->Get("height");
        return "${w}x${h}";