#!/usr/bin/perl
+use utf8;
use warnings;
use strict;
+use Encode;
use Test::More;
BEGIN {
my @command;
if ($installed) {
- @command = qw(ikiwiki);
+ @command = qw(ikiwiki --plugin inline);
}
else {
ok(! system("make -s ikiwiki.out"));
my $cgi = CGI->new($args{params});
my $query_string = $cgi->query_string();
+ diag $query_string;
if ($method eq 'POST') {
$defaults{REQUEST_METHOD} = 'POST';
} keys(%envvars);
});
- return $out;
+ return decode_utf8($out);
}
sub run_git {
my ($in, $out);
ok(run(['git', @$args], \$in, \$out, init => sub {
chdir 't/tmp/in' or die $!;
- $ENV{EMAIL} = 'nobody@ikiwiki-tests.invalid';
+ my $name = 'The IkiWiki Tests';
+ my $email = 'nobody@ikiwiki-tests.invalid';
+ if ($args->[0] eq 'commit') {
+ $ENV{GIT_AUTHOR_NAME} = $ENV{GIT_COMMITTER_NAME} = $name;
+ $ENV{GIT_AUTHOR_EMAIL} = $ENV{GIT_COMMITTER_EMAIL} = $email;
+ }
}), "$desc at $filename:$line");
return $out;
}
write_old_file('doc/writable/two.mdwn', 't/tmp/in', 'This is the second test page');
write_old_file('doc/writable/three.mdwn', 't/tmp/in', 'This is the third test page');
write_old_file('doc/writable/three.bin', 't/tmp/in', 'An attachment');
+ write_old_file('doc/writable/blog.mdwn', 't/tmp/in',
+ '[[!inline pages="writable/blog/*" actions=yes rootpage=writable/blog postform=yes show=0]]');
+ write_old_file('doc/writable/__172__blog.mdwn', 't/tmp/in',
+ '[[!inline pages="writable/¬blog/*" actions=yes rootpage="writable/¬blog" postform=yes show=0]]');
+ write_old_file('doc/writable/中文.mdwn', 't/tmp/in',
+ '[[!inline pages="writable/中文/*" actions=yes rootpage="writable/中文" postform=yes show=0]]');
unless ($installed) {
ok(! system(qw(cp -pRL doc/wikiicons t/tmp/in/doc/)));
like($content, qr{This is the first test page});
my $orig_sha1 = run_git(['rev-list', '--max-count=1', 'HEAD']);
+ # We have to wait 1 second here so that new writes are guaranteed
+ # to have a strictly larger mtime.
+ sleep 1;
+
# Test the git hook, which accepts git commits
writefile('doc/writable/one.mdwn', 't/tmp/in',
'This is new content for the first test page');
$content = readfile('t/tmp/in/two.mdwn');
like($content, qr{Here is new content for the second page});
+ # We have to wait 1 second here so that new writes are guaranteed
+ # to have a strictly larger mtime.
+ sleep 1;
+
# This one can legitimately be reverted
$content = run_cgi(method => 'post',
params => {
like($content, qr{This is the third test page});
$content = readfile('t/tmp/out/writable/three.bin');
like($content, qr{An attachment});
+
+ $content = readfile('t/tmp/out/writable/blog/index.html');
+ like($content, qr{<input type="hidden" name="from" value="writable/blog"});
+ $content = run_cgi(method => 'get',
+ params => {
+ do => 'blog',
+ from => 'writable/blog',
+ subpage => '1',
+ title => 'hello',
+ },
+ );
+ like($content, qr{<option selected="selected" value="writable/blog/hello">writable/blog/hello</option>});
+
+ # Regression test for a bug in which we couldn't use an
+ # alphanumeric, but non-ASCII, root page.
+ $content = readfile('t/tmp/out/writable/中文/index.html');
+ like($content, qr{<input type="hidden" name="from" value="writable/中文"});
+ $content = run_cgi(method => 'get',
+ params => {
+ do => 'blog',
+ from => 'writable/中文',
+ subpage => '1',
+ title => 'hello',
+ },
+ );
+ like($content, qr{<option selected="selected" value="writable/中文/hello">writable/中文/hello</option>});
+ unlike($content, qr{Error: bad page name});
}
test();