diff options
author | dakkar <dakkar@thenautilus.net> | 2019-12-28 14:32:01 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2019-12-28 14:32:01 +0000 |
commit | 0494dcfd9a77d8c80ba01da5d5cf1deb301be5dd (patch) | |
tree | 4c1b2dfc38b08639e205d80e6d540cb618958d71 | |
parent | test for Store (diff) | |
download | MaildirIndexer-0494dcfd9a77d8c80ba01da5d5cf1deb301be5dd.tar.gz MaildirIndexer-0494dcfd9a77d8c80ba01da5d5cf1deb301be5dd.tar.bz2 MaildirIndexer-0494dcfd9a77d8c80ba01da5d5cf1deb301be5dd.zip |
half-test for scandir
-rw-r--r-- | t/scandir.t | 21 |
1 files changed, 21 insertions, 0 deletions
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; |