X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/7f76e0ccc1136afbd931c9ca97d2ef07c35be979..3b9c14511a7fe32deeb918d292139a84bf093743:/t/meta.t diff --git a/t/meta.t b/t/meta.t index ab25c2f83..3b26ee7d2 100755 --- a/t/meta.t +++ b/t/meta.t @@ -1,6 +1,7 @@ #!/usr/bin/perl use warnings; use strict; +use Cwd qw(getcwd); use Test::More; use IkiWiki; @@ -8,10 +9,21 @@ my $tmp = 't/tmp'; my $srcdir = "$tmp/in"; my $destdir = "$tmp/out"; -my @command = (qw(./ikiwiki.out --plugin meta --disable-plugin htmlscrubber)); -push @command, qw(-underlaydir=underlays/basewiki); -push @command, qw(-set underlaydirbase=underlays); -push @command, qw(--templatedir=templates); +my $installed = $ENV{INSTALLED_TESTS}; + +my @command; +if ($installed) { + @command = qw(ikiwiki); +} +else { + ok(! system("make -s ikiwiki.out")); + @command = ("perl", "-I".getcwd, qw(./ikiwiki.out + --underlaydir=underlays/basewiki + --set underlaydirbase=underlays + --templatedir=templates)); +} + +push @command, qw(--plugin meta --disable-plugin htmlscrubber); push @command, $srcdir, $destdir; sub write_build_read_compare { @@ -125,12 +137,11 @@ write_build_read_compare( # qr{}, #); -# XXX buggy? is this my bug? maybe twitter:foo would just work if this worked -#write_build_read_compare( -# 'name', -# q{[[!meta name="thingy" value1="hi" value2="hello"]]}, -# qr{}, -#); +write_build_read_compare( + 'name', + q{[[!meta name="thingy" value1="hi" value2="hello"]]}, + qr{}, +); write_build_read_compare( 'keywords', @@ -149,11 +160,11 @@ write_build_read_compare( # '[[!meta twitter:card="player"]]', # qr{}, #); -# -#write_build_read_compare( -# 'twittercard2', -# '[[!meta name="twitter:card" content="player"]]', -# qr{}, -#); + +write_build_read_compare( + 'twittercard2', + '[[!meta name="twitter:card" content="player"]]', + qr{}, +); done_testing();