diff options
| author | dakkar <dakkar@thenautilus.net> | 2019-12-28 14:49:03 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2019-12-28 14:49:03 +0000 |
| commit | 62a685d57c44612bc251645ce3d48999e8a4c05e (patch) | |
| tree | 08fe0ca73897fd86a134978ff80640193dc9d925 /t/lib | |
| parent | half-test for scandir (diff) | |
| download | MaildirIndexer-62a685d57c44612bc251645ce3d48999e8a4c05e.tar.gz MaildirIndexer-62a685d57c44612bc251645ce3d48999e8a4c05e.tar.bz2 MaildirIndexer-62a685d57c44612bc251645ce3d48999e8a4c05e.zip | |
test multi-index store
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/TestIndex.pm6 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/lib/TestIndex.pm6 b/t/lib/TestIndex.pm6 index 730ee92..c0b0b03 100644 --- a/t/lib/TestIndex.pm6 +++ b/t/lib/TestIndex.pm6 @@ -4,6 +4,9 @@ use MaildirIndexer::Index; unit class TestIndex does MaildirIndexer::Index; has %.mails; +has $.name = 'test index'; +has @.responses = ( 'foo' xx 10 ); + has atomicint $!seen = 0; has Int $.expect; has $.seen-all; @@ -28,5 +31,5 @@ method del-path(IO:D $path, Str:D $mailbox --> Nil) { } method mailbox-for-email(MaildirIndexer::Email:D $email --> Str) { - return 'foo' + return @!responses.shift; } |