File: basics.t

package info (click to toggle)
libemail-address-list-perl 0.05-1%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 240 kB
  • sloc: perl: 1,582; makefile: 2
file content (10 lines) | stat: -rw-r--r-- 259 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
 
use strict; use warnings;
use Test::More tests => 3;
use_ok 'Email::Address::List';

{
    my @addresses = Email::Address::List->parse(q{ruz@bestpractical.com});
    is scalar @addresses, 1;
    is $addresses[0]{'value'}->format, q{ruz@bestpractical.com};
}