diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-12-27 16:34:27 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-12-27 16:34:27 +0000 |
| commit | c6ffe49bff0a41046d4dd64d1f293f925b0f37e1 (patch) | |
| tree | 54dc94688787f810d921ddd0df0188797d492909 /t/lib/Test | |
| parent | list & show moderation queue contents (diff) | |
| download | Sietima-c6ffe49bff0a41046d4dd64d1f293f925b0f37e1.tar.gz Sietima-c6ffe49bff0a41046d4dd64d1f293f925b0f37e1.tar.bz2 Sietima-c6ffe49bff0a41046d4dd64d1f293f925b0f37e1.zip | |
mailstore: retrieve_ids_by_tags
Diffstat (limited to 't/lib/Test')
| -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->%*) { |