X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/69f8b6427ef0789ce37cef1c74c5bc6ef16e7e2f..5aeaafac7ad106e0d6a90625def01154e3abc992:/t/img.t diff --git a/t/img.t b/t/img.t index 7f1f4e4b2..1f2e7d044 100755 --- a/t/img.t +++ b/t/img.t @@ -15,10 +15,26 @@ use warnings; use strict; use Test::More; plan(skip_all => "Image::Magick not available") - unless eval q{use Image::Magick}; + unless eval q{use Image::Magick; 1}; use IkiWiki; +my $installed = $ENV{INSTALLED_TESTS}; + +my @command; +if ($installed) { + @command = qw(ikiwiki); +} +else { + ok(! system("make -s ikiwiki.out")); + @command = qw(perl -I. ./ikiwiki.out + --underlaydir=underlays/basewiki + --set underlaydirbase=underlays + --templatedir=templates); +} + +push @command, qw(--set usedirs=0 --plugin img t/tmp/in t/tmp/out --verbose); + my $magick = new Image::Magick; my $SVGS_WORK = defined $magick->QueryFormat("svg"); @@ -58,11 +74,7 @@ EOF ); ok(utime(333333333, 333333333, "t/tmp/in/imgconversions.mdwn")); -ok(! system("make -s ikiwiki.out")); - -my $command = "perl -I. ./ikiwiki.out --set usedirs=0 --templatedir=templates --plugin img t/tmp/in t/tmp/out --verbose"; - -ok(! system($command)); +ok(! system(@command)); sub size($) { my $filename = shift; @@ -98,7 +110,7 @@ is(size("$outpath/x6-a:b:c:d:e:f:g:h:i:j.png"), "6x6"); if (1) { # for easier testing writefile("imgconversions.mdwn", "t/tmp/in", "nothing to see here"); - ok(! system("$command --refresh")); + ok(! system(@command, "--refresh")); ok(! -e "$outpath/10x-simple.png"); ok(! -e "$outpath/10x-simple-svg.png");