X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Finbox.t;h=0580cd231f7a60b31d0579013a51e411e765d522;hb=2f8d15b1170b137a0512a4f3163b236a5dcbf0b8;hp=bc8fae9ae0fc4b32d550bd52d7228c2e2c3097dc;hpb=9dfc0b670fc634b54998c3020f173b82de1915ac;p=public-inbox.git diff --git a/t/inbox.t b/t/inbox.t index bc8fae9a..0580cd23 100644 --- a/t/inbox.t +++ b/t/inbox.t @@ -13,7 +13,7 @@ is($x->base_url, 'http://example.com/test/', 'added trailing slash'); $x = PublicInbox::Inbox->new({}); is($x->base_url, undef, 'undef base_url allowed'); -my $tmpdir = File::Temp->newdir('pi-inbox-XXXXXX', TMPDIR => 1); +my $tmpdir = File::Temp->newdir('pi-inbox-XXXX', TMPDIR => 1); $x->{inboxdir} = $tmpdir->dirname; is_deeply($x->cloneurl, [], 'no cloneurls'); is($x->description, '($INBOX_DIR/description missing)', 'default description'); @@ -32,4 +32,11 @@ is(unlink(glob("$x->{inboxdir}/*")), 2, 'unlinked cloneurl & description'); is_deeply($x->cloneurl, ['https://example.com/inbox'], 'cloneurls memoized'); is($x->description, "\x{100}blah", 'description memoized'); +$x->{name} = "2\x{100}wide"; +$x->{newsgroup} = '2.wide'; +like($x->mailboxid, qr/\AM32c48077696465-[0-9a-f]+\z/, + '->mailboxid w/o slice (JMAP)'); +like($x->mailboxid(78), qr/\AM322e77696465-4e-[0-9a-f]+\z/, + '->mailboxid w/ slice (IMAP)'); + done_testing();