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

More readable output for some auth.t tests

Browse Source
This commit is contained in:
Jared Johnson 2014-12-15 14:19:23 -06:00
parent 91b9d026f8
commit 3d17325ede
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
t/auth.t
View File

@ -43,14 +43,14 @@ ok(!$passClear, "get_auth_details_plain, pass -");
# PLAIN
$r = Qpsmtpd::Auth::SASL($smtpd, 'plain', $enc_plain);
cmp_ok(OK, '==', $r, "plain auth");
is( return_code($r), 'OK', 'plain auth' );
if ($ENV{QPSMTPD_DEVELOPER} && is_interactive()) {
# same thing, but must be entered interactively
print "answer: $enc_plain\n";
$r = Qpsmtpd::Auth::SASL($smtpd, 'plain', '');
cmp_ok(OK, '==', $r, "SASL, plain");
is( return_code($r), 'OK', 'SASL, plain' );
}
# LOGIN
@ -74,7 +74,7 @@ if ($ENV{QPSMTPD_DEVELOPER} && is_interactive()) {
print "encoded pass: $enc_pass\n";
$r = Qpsmtpd::Auth::SASL($smtpd, 'login', $enc_user);
cmp_ok(OK, '==', $r, "SASL, login");
is( return_code($r), 'OK', 'SASL, login' );
}
# CRAM-MD5
@ -97,7 +97,7 @@ if ($ENV{QPSMTPD_DEVELOPER} && is_interactive()) {
# this isn't going to work without bidirection communication to get the ticket
#$r = Qpsmtpd::Auth::SASL($smtpd, 'cram-md5' );
#cmp_ok( OK, '==', $r, "login auth");
#is( return_code($r), 'OK', 'login auth' );
}
sub is_interactive {