1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl Email-AddressParser.t'
3
4#########################
5
6# change 'tests => 1' to 'tests => last_test_to_print';
7
8use Test::More tests => 8;
9BEGIN { use_ok('Email::AddressParser') };
10
11#########################
12
13# Insert your test code below, the Test::More module is use()ed here so read
14# its man page ( perldoc Test::More ) for help writing this test script.
15use Data::Dumper;
16
17$input = "<jXhnXonX\@lXnXXc.Xdu>, <kXXXn\@hXXXraXcoXnXXXX.com>,\r\n" .
18"        \"XXXNXAN RXchXeXD\" <RXXXXe.X.XXIXMAN\@XXXe.XeXeXXr.us>,\r\n" .
19"        \"XoXXX, XXyXXr\" <taXXXraXXXds\@hXXmaXl.cXX>\r\n";
20
21$a = new Email::AddressParser('tony', 'tkay@uoregon.edu');
22ok($a->format eq '"tony" <tkay@uoregon.edu>', 'object interface');
23ok($a->original eq '"tony" <tkay@uoregon.edu>', 'object interface');
24
25@v = Email::AddressParser->parse($input);
26ok(scalar(@v) == 4, 'parse returns correct number');
27
28ok($v[2]->phrase eq 'XXXNXAN RXchXeXD', 'subphrase');
29ok($v[2]->format eq '"XXXNXAN RXchXeXD" <RXXXXe.X.XXIXMAN@XXXe.XeXeXXr.us>', 'format');
30ok($v[2]->address eq 'RXXXXe.X.XXIXMAN@XXXe.XeXeXXr.us', 'address');
31
32@v = Email::AddressParser->parse('tkay@uoregon.edu, ');
33ok(@v == 1, 'empty parse yields no addresses');
34
35