diff options
Diffstat (limited to 't/email.t')
| -rw-r--r-- | t/email.t | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -10,7 +10,8 @@ subtest 'no values' => { ); is-deeply $email.message-id, '', 'message id should parse'; - is-deeply $email.refs, qw[], 'refs should parse'; + is-deeply $email.refs, @(), 'refs should parse'; + is-deeply $email.addresses, @(), 'addresses should parse'; } subtest 'bad values' => { @@ -24,7 +25,8 @@ subtest 'bad values' => { ); is-deeply $email.message-id, '', 'message id should parse'; - is-deeply $email.refs, qw[], 'refs should parse'; + is-deeply $email.refs, @(), 'refs should parse'; + is-deeply $email.addresses, @(), 'addresses should parse'; } subtest 'all values' => { @@ -33,12 +35,18 @@ subtest 'all values' => { message-id => 'some <stuff> here', in-reply-to => '<one>', references => 'bad <two> garbage <three>', + reply-to => 'foo <one@me>', + from => 'me@my.domain', + to => 'one <one@your.domain>, two <two@their.domain>, etc', ), body => '', ); is-deeply $email.message-id, 'stuff', 'message id should parse'; is-deeply $email.refs, qw[one three two], 'refs should parse'; + is-deeply( $email.addresses.sort, + @('me@my.domain','one@me','one@your.domain','two@their.domain'), + 'addresses should parse' ); } done-testing; |