Yet Another CPAN Grep

Test-SMTP ( B/BE/BENNING/Test-SMTP-0.05.tar.gz, BENNING, 2016; MetaCPAN )

Test-SMTP/t/007_tls.t ( view source; MetaCPAN )

 the mail_from fails');
$c1->code_is(450, 'Passes if temporary failure with code 450');
$c1->code_isnt(444, 'Passes if temporary failure is not with code 444');
$c1->message_like(qr/temporary failure

lure('Passes if code indicated some type of failure');
$c1->code_isnt_success('Passes if code did not indicate success');
$c1->code_isnt_permanent('Passes if code did not indicate permanent failure');

 the mail_from fails');
$c1->code_is(550, 'Passes if temporary failure with code 550');
$c1->code_isnt(555, 'Passes if temporary failure is not with code 555');
$c1->message_like(qr/temporary failure

Test-SMTP ( B/BE/BENNING/Test-SMTP-0.05.tar.gz, BENNING, 2016; MetaCPAN )

Test-SMTP/t/003_basic.t ( view source; MetaCPAN )

 the mail_from fails');
$c1->code_is(450, 'Passes if temporary failure with code 450');
$c1->code_isnt(444, 'Passes if temporary failure is not with code 444');
$c1->message_like(qr/temporary failure

lure('Passes if code indicated some type of failure');
$c1->code_isnt_success('Passes if code did not indicate success');
$c1->code_isnt_permanent('Passes if code did not indicate permanent failure');

 the mail_from fails');
$c1->code_is(550, 'Passes if temporary failure with code 550');
$c1->code_isnt(555, 'Passes if temporary failure is not with code 555');
$c1->message_like(qr/temporary failure

Test-SMTP ( B/BE/BENNING/Test-SMTP-0.05.tar.gz, BENNING, 2016; MetaCPAN )

Test-SMTP/t/005_fail_tests.t ( view source; MetaCPAN )

m fails');
test_out('not ok 8 - Fails because last code was temporary');
test_fail(+1);
$c1->code_isnt_temporary('Fails because last code was temporary');
test_out('not ok 9 - Fails because last code

porary');
test_out('not ok 11 - Fails because last code was temporary');
test_fail(+1);
$c1->code_isnt_failure('Fails because last code was temporary');



test_out('not ok 12 - Fails if the mail_from


test_fail(+1);
$c1->code_isnt_permanent('Fails because last code was permanent');
test_out('not ok 16 - Fails because last code was permanent');
test_fail(+1);
$c1->code_isnt_failure('Fails because l