From c6ffe49bff0a41046d4dd64d1f293f925b0f37e1 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 27 Dec 2016 16:34:27 +0000
Subject: mailstore: retrieve_ids_by_tags

---
 t/lib/Test/Sietima/MailStore.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 't/lib/Test')

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->%*) {
-- 
cgit v1.2.3