diff options
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; } |