t/watch_imap.t

# Copyright (C) all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use v5.12;
use PublicInbox::TestCommon;
# see t/imapd*.t for tests against a live IMAP server

use_ok 'PublicInbox::Watch';
my $tmpdir = tmpdir;
my $cfg = cfg_new $tmpdir, <<EOF;
[publicinbox "i"]
	address = i\@example.com
	inboxdir = /nonexistent
	watch = imap://example.com/INBOX.a
[publicinboxlearn]
	watchspam = imap://example.com/INBOX.spam
EOF
my $watch = PublicInbox::Watch->new($cfg);
is($watch->{imap}->{'imap://example.com/INBOX.a'}->[0]->{name}, 'i',
	'watched an inbox');
is($watch->{imap}->{'imap://example.com/INBOX.spam'}, 'watchspam',
	'watched spam folder');

done_testing;