byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move test sub definition to the bottom

Browse Source
This commit is contained in:
Jared Johnson 2014-09-12 13:09:20 -05:00
parent 18bfc45d0b
commit 41a71f5d79
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
t/qpsmtpd-address.t
View File

@ -13,20 +13,6 @@ use_ok('Test::Qpsmtpd');
__config(); __config();
sub __config {
ok( my ($qp,$cxn) = Test::Qpsmtpd->new_conn(), "get new connection" );
ok( $qp->command('HELO test') );
ok( $qp->command('MAIL FROM:<test@example.com>') );
my $sender = $qp->transaction->sender;
$qp->hooks->{user_config} = undef;
is( $qp->config('size_threshold'), 10000, 'use global config when user_config is absent' );
is( $sender->config('test config'), undef, 'no user_config plugins exist' );
$qp->hooks->{user_config} = [{ name => 'test hook', code => sub { return DECLINED } }];
is( $sender->config('test config'), undef, 'no user_config plugins return OK' );
$qp->hooks->{user_config} = [{ name => 'test hook', code => sub { return OK, 'test data' } }];
is( $sender->config('test config'), 'test data', 'user_config plugins return a value' );
}
__new(); __new();
__parse(); __parse();
@ -135,3 +121,17 @@ sub __parse {
is($ao && $ao->address, $as, "address $as"); is($ao && $ao->address, $as, "address $as");
ok($ao eq $as, "overloaded 'cmp' operator"); ok($ao eq $as, "overloaded 'cmp' operator");
}; };
sub __config {
ok( my ($qp,$cxn) = Test::Qpsmtpd->new_conn(), "get new connection" );
ok( $qp->command('HELO test') );
ok( $qp->command('MAIL FROM:<test@example.com>') );
my $sender = $qp->transaction->sender;
$qp->hooks->{user_config} = undef;
is( $qp->config('size_threshold'), 10000, 'use global config when user_config is absent' );
is( $sender->config('test config'), undef, 'no user_config plugins exist' );
$qp->hooks->{user_config} = [{ name => 'test hook', code => sub { return DECLINED } }];
is( $sender->config('test config'), undef, 'no user_config plugins return OK' );
$qp->hooks->{user_config} = [{ name => 'test hook', code => sub { return OK, 'test data' } }];
is( $sender->config('test config'), 'test data', 'user_config plugins return a value' );
}