#!perl -wT
use strict;
use Test::More;
use lib 't';
use TestBounceParser;
# Test an issue where a non-bounce spam message is parsed as a bounce,
# and strings in the message are (mis)identified as email addresses.
# (Currently) returns about 8 reports with bogus strings like:
# P@tchesreg
# P@ñk@ge
# etc.
check_report(
't/corpus/misidentified-recipient.msg',
is_bounce => 1,
addresses => ['john.b@b.c']
);
done_testing;