From d31b7f8710f89db6035a80adae4d97ada8503336 Mon Sep 17 00:00:00 2001 From: dakkar Date: Fri, 27 Dec 2019 14:14:24 +0000 Subject: extract addresses tried to add some typing, wanted to return `Positional[Str:D]`, but half the `Array` / `List` methods return `Seq`, empty arrays are untyped, plus https://github.com/rakudo/rakudo/issues/3383 made the whole thing a mess so we're just returning `Iterable`, which is not even parametric, so we can't promise we're returning strings --- t/email.t | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/email.t b/t/email.t index f2208a6..c6093db 100644 --- a/t/email.t +++ b/t/email.t @@ -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 here', in-reply-to => '', references => 'bad garbage ', + reply-to => 'foo ', + from => 'me@my.domain', + to => 'one , two , 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; -- cgit v1.2.3