[libemail-address-perl] 03/06: do not be fooled by addresses in the phrase

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch squeeze
in repository libemail-address-perl.

commit 2bcb10c6cf02d36ebf09aa622a79a23a69458901
Author: Ricardo Signes <rjbs at cpan.org>
Date:   Sat Jun 14 00:16:58 2014 -0400

    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 f5db85f..bed251c 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;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libemail-address-perl.git