diff options
author | Eric Wong <e@80x24.org> | 2024-01-09 12:49:13 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2024-01-10 10:27:01 +0000 |
commit | 61c44bbd8e57c719a1a4de75a1a11c412173e820 (patch) | |
tree | 5939c701ebed5560d54158ba347f89999f5879dd /t | |
parent | 48cbe0c3c8dc4d2671af19b87185ba68e9fdd689 (diff) | |
download | public-inbox-61c44bbd8e57c719a1a4de75a1a11c412173e820.tar.gz |
For totally bogus things in address fields, we'll fall back to showing the original entry in the name column when using Email::Address::XS. The pure Perl version differs here, but we'll just let them be different when it comes to handling bogus data.
Diffstat (limited to 't')
-rw-r--r-- | t/address.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/address.t b/t/address.t index 16000d2d..86f47395 100644 --- a/t/address.t +++ b/t/address.t @@ -77,6 +77,10 @@ sub test_pkg { is_deeply([], \@emails , 'no address for local address'); @names = $emails->('Local User <user>'); is_deeply([], \@names, 'no address, no name'); + + my $p = $pairs->('NAME, a@example, wtf@'); + is scalar(grep { defined($_->[0] // $_->[1]) } @$p), + scalar(@$p), 'something is always defined in bogus pairs'; } test_pkg('PublicInbox::Address'); |