1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
From b9d36d986dd6ddc6f8de39e8f577bde502ece278 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Sat, 14 Jun 2014 00:16:58 -0400
Subject: [PATCH 4/8] do not be fooled by addresses in the phrase
---
t/tests.t | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/t/tests.t b/t/tests.t
index 038aaec..5ce5767 100644
--- a/t/tests.t
+++ b/t/tests.t
@@ -1618,7 +1618,17 @@ my @list = (
undef,
],
],
- ]
+ ],
+ [
+ q{"<fake-- ATAT --bogus.biz>" <real-- ATAT --actual.mil>},
+ [
+ [
+ '<fake-- ATAT --bogus.biz>',
+ 'real-- ATAT --actual.mil',
+ undef,
+ ],
+ ],
+ ],
);
my $tests = 1;
--
2.0.0
|
