#!/usr/bin/perl use warnings; use strict; use Cwd qw(getcwd); use Test::More; BEGIN { plan(skip_all => "Authen::Passphrase not available") unless eval q{ use Authen::Passphrase qw(); 1; }; plan(skip_all => "CGI not available") unless eval q{ use CGI qw(); 1; }; plan(skip_all => "IPC::Run not available") unless eval q{ use IPC::Run qw(run); 1; }; use_ok('IkiWiki'); use_ok('IkiWiki::Plugin::passwordauth'); use_ok('IkiWiki::Setup'); use_ok('IkiWiki::UserInfo'); use_ok('YAML::XS'); } # We check for English messages $ENV{LC_ALL} = 'C'; my $installed = $ENV{INSTALLED_TESTS}; my @command; if ($installed) { @command = qw(ikiwiki); } else { ok(! system("make -s ikiwiki.out")); @command = ("perl", "-I".getcwd."/blib/lib", './ikiwiki.out', '--underlaydir='.getcwd.'/underlays/basewiki', '--set', 'underlaydirbase='.getcwd.'/underlays', '--templatedir='.getcwd.'/templates'); } sub write_setup_file { my %setup = ( wikiname => 'this is the name of my wiki', srcdir => getcwd.'/t/tmp/in', destdir => getcwd.'/t/tmp/out', url => 'http://example.com', cgiurl => 'http://example.com/cgi-bin/ikiwiki.cgi', cgi_wrapper => getcwd.'/t/tmp/ikiwiki.cgi', cgi_wrappermode => '0751', add_plugins => [qw(anonok attachment lockedit passwordauth recentchanges)], adminuser => [qw(alice)], disable_plugins => [qw(emailauth openid)], locked_pages => '*', ); unless ($installed) { $setup{ENV} = { 'PERL5LIB' => getcwd.'/blib/lib' }; } writefile("test.setup", "t/tmp", "# IkiWiki::Setup::Yaml - YAML formatted setup file\n" . Dump(\%setup)); %IkiWiki::config = IkiWiki::defaultconfig(); IkiWiki::Setup::load("t/tmp/test.setup"); IkiWiki::loadplugins(); IkiWiki::checkconfig(); } sub thoroughly_rebuild { ok(unlink("t/tmp/ikiwiki.cgi") || $!{ENOENT}); ok(unlink("t/tmp/in/.git/hooks/post-commit") || $!{ENOENT}); ok(! system(@command, qw(--setup t/tmp/test.setup --rebuild --wrappers))); } sub run_cgi { my (%args) = @_; my ($in, $out); my $method = $args{method} || 'GET'; my $environ = $args{environ} || {}; my $params = $args{params} || { do => 'prefs' }; my %defaults = ( SCRIPT_NAME => '/cgi-bin/ikiwiki.cgi', HTTP_HOST => 'example.com', ); my $cgi = CGI->new($args{params}); my $query_string = $cgi->query_string(); if ($method eq 'POST') { $defaults{REQUEST_METHOD} = 'POST'; $in = $query_string; $defaults{CONTENT_LENGTH} = length $in; } else { $defaults{REQUEST_METHOD} = 'GET'; $defaults{QUERY_STRING} = $query_string; } my %envvars = ( %defaults, %$environ, ); print("# $query_string\n"); run(["./t/tmp/ikiwiki.cgi"], \$in, \$out, init => sub { map { $ENV{$_} = $envvars{$_} } keys(%envvars); }); return $out; } sub test_prefs { my $content; my $status; IkiWiki::userinfo_setall('alice', {regdate => time, email => 'alice@example.com'}); IkiWiki::userinfo_setall('bob', {regdate => time, email => 'bob@example.com'}); IkiWiki::userinfo_setall('name', {regdate => time, email => 'nobody@example.com'}); IkiWiki::Plugin::passwordauth::setpassword('alice', "Alice's password"); IkiWiki::Plugin::passwordauth::setpassword('bob', "Bob's password"); $content = run_cgi( params => { do => 'prefs', }, ); # prefs requires signing in so we are redirected, with the postsignin # action saved in the session like($content, qr/