# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use Test::More;
use PublicInbox::Config;
# see t/imapd*.t for tests against a live IMAP server
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use Test::More;
use PublicInbox::Config;
# see t/imapd*.t for tests against a live IMAP server
my $cfg = PublicInbox::Config->new(\<<EOF);
publicinbox.i.address=i\@example.com
publicinbox.i.inboxdir=/nonexistent
publicinbox.i.watch=imap://example.com/INBOX.a
publicinboxlearn.watchspam=imap://example.com/INBOX.spam
EOF
my $cfg = PublicInbox::Config->new(\<<EOF);
publicinbox.i.address=i\@example.com
publicinbox.i.inboxdir=/nonexistent
publicinbox.i.watch=imap://example.com/INBOX.a
publicinboxlearn.watchspam=imap://example.com/INBOX.spam
EOF
is($watch->{imap}->{'imap://example.com/INBOX.a'}->[0]->{name}, 'i',
'watched an inbox');
is($watch->{imap}->{'imap://example.com/INBOX.spam'}, 'watchspam',
is($watch->{imap}->{'imap://example.com/INBOX.a'}->[0]->{name}, 'i',
'watched an inbox');
is($watch->{imap}->{'imap://example.com/INBOX.spam'}, 'watchspam',