File: comma-free.t

package info (click to toggle)
libemail-address-perl 1.908-1%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 380 kB
  • sloc: perl: 468; makefile: 7
file content (10 lines) | stat: -rw-r--r-- 199 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
 
use strict;
use Test::More 0.88;

use Email::Address;

my @addrs = Email::Address->parse(q{a@example.com b@example.com});

is(@addrs, 2, "we parse comma-free lists, for some reason");

done_testing;