treewide: run update-copyrights from gnulib for 2019

[public-inbox.git] / t / v2reindex.t

diff --git a/t/v2reindex.t b/t/v2reindex.t
index 52711f8fd15d34756acbe0ec9c937e057b98affb..7c14117af0514bb1cccff3c3515d17990c776d0f 100644 (file)
--- a/t/v2reindex.t
+++ b/t/v2reindex.t
@@ -1,21 +1,16 @@
-# Copyright (C) 2018-2019 all contributors <meta@public-inbox.org>
+# Copyright (C) 2018-2020 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
 use warnings;
 use Test::More;
 use PublicInbox::MIME;
 use PublicInbox::ContentId qw(content_digest);
-use File::Temp qw/tempdir/;
 use File::Path qw(remove_tree);
-require './t/common.perl';
+use PublicInbox::TestCommon;
 require_git(2.6);
-
-foreach my $mod (qw(DBD::SQLite Search::Xapian)) {
-       eval "require $mod";
-       plan skip_all => "$mod missing for v2reindex.t" if $@;
-}
+require_mods(qw(DBD::SQLite Search::Xapian));
 use_ok 'PublicInbox::V2Writable';
-my $inboxdir = tempdir('pi-v2reindex-XXXXXX', TMPDIR => 1, CLEANUP => 1);
+my ($inboxdir, $for_destroy) = tmpdir();
 my $ibx_config = {
        inboxdir => $inboxdir,
        name => 'test-v2writable',
@@ -162,7 +157,7 @@ ok(!-d $xap, 'Xapian directories removed again');
        is($ibx->mm->num_highwater, 10, 'num_highwater as expected');
        my $mset = $ibx->search->query($phrase, {mset=>1});
        isnt($mset->size, 0, "phrase search succeeds on indexlevel=full");
-       for (<"$xap/*/*">) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
+       for (glob("$xap/*/*")) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
 
        my ($min, $max) = $ibx->mm->minmax;
        is_deeply($ibx->mm->msg_range(\$min, $max), $msgmap, 'msgmap unchanged');
@@ -198,7 +193,7 @@ ok(!-d $xap, 'Xapian directories removed again');
        $words =~ tr/"'//d;
        my $mset = $ibx->search->query($words, {mset=>1});
        isnt($mset->size, 0, "normal search works on indexlevel=medium");
-       for (<"$xap/*/*">) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
+       for (glob("$xap/*/*")) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
 
        ok($sizes{full} > $sizes{medium}, 'medium is smaller than full');
 
@@ -228,7 +223,7 @@ ok(!-d $xap, 'Xapian directories removed again');
 
        isnt($ibx->search, 'no search for basic');
 
-       for (<"$xap/*/*">) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
+       for (glob("$xap/*/*")) { $sizes{$ibx->{indexlevel}} += -s _ if -f $_ }
        ok($sizes{medium} > $sizes{basic}, 'basic is smaller than medium');
 
        my ($min, $max) = $ibx->mm->minmax;
@@ -439,7 +434,7 @@ ok(!-d $xap, 'Xapian directories removed again');
        my @warn;
        local $SIG{__WARN__} = sub { push @warn, @_ };
        my %config = %$ibx_config;
-       $config{indexlevel} = 'basic';
+       $config{indexlevel} = 'medium';
        my $ibx = PublicInbox::Inbox->new(\%config);
        my $im = PublicInbox::V2Writable->new($ibx);
        my $m3 = PublicInbox::MIME->new(<<'EOF');
@@ -447,7 +442,7 @@ Date: Tue, 24 May 2016 14:34:22 -0700 (PDT)
 Message-Id: <20160524.143422.552507610109476444.d@example.com>
 To: t@example.com
 Cc: c@example.com
-Subject: Re: [PATCH v2 2/2]
+Subject: Re: [PATCH v2 2/2] uno
 From: <f@example.com>
 In-Reply-To: <1463825855-7363-2-git-send-email-y@example.com>
 References: <1463825855-7363-1-git-send-email-y@example.com>
@@ -456,14 +451,14 @@ Date: Wed, 25 May 2016 10:01:51 +0900
 From: h@example.com
 To: g@example.com
 Cc: m@example.com
-Subject: Re: [PATCH]
+Subject: Re: [PATCH] dos
 Message-ID: <20160525010150.GD7292@example.com>
 References: <1463498133-23918-1-git-send-email-g+r@example.com>
 In-Reply-To: <1463498133-23918-1-git-send-email-g+r@example.com>
 From: s@example.com
 To: h@example.com
 Cc: m@example.com
-Subject: [PATCH 12/13]
+Subject: [PATCH 12/13] tres
 Date: Wed, 01 Jun 2016 01:32:35 +0300
 Message-ID: <1923946.Jvi0TDUXFC@wasted.example.com>
 In-Reply-To: <13205049.n7pM8utpHF@wasted.example.com>
@@ -495,6 +490,14 @@ EOF
        eval { $im->index_sync({reindex=>1}) };
        is($@, '', 'no error from reindexing after reused Message-ID (x3)');
        is_deeply(\@warn, [], 'no warnings on reindex');
+
+       my %uniq;
+       for my $s (qw(uno dos tres)) {
+               my $msgs = $ibx->search->query("s:$s");
+               is(scalar(@$msgs), 1, "only one result for `$s'");
+               $uniq{$msgs->[0]->{num}}++;
+       }
+       is_deeply([values %uniq], [3], 'search on different subjects');
 }
 
 done_testing();