diff options
Diffstat (limited to 't/lib/Test/Sietima/MailStore.pm')
| -rw-r--r-- | t/lib/Test/Sietima/MailStore.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/lib/Test/Sietima/MailStore.pm b/t/lib/Test/Sietima/MailStore.pm index 030e5fc..64c7b41 100644 --- a/t/lib/Test/Sietima/MailStore.pm +++ b/t/lib/Test/Sietima/MailStore.pm @@ -25,6 +25,15 @@ sub store ($self,$mail,@tags) { return $id; } +sub retrieve_ids_by_tags ($self,@tags){ + my @ret; + for my $m (values $self->_mails->%*) { + next unless all { $m->{tags}{$_} } @tags; + push @ret, $m->{id}; + } + return \@ret; +} + sub retrieve_by_tags ($self,@tags){ my @ret; for my $m (values $self->_mails->%*) { |