root/t/30moderate.t

#!/usr/bin/perl -w

use strict;

BEGIN { chdir 't' if -d 't' }
use lib '../lib';

use Test::More tests => 26;
use Test::File::Contents;
use Test::DatabaseRow;
use Test::Output;
use File::Path;

use Email::Send;
use Email::Send::Test;

use Lancelot::DB;
use Lancelot::Message;
use Lancelot::Log qw/init log/;

sub copy_msg {
    return Lancelot::Message->new($_[0]->as_string);
}

BEGIN { use_ok('Lancelot::Module::moderate'); }

my $listname = 'pl-testlist@example.com';

rmtree("$ENV{HOME}/.pl/$listname", 0);

my $db = new Lancelot::DB $listname, { create => 1 };
$db->set_config('list.name', 'Pl-testlist');
$db->set_config('mail.delimiter', '+');
$db->set_config('lancelot.mailer', 'Test');

$db->add_address('moderator@example.com', { moderator => 1 });
$db->add_address('hugo@example.com', {});
$db->add_address('susi@example.net', {});

local $Test::DatabaseRow::dbh = $db->{dbh};

# Lancelot::Log::init("STDERR:all=debug");

my $msg = Lancelot::Message->new('From: hugo@example.com
To: pl-testlist@example.com
Subject: Test
Date: Fri, 15 Jul 15:41:00 2011 +0200
Message-ID: modtest-1@example.com

This is a test.
');

# Pass through without moderation
my $tmsg = copy_msg($msg);
my @result = Lancelot::Module::moderate::execute($db, $tmsg);
is(scalar(@result), 1, "non-moderated list: result length");
is($result[0], "", "non-moderated list: result (empty)");

# Whole-list moderation
$db->set_config('mod.enable', 1);

$tmsg = copy_msg($msg);
@result = Lancelot::Module::moderate::execute($db, $tmsg);
row_ok(table => 'modmessage',
       where => [ list_id => 1, messageid => 'modtest-1@example.com',
                  reason => 'modlist', dispose => 'pending' ],
       label => 'list moderation: simple msg/modmessage entry check');
is(scalar(@result), 2, "list moderation: result length");
is($result[0], "moderation-modlist", "list moderation: simple msg/template");
is_deeply($result[1], {'mod-number' => 1}, "list moderation: simple msg/number");
my @emails = Email::Send::Test->emails;
my $s = $emails[0]->as_string;
$s =~ s/\(\w{3} \w{3} \d{2} \d{2}:\d{2}:\d{2} \d{4}\)/(DATE)/;
is($s, 'From: Pl-testlist Management <pl-testlist+owner@example.com>
To: pl-testlist+moderators@example.com
Subject: Pl-testlist moderation notification
Reply-To: pl-testlist+moderate@example.com

Please attend to the following messages at your convenience. The
default action (after 7 days) is "Discard".

Counts for message categories:

               Messages posted to a moderated list: 1

MESSAGES POSTED TO A MODERATED LIST

[ ] DEF: Approve/Reject/Discard all these messages immediately

------------------------------------------------------------------------
[ ] 1: Approve/Reject/Discard <modtest-1@example.com>
    Comment: 
------------------------------------------------------------------------
    From: hugo@example.com
    Subj: Test
    Date: Fri, 15 Jul 15:41:00 2011 +0200 (DATE)

    This is a test.


Thank you!

The Project Lancelot mail processor

', "list moderation: simple msg/mod notify");
Email::Send::Test->clear;

# Send the same message in for moderation again
$tmsg = copy_msg($msg);
@result = Lancelot::Module::moderate::execute($db, $tmsg);
is(scalar(@result), 2, "list moderation: double msg/result length");
is($result[0], "moderated-already", "list moderation: double msg/template");
is_deeply($result[1], { 'message-id' => 'modtest-1@example.com' },
          "list moderation: double msg/template args");

# Check nonsubscriber moderation
$db->flush_mod_message(1);
$db->delete_configs('mod.enable');
$db->set_config('mod.notifylines', 3);
my $t2msg = Lancelot::Message->new('From: unsubscribed@example.com
To: pl-testlist@example.com
Subject: Test
Date: Fri, 15 Jul 15:41:00 2011 +0200
Message-ID: modtest-2@example.com

This is a test.
');
$t2msg->set_flag('nonsubscriber', 1);

@result = Lancelot::Module::moderate::execute($db, $t2msg);
row_ok(table => 'modmessage',
       where => [ list_id => 1, messageid => 'modtest-2@example.com',
                  reason => 'nonsub', dispose => 'pending' ],
       label => 'nonsub moderation: simple msg/modmessage entry check');
is($result[0], "moderation-nonsub", "nonsub moderation: simple msg/template");
is($result[1]->{'mod-number'}, 1, "nonsub moderation: simple msg/number");

# Moderated subscribers
$db->flush_mod_message(1);
$db->delete_configs('mod.enable');
$db->add_address('fritz@example.com', { moderated => 1 });
my $t3msg = Lancelot::Message->new('From: fritz@example.com
To: pl-testlist@example.com
Subject: Test
Date: Fri, 15 Jul 15:41:00 2011 +0200
Message-ID: modtest-3@example.com

This is a test.
Second line.
Third line.
Fourth line.
');

@result = Lancelot::Module::moderate::execute($db, $t3msg);
row_ok(table => 'modmessage',
       where => [ list_id => 1, messageid => 'modtest-3@example.com',
                  reason => 'modsub', dispose => 'pending' ],
       label => 'sub moderation: simple msg/modmessage entry check');
is($result[0], "moderation-modsub", "sub moderation: simple msg/template");
is($result[1]->{'mod-number'}, 1, "sub moderation: simple msg/number");
@emails = Email::Send::Test->emails;
$s = $emails[0]->as_string;
$s =~ s/\(\w{3} \w{3} \d{2} \d{2}:\d{2}:\d{2} \d{4}\)/(DATE)/;
is($s, 'From: Pl-testlist Management <pl-testlist+owner@example.com>
To: pl-testlist+moderators@example.com
Subject: Pl-testlist moderation notification
Reply-To: pl-testlist+moderate@example.com

Please attend to the following messages at your convenience. The
default action (after 7 days) is "Discard".

Counts for message categories:

        Messages posted by "moderated" subscribers: 1

MESSAGES POSTED BY "MODERATED" SUBSCRIBERS

[ ] DEF: Approve/Reject/Discard all these messages immediately

------------------------------------------------------------------------
[ ] 1: Approve/Reject/Discard <modtest-3@example.com>
    Comment: 
------------------------------------------------------------------------
    From: fritz@example.com
    Subj: Test
    Date: Fri, 15 Jul 15:41:00 2011 +0200 (DATE)

    This is a test.
    Second line.
    Third line.


Thank you!

The Project Lancelot mail processor

', "sub moderation: simple msg/mod notify");
Email::Send::Test->clear;

$db->dispose_mod_message(1, "approve");
@result = Lancelot::Module::moderate::execute($db, $t3msg);
is(scalar(@result), 1, "approved message: result length");
is($result[0], "", "approved message: result (empty)");

$db->flush_mod_message(1);
chmod 0, "$ENV{HOME}/.pl/$listname/mod";
@result = Lancelot::Module::moderate::execute($db, $t3msg);
is(scalar(@result), 2, "non-storable message: result length");
is($result[0], "mod-error", "non-storable message: result/template");
is_deeply($result[1], { 'mod-number' => 1,
                        'mod-name' => "$ENV{HOME}/.pl/$listname/mod/1" },
          "non-storable message: result/parameters");

$db->flush_mod_message(1);
chmod 0700, "$ENV{HOME}/.pl/$listname/mod";
is(Lancelot::Module::moderate::notify_moderators($db), 0,
   "notify_moderators w/o messages");

$db->set_config('mod.timeout', 3);
$db->set_config('mod.disposal', 'approve');
my $t5msg = Lancelot::Message->new('From: unsubscribed@example.com
To: pl-testlist@example.com
Subject: Test
Date: Fri, 15 Jul 15:41:00 2011 +0200
Message-ID: modtest-5@example.com

This is a test.
');
$t5msg->set_flag('nonsubscriber', 1);
my $t4msg = Lancelot::Message->new('From: fritz@example.com
To: pl-testlist@example.com
Subject: Test
Date: Fri, 15 Jul 15:41:00 2011 +0200
Message-ID: modtest-4@example.com
');

Lancelot::Module::moderate::execute($db, $t2msg);
Lancelot::Module::moderate::execute($db, $t5msg);
Lancelot::Module::moderate::execute($db, $t4msg);
@emails = Email::Send::Test->emails;
$s = $emails[0]->as_string;
$s =~ s/\(\w{3} \w{3} \d{2} \d{2}:\d{2}:\d{2} \d{4}\)/(DATE)/g;
is($s, 'From: Pl-testlist Management <pl-testlist+owner@example.com>
To: pl-testlist+moderators@example.com
Subject: Pl-testlist moderation notification
Reply-To: pl-testlist+moderate@example.com

Please attend to the following messages at your convenience. The
default action (after 3 days) is "Approve".

Counts for message categories:

        Messages posted by "moderated" subscribers: 1
                 Messages posted by nonsubscribers: 2

MESSAGES POSTED BY "MODERATED" SUBSCRIBERS

[ ] DEF: Approve/Reject/Discard all these messages immediately

------------------------------------------------------------------------
[ ] 3: Approve/Reject/Discard <modtest-4@example.com>
    Comment: 
------------------------------------------------------------------------
    From: fritz@example.com
    Subj: Test
    Date: Fri, 15 Jul 15:41:00 2011 +0200 (DATE)


MESSAGES POSTED BY NONSUBSCRIBERS

[ ] DEF: Approve/Reject/Discard all these messages immediately

------------------------------------------------------------------------
[ ] 1: Approve/Reject/Discard <modtest-2@example.com>
    Comment: 
------------------------------------------------------------------------
    From: unsubscribed@example.com
    Subj: Test
    Date: Fri, 15 Jul 15:41:00 2011 +0200 (DATE)

    This is a test.
------------------------------------------------------------------------
[ ] 2: Approve/Reject/Discard <modtest-5@example.com>
    Comment: 
------------------------------------------------------------------------
    From: unsubscribed@example.com
    Subj: Test
    Date: Fri, 15 Jul 15:41:00 2011 +0200 (DATE)

    This is a test.


Thank you!

The Project Lancelot mail processor

', "several msgs: mod notify");
Email::Send::Test->clear;

Lancelot::Log::init("STDERR:all=err");
unlink "$ENV{HOME}/.pl/$listname/mod/2";
stderr_like(sub { Lancelot::Module::moderate::notify_moderators($db) },
   qr|^30moderate.t\[\d+\]: module: mod message $ENV{HOME}/.pl/$listname/mod/2 seems to have disappeared\n|,
   "notify_moderators w/lost message");