t/scandir.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;