X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fwatch_filter_rubylang.t;h=004e794ec8c224cedc7ac4e5bd63cdcb23553a95;hb=a002384a74382df2649d6a1f8dfba4f291af032e;hp=db48cb2ffde3d60742ed208a305a8cda702a57f0;hpb=b2b1006759730507731fcd3fc3e0de68239e3b92;p=public-inbox.git
diff --git a/t/watch_filter_rubylang.t b/t/watch_filter_rubylang.t
index db48cb2f..004e794e 100644
--- a/t/watch_filter_rubylang.t
+++ b/t/watch_filter_rubylang.t
@@ -1,4 +1,4 @@
-# Copyright (C) 2019-2020 all contributors
+# Copyright (C) 2019-2021 all contributors
# License: AGPL-3.0+
use strict;
use warnings;
@@ -7,7 +7,7 @@ use Test::More;
use PublicInbox::Eml;
use PublicInbox::Config;
require_mods(qw(DBD::SQLite Search::Xapian));
-use_ok 'PublicInbox::WatchMaildir';
+use_ok 'PublicInbox::Watch';
use_ok 'PublicInbox::Emergency';
my ($tmpdir, $for_destroy) = tmpdir();
local $ENV{PI_CONFIG} = "$tmpdir/pi_config";
@@ -30,12 +30,9 @@ for my $v (@v) {
my $maildir = "$tmpdir/md-$v";
my $spamdir = "$tmpdir/spam-$v";
my $addr = "test-$v\@example.com";
- my @cmd = ('-init', "-$v", $v, $inboxdir,
+ my @cmd = ('-init', '-Lfull', "-$v", $v, $inboxdir,
"http://example.com/$v", $addr);
- ok(run_script(\@cmd), 'public-inbox init OK');
- if ($v eq 'V1') {
- ok(run_script(['-index', $inboxdir]), 'v1 indexed');
- }
+ ok(run_script(\@cmd), 'public-inbox init');
PublicInbox::Emergency->new($spamdir);
for my $i (1..15) {
@@ -72,24 +69,24 @@ $cfgpfx.filter=PublicInbox::Filter::RubyLang
$cfgpfx.altid=serial:alerts:file=msgmap.sqlite3
publicinboxwatch.watchspam=maildir:$spamdir
EOF
- my $config = PublicInbox::Config->new(\$orig);
- my $ibx = $config->lookup_name($v);
+ my $cfg = PublicInbox::Config->new(\$orig);
+ my $ibx = $cfg->lookup_name($v);
+ $ibx->{-no_fsync} = 1;
ok($ibx, 'found inbox by name');
- my $w = PublicInbox::WatchMaildir->new($config);
+ my $w = PublicInbox::Watch->new($cfg);
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);
@@ -102,10 +99,10 @@ EOF
}
$w->scan('full');
- $config = PublicInbox::Config->new(\$orig);
- $ibx = $config->lookup_name($v);
- ($tot, undef) = $ibx->search->reopen->query('b:spam');
- is($tot, 0, 'spam removed');
+ $cfg = PublicInbox::Config->new(\$orig);
+ $ibx = $cfg->lookup_name($v);
+ $ibx->{-no_fsync} = 1;
+ is($ibx->search->reopen->mset('b:spam')->size, 0, 'spam removed');
is_deeply([], \@warn, 'no warnings');
}