diff options
Diffstat (limited to 't/lib/TestIndex.pm6')
-rw-r--r-- | t/lib/TestIndex.pm6 | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/lib/TestIndex.pm6 b/t/lib/TestIndex.pm6 deleted file mode 100644 index c0b0b03..0000000 --- a/t/lib/TestIndex.pm6 +++ /dev/null @@ -1,35 +0,0 @@ -use v6.d; -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; -has $!seen-all-vow; - -method set-expect(Int:D $!expect) { - $!seen ⚛= 0; - $!seen-all = Promise.new; - $!seen-all-vow = $!seen-all.vow; -} - -method add-mail(MaildirIndexer::Email:D $email, Str:D $mailbox --> Nil) { - %.mails{$mailbox}{$email.path}=1; - ++⚛$!seen; - if ($!seen == $!expect) { - $!seen-all-vow.keep(True) - } -} - -method del-path(IO:D $path, Str:D $mailbox --> Nil) { - %.mails{$mailbox}{$path}:delete; -} - -method mailbox-for-email(MaildirIndexer::Email:D $email --> Str) { - return @!responses.shift; -} |