From 0494dcfd9a77d8c80ba01da5d5cf1deb301be5dd Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 28 Dec 2019 14:32:01 +0000
Subject: half-test for scandir

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

(limited to 't')

diff --git a/t/scandir.t b/t/scandir.t
new file mode 100644
index 0000000..622102e
--- /dev/null
+++ b/t/scandir.t
@@ -0,0 +1,21 @@
+#!perl6
+use v6.d;
+use Test;
+use MaildirIndexer::ScanDir;
+
+my BagHash $files;
+
+react {
+    whenever scan-dir('t/fixtures') -> $f {
+        ++$files{$f.path} if $f.f;
+        done if $files.elems == 6;
+    }
+}
+
+is-deeply(
+    $files.keys.sort,
+    $("t/fixtures/one/cur/1", "t/fixtures/one/cur/2", "t/fixtures/one/cur/3", "t/fixtures/one/cur/4", "t/fixtures/two/cur/1", "t/fixtures/two/cur/2"),
+    'initial scan ok',
+);
+
+done-testing;
-- 
cgit v1.2.3