view release on metacpan or  search on metacpan

t/00-load.t  view on Meta::CPAN

    is($err, "Authentication protocol crappola is not accepted by the server,\nresponse: crappola", '_INVALIDAUTH: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_LOGINERROR();
    is($num, -18, '_LOGINERROR: proper number');
    is($err, 'Login not accepted', '_LOGINERROR: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_UNKNOWNAUTH();
    is($num, -19, '_UNKNOWNAUTH: proper number');
    is($err, 'Authentication protocol  is not implemented by Mail::Sender', '_UNKNOWNAUTH: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_UNKNOWNAUTH('crappola');
    is($num, -19, '_UNKNOWNAUTH: proper number');
    is($err, 'Authentication protocol crappola is not implemented by Mail::Sender', '_UNKNOWNAUTH: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_ALLRECIPIENTSBAD();
    is($num, -20, '_ALLRECIPIENTSBAD: proper number');
    is($err, 'All recipients are bad', '_ALLRECIPIENTSBAD: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_FILECANTREAD();
    is($num, -21, '_FILECANTREAD: proper number');
    like($err, qr/^File "" cannot be read: /, '_FILECANTREAD: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_FILECANTREAD('crappola');
    is($num, -21, '_FILECANTREAD: proper number');
    like($err, qr/^File "crappola" cannot be read: /, '_FILECANTREAD: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_DEBUGFILE();
    is($num, -22, '_DEBUGFILE: proper number');
    is($err, undef, '_DEBUGFILE: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_DEBUGFILE('crappola');
    is($num, -22, '_DEBUGFILE: proper number');
    is($err, 'crappola', '_DEBUGFILE: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_STARTTLS();
    is($num, -23, '_STARTTLS: proper number');
    is($err, 'STARTTLS failed:  ', '_STARTTLS: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_STARTTLS('crappola');
    is($num, -23, '_STARTTLS: proper number');
    is($err, 'STARTTLS failed: crappola ', '_STARTTLS: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_STARTTLS('crappola', 'crappola');
    is($num, -23, '_STARTTLS: proper number');
    is($err, 'STARTTLS failed: crappola crappola', '_STARTTLS: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_IO_SOCKET_SSL();
    is($num, -24, '_IO_SOCKET_SSL: proper number');
    is($err, 'IO::Socket::SSL->start_SSL failed: ', '_IO_SOCKET_SSL: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_IO_SOCKET_SSL('crappola');
    is($num, -24, '_IO_SOCKET_SSL: proper number');
    is($err, 'IO::Socket::SSL->start_SSL failed: crappola', '_IO_SOCKET_SSL: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_TLS_UNSUPPORTED_BY_ME();
    is($num, -25, '_TLS_UNSUPPORTED_BY_ME: proper number');
    is($err, 'TLS unsupported by the script: ', '_TLS_UNSUPPORTED_BY_ME: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_TLS_UNSUPPORTED_BY_ME('crappola');
    is($num, -25, '_TLS_UNSUPPORTED_BY_ME: proper number');
    is($err, 'TLS unsupported by the script: crappola', '_TLS_UNSUPPORTED_BY_ME: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_TLS_UNSUPPORTED_BY_SERVER();
    is($num, -26, '_TLS_UNSUPPORTED_BY_SERVER: proper number');
    is($err, 'TLS unsupported by server', '_TLS_UNSUPPORTED_BY_SERVER: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_UNKNOWNENCODING();
    is($num, -27, '_UNKNOWNENCODING: proper number');
    is($err, q(Unknown encoding ''), '_UNKNOWNENCODING: proper string');

    $num = undef; $err = undef;
    ($num,$err) = Mail::Sender::_UNKNOWNENCODING('crappola');
    is($num, -27, '_UNKNOWNENCODING: proper number');
    is($err, q(Unknown encoding 'crappola'), '_UNKNOWNENCODING: proper string');

}

done_testing();