qpsmtpd/t/addresses.t

use Test::More tests => 23;
use strict;
use lib 't';

use_ok('Test::Qpsmtpd');

ok(my ($smtpd, $conn) = Test::Qpsmtpd->new_conn(), "get new connection");
is(($smtpd->command('EHLO localhost'))[0], 250, 'EHLO localhost');

is(($smtpd->command('MAIL FROM:<ask@perl.org>'))[0],
    250, 'MAIL FROM:<ask@perl.org>');
is($smtpd->transaction->sender->address, 'ask@perl.org',
    'got the right sender');

is(($smtpd->command('MAIL FROM:<ask @perl.org>'))[0],
    250, 'MAIL FROM:<ask @perl.org>');
is($smtpd->transaction->sender->address,
    'ask @perl.org',
    'got the right sender');

is(($smtpd->command('MAIL FROM:ask@perl.org'))[0],
    250, 'MAIL FROM:ask@perl.org');
is($smtpd->transaction->sender->format,
    '<ask@perl.org>', 'got the right sender');

is(($smtpd->command('MAIL FROM:ask@[1.2.3.4]'))[0],
    250, 'MAIL FROM:ask@[1.2.3.4]');
is($smtpd->transaction->sender->format,
    '<ask@[1.2.3.4]>', 'got the right sender');

my $command = 'MAIL FROM:<ask@perl.org> SIZE=1230';
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format,
    '<ask@perl.org>', 'got the right sender');

$command = 'MAIL FROM:<>';
is(($smtpd->command($command))[0],      250,  $command);
is($smtpd->transaction->sender->format, '<>', 'got the right sender');

$command = 'MAIL FROM:<ask@p.qpsmtpd-test.askask.com> SIZE=1230';
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format,
    '<ask@p.qpsmtpd-test.askask.com>',
    'got the right sender');

$command = 'MAIL FROM:<ask@perl.org> SIZE=1230 CORRECT-WITHOUT-ARG';
is(($smtpd->command($command))[0], 250, $command);

$command = 'MAIL FROM:';
is(($smtpd->command($command))[0],      250,  $command);
is($smtpd->transaction->sender->format, '<>', 'got the right sender');