X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fwatch_filter_rubylang.t;h=6513f30b0441c42d0fa63366d79b4973e98e9260;hb=352956bcf1933bdaeba631deb4ade7dc7fd754b1;hp=09217d94fcfa368e1215ec0a53ad252d5f0cc440;hpb=daab9cf0b8fcd66d1cb7f62f7ea9a8b0e32320ef;p=public-inbox.git diff --git a/t/watch_filter_rubylang.t b/t/watch_filter_rubylang.t index 09217d94..6513f30b 100644 --- a/t/watch_filter_rubylang.t +++ b/t/watch_filter_rubylang.t @@ -4,10 +4,10 @@ use strict; use warnings; use PublicInbox::TestCommon; use Test::More; -use PublicInbox::MIME; +use PublicInbox::Eml; use PublicInbox::Config; -require_mods(qw(Filesys::Notify::Simple DBD::SQLite Search::Xapian)); -use_ok 'PublicInbox::WatchMaildir'; +require_mods(qw(DBD::SQLite Search::Xapian)); +use_ok 'PublicInbox::Watch'; use_ok 'PublicInbox::Emergency'; my ($tmpdir, $for_destroy) = tmpdir(); local $ENV{PI_CONFIG} = "$tmpdir/pi_config"; @@ -76,20 +76,19 @@ EOF my $ibx = $config->lookup_name($v); ok($ibx, 'found inbox by name'); - my $w = PublicInbox::WatchMaildir->new($config); + my $w = PublicInbox::Watch->new($config); for my $i (1..2) { $w->scan('full'); } # make sure all serials are searchable: - my ($tot, $msgs); for my $i (1..15) { - ($tot, $msgs) = $ibx->search->query("alerts:$i"); - is($tot, 1, "got one result for alerts:$i"); + my $mset = $ibx->search->mset("alerts:$i"); + is($mset->size, 1, "got one result for alerts:$i"); + my $msgs = $ibx->search->mset_to_smsg($ibx, $mset); is($msgs->[0]->{mid}, "a.$i\@b.com", "got expected MID for $i"); } - ($tot, undef) = $ibx->search->query('b:spam'); - is($tot, 1, 'got spam message'); + is($ibx->search->mset('b:spam')->size, 1, 'got spam message'); my $nr = unlink <$maildir/new/*>; is(16, $nr); @@ -104,8 +103,7 @@ EOF $config = PublicInbox::Config->new(\$orig); $ibx = $config->lookup_name($v); - ($tot, undef) = $ibx->search->reopen->query('b:spam'); - is($tot, 0, 'spam removed'); + is($ibx->search->reopen->mset('b:spam')->size, 0, 'spam removed'); is_deeply([], \@warn, 'no warnings'); }