1 # Copyright (C) 2018 all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
7 use PublicInbox::ContentId qw(content_digest);
8 use File::Temp qw/tempdir/;
9 use File::Path qw(remove_tree);
11 foreach my $mod (qw(DBD::SQLite Search::Xapian)) {
13 plan skip_all => "$mod missing for v1reindex.t" if $@;
15 use_ok 'PublicInbox::SearchIdx';
16 use_ok 'PublicInbox::Import';
17 my $mainrepo = tempdir('pi-v1reindex-XXXXXX', TMPDIR => 1, CLEANUP => 1);
18 is(system(qw(git init -q --bare), $mainrepo), 0);
20 mainrepo => $mainrepo,
21 name => 'test-v1reindex',
22 -primary_address => 'test@example.com',
25 my $ibx = PublicInbox::Inbox->new($ibx_config);
26 my $mime = PublicInbox::MIME->create(
28 From => 'a@example.com',
29 To => 'test@example.com',
30 Subject => 'this is a subject',
31 Date => 'Fri, 02 Oct 1993 00:00:00 +0000',
33 body => "hello world\n",
35 my $im = PublicInbox::Import->new($ibx->git, undef, undef, $ibx);
36 foreach my $i (1..10) {
37 $mime->header_set('Message-Id', "<$i\@example.com>");
38 ok($im->add($mime), "message $i added");
44 if ('test remove later') {
45 $mime->header_set('Message-Id', "<5\@example.com>");
50 my $rw = PublicInbox::SearchIdx->new($ibx, 1);
51 eval { $rw->index_sync() };
52 is($@, '', 'no error from indexing');
54 my $minmax = [ $ibx->mm->minmax ];
55 ok(defined $minmax->[0] && defined $minmax->[1], 'minmax defined');
56 is_deeply($minmax, [ 1, 10 ], 'minmax as expected');
58 $rw = PublicInbox::SearchIdx->new($ibx, 1);
59 eval { $rw->index_sync({reindex => 1}) };
60 is($@, '', 'no error from reindexing');
63 my $xap = "$mainrepo/public-inbox/xapian".PublicInbox::Search::SCHEMA_VERSION();
65 ok(!-d $xap, 'Xapian directories removed');
66 $rw = PublicInbox::SearchIdx->new($ibx, 1);
68 eval { $rw->index_sync({reindex => 1}) };
69 is($@, '', 'no error from reindexing');
71 ok(-d $xap, 'Xapian directories recreated');
74 is_deeply([ $ibx->mm->minmax ], $minmax, 'minmax unchanged');
76 ok(unlink "$mainrepo/public-inbox/msgmap.sqlite3", 'remove msgmap');
78 ok(!-d $xap, 'Xapian directories removed again');
80 $rw = PublicInbox::SearchIdx->new($ibx, 1);
83 local $SIG{__WARN__} = sub { push @warn, @_ };
84 eval { $rw->index_sync({reindex => 1}) };
85 is($@, '', 'no error from reindexing without msgmap');
86 is(scalar(@warn), 0, 'no warnings from reindexing');
88 ok(-d $xap, 'Xapian directories recreated');
90 is_deeply([ $ibx->mm->minmax ], $minmax, 'minmax unchanged');
93 ok(unlink "$mainrepo/public-inbox/msgmap.sqlite3", 'remove msgmap');
95 ok(!-d $xap, 'Xapian directories removed again');
97 $rw = PublicInbox::SearchIdx->new($ibx, 1);
100 local $SIG{__WARN__} = sub { push @warn, @_ };
101 eval { $rw->index_sync({reindex => 1}) };
102 is($@, '', 'no error from reindexing without msgmap');
103 is_deeply(\@warn, [], 'no warnings');
105 ok(-d $xap, 'Xapian directories recreated');
107 is_deeply([ $ibx->mm->minmax ], $minmax, 'minmax unchanged');
110 ok(unlink "$mainrepo/public-inbox/msgmap.sqlite3", 'remove msgmap');
112 ok(!-d $xap, 'Xapian directories removed again');
114 $ibx_config->{index_level} = 'medium';
115 $ibx = PublicInbox::Inbox->new($ibx_config);
116 $rw = PublicInbox::SearchIdx->new($ibx, 1);
119 local $SIG{__WARN__} = sub { push @warn, @_ };
120 eval { $rw->index_sync({reindex => 1}) };
121 is($@, '', 'no error from reindexing without msgmap');
122 is_deeply(\@warn, [], 'no warnings');
124 ok(-d $xap, 'Xapian directories recreated');
126 is_deeply([ $ibx->mm->minmax ], $minmax, 'minmax unchanged');
130 ok(unlink "$mainrepo/public-inbox/msgmap.sqlite3", 'remove msgmap');
132 ok(!-d $xap, 'Xapian directories removed again');
134 $ibx_config->{index_level} = 'basic';
135 $ibx = PublicInbox::Inbox->new($ibx_config);
136 $rw = PublicInbox::SearchIdx->new($ibx, 1);
139 local $SIG{__WARN__} = sub { push @warn, @_ };
140 eval { $rw->index_sync({reindex => 1}) };
141 is($@, '', 'no error from reindexing without msgmap');
142 is_deeply(\@warn, [], 'no warnings');
144 ok(-d $xap, 'Xapian directories recreated');
146 is_deeply([ $ibx->mm->minmax ], $minmax, 'minmax unchanged');