106 lines
2.6 KiB
Perl
106 lines
2.6 KiB
Perl
#!perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use POSIX qw( strftime );
|
|
|
|
sub register_tests {
|
|
my ( $self ) = @_;
|
|
$self->register_test('test_content_log_file');
|
|
$self->register_test('test_content_log_enabled');
|
|
$self->register_test('test_exclude');
|
|
}
|
|
|
|
sub test_content_log_file {
|
|
my ( $self ) = @_;
|
|
is( $self->content_log_file,
|
|
strftime('mail/%Y%m%d', localtime(time)),
|
|
'content_log_file() returns the right default value' );
|
|
$self->fake_config( content_log_file => '/path/to/%Y%m%d%H%M' );
|
|
is( $self->content_log_file,
|
|
strftime('/path/to/%Y%m%d%H%M', localtime(time)),
|
|
'content_log_file config changes content_log_file() output' );
|
|
$self->unfake_config;
|
|
}
|
|
|
|
sub test_content_log_enabled {
|
|
my ( $self ) = @_;
|
|
ok( ! $self->content_log_enabled, 'content_log_enabled() returns false' );
|
|
my @test_data = (
|
|
{
|
|
config => 'true',
|
|
expected => 1,
|
|
},
|
|
{
|
|
config => undef,
|
|
expected => 1,
|
|
},
|
|
{
|
|
config => '1',
|
|
expected => 1,
|
|
},
|
|
{
|
|
config => 'yes',
|
|
expected => 1,
|
|
},
|
|
{
|
|
config => 'yes ',
|
|
expected => 1,
|
|
},
|
|
{
|
|
config => '0',
|
|
expected => 0,
|
|
},
|
|
{
|
|
config => 'false',
|
|
expected => 0,
|
|
},
|
|
{
|
|
config => 'no',
|
|
expected => 0,
|
|
},
|
|
{
|
|
config => 'asdf ',
|
|
expected => 0,
|
|
},
|
|
);
|
|
for ( @test_data ) {
|
|
my $descr = "content_log_enabled="
|
|
. ( defined $_->{config } ? "'$_->{config }'" : 'undef' )
|
|
. ( $_->{expected} ? ' enables' : ' disables' )
|
|
. ' content logging';
|
|
$self->fake_config( content_log_enabled => $_->{config } );
|
|
is( $self->content_log_enabled, $_->{expected}, $descr );
|
|
}
|
|
$self->unfake_config;
|
|
}
|
|
|
|
sub fake_config {
|
|
my $self = shift;
|
|
my $fake_config = {@_};
|
|
$self->qp->hooks->{config} = [
|
|
{
|
|
name => '___FakeHook___',
|
|
code => sub {
|
|
my ( $self, $txn, $conf ) = @_;
|
|
return DECLINED if ! exists $fake_config->{$conf};
|
|
return OK, $fake_config->{$conf};
|
|
},
|
|
},
|
|
];
|
|
}
|
|
|
|
sub unfake_config {
|
|
my ( $self ) = @_;
|
|
$self->qp->hooks->{config} = [
|
|
grep { $_->{name} ne '___FakeHook___' }
|
|
@{ $self->qp->hooks->{config} || [] }
|
|
];
|
|
}
|
|
|
|
sub test_exclude {
|
|
my ( $self ) = @_;
|
|
ok( ! $self->exclude, 'exclude() default method returns false' );
|
|
}
|
|
|