From 906180e94bcc5dc09c146c1041df0f135e11b89b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 28 Dec 2019 14:23:48 +0000
Subject: test for Store

---
 t/store.t | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 t/store.t

(limited to 't/store.t')

diff --git a/t/store.t b/t/store.t
new file mode 100644
index 0000000..73903df
--- /dev/null
+++ b/t/store.t
@@ -0,0 +1,33 @@
+#!perl6
+use v6.d;
+use Test;
+use lib 't/lib';
+use TestIndex;
+use MaildirIndexer::Store;
+use MaildirIndexer::Index;
+
+my Channel $file-channel .= new;
+my TestIndex $index .= new;
+my MaildirIndexer::Store $store .= new: :$file-channel, :indices($index), :2workers;
+
+$store.start();
+
+$index.set-expect(4);
+$file-channel.send("t/fixtures/$_".IO) for qw[one/cur/1 one/cur/2 two/cur/1 two/cur/2];
+await $index.seen-all;
+
+is-deeply(
+    $index.mails,
+    %(
+        one => %( 't/fixtures/one/cur/1' => 1, 't/fixtures/one/cur/2' => 1 ),
+        two => %( 't/fixtures/two/cur/1' => 1, 't/fixtures/two/cur/2' => 1 ),
+    ),
+    'mails should be indexed',
+);
+
+is(
+    $store.mailbox-for-email(MaildirIndexer::Email.new),'foo',
+    'index is consulted',
+);
+
+done-testing;
-- 
cgit v1.2.3