From: Eric Wong <e@80x24.org>
Date: Wed, 22 Oct 2025 19:36:13 +0000 (+0000)
Subject: t/pop3d: add diagnostics on APOP after STLS failure
X-Git-Tag: v2.0.0~26
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f4216637323226efda96c91205b198676af47600;p=thirdparty%2Fpublic-inbox.git

t/pop3d: add diagnostics on APOP after STLS failure

Calling `APOP' after `STLS' to start TLS seems to fail
occasionally, but I haven't been able to figure out why.
Add some diagnostics to hopefully explain what's going
on...
---

diff --git a/t/pop3d.t b/t/pop3d.t
index ee19f2d76..10eac41c4 100644
--- a/t/pop3d.t
+++ b/t/pop3d.t
@@ -249,8 +249,10 @@ EOF
 
 		$np3 = Net::POP3->new(@np3_args, %o);
 		ok($np3->starttls, 'STLS works before APOP');
-		ok($np3->apop($u, 'anonymous'), "APOP UUID\@$mailbox w/ STLS");
-
+		my $nr = $np3->apop($u, 'anonymous');
+		ok $nr, "APOP UUID\@$mailbox w/ STLS" or
+			diag(explain({nr => $nr, pop3 => \%{*$np3}},
+				errno => "$!"));
 		# undocumented:
 		ok($np3->_NOOP, 'NOOP works') if $np3->can('_NOOP');
 	}