summaryrefslogtreecommitdiff
path: root/t/lib/TestIndex.pm6
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/TestIndex.pm6')
-rw-r--r--t/lib/TestIndex.pm65
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;
}