root/t/20policy-subscribe.t

use strict;

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

use Test::More tests => 4;
use File::Path;

use Lancelot::DB;
use Lancelot::Template;
use Lancelot::Message;

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

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

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');


my $msg = Lancelot::Message->new('From: hugo@example.com
To: susi@example.net
Subject: Test

This is a test.
');

# Tests for closed list

$db->set_config('subscribe.type', 'open');
my $result = Lancelot::Module::policy_subscribe::execute($db, $msg);
is($result, "", "subscribe.type is open");

$db->set_config('subscribe.type', 'closed');
$result = Lancelot::Module::policy_subscribe::execute($db, $msg);
is($result, "closed-list-message", "subscribe.type is closed");

$db->delete_configs('subscribe.type');
$result = Lancelot::Module::policy_subscribe::execute($db, $msg);
is($result, "", "default for subscribe.type is open");