1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
| | #!perl -w
# Copyright (C) all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use v5.10.1;
use PublicInbox::TestCommon;
use PublicInbox::Config;
use File::Copy qw(cp);
use IO::Handle ();
require_git(2.6);
require_mods(qw(json DBD::SQLite Xapian
HTTP::Request::Common Plack::Test URI::Escape Plack::Builder));
use_ok($_) for (qw(HTTP::Request::Common Plack::Test));
use IO::Uncompress::Gunzip qw(gunzip);
require PublicInbox::WWW;
my ($ro_home, $cfg_path) = setup_public_inboxes;
my ($tmpdir, $for_destroy) = tmpdir;
my $home = "$tmpdir/home";
mkdir $home or BAIL_OUT $!;
mkdir "$home/.public-inbox" or BAIL_OUT $!;
my $pi_config = "$home/.public-inbox/config";
cp($cfg_path, $pi_config) or BAIL_OUT;
my $env = { HOME => $home };
my $m2t = create_inbox 'mid2tid', version => 2, indexlevel => 'basic', sub {
my ($im, $ibx) = @_;
for my $n (1..3) {
$im->add(PublicInbox::Eml->new(<<EOM)) or xbail 'add';
Date: Fri, 02 Oct 1993 00:0$n:00 +0000
Message-ID: <t\@$n>
Subject: tid $n
From: x\@example.com
References: <a-mid\@b>
$n
EOM
$im->add(PublicInbox::Eml->new(<<EOM)) or xbail 'add';
Date: Fri, 02 Oct 1993 00:0$n:00 +0000
Message-ID: <ut\@$n>
Subject: unrelated tid $n
From: x\@example.com
References: <b-mid\@b>
EOM
}
};
{
open my $cfgfh, '>>', $pi_config or BAIL_OUT;
$cfgfh->autoflush(1);
print $cfgfh <<EOM or BAIL_OUT;
[extindex "all"]
topdir = $tmpdir/eidx
url = http://bogus.example.com/all
[publicinbox]
wwwlisting = all
grokManifest = all
[publicinbox "m2t"]
inboxdir = $m2t->{inboxdir}
address = $m2t->{-primary_address}
EOM
close $cfgfh or xbail "close: $!";
}
run_script([qw(-extindex --all), "$tmpdir/eidx"], $env) or BAIL_OUT;
my $www = PublicInbox::WWW->new(PublicInbox::Config->new($pi_config));
my $client = sub {
my ($cb) = @_;
my $res = $cb->(GET('/all/'));
is($res->code, 200, '/all/ good');
$res = $cb->(GET('/all/new.atom', Host => 'usethis.example.com'));
like($res->content, qr!http://usethis\.example\.com/!s,
'Host: header respected in Atom feed');
unlike($res->content, qr!http://bogus\.example\.com/!s,
'default URL ignored with different host header');
$res = $cb->(GET('/all/_/text/config/'));
is($res->code, 200, '/text/config HTML');
$res = $cb->(GET('/all/_/text/config/raw'));
is($res->code, 200, '/text/config raw');
my $f = "$tmpdir/extindex.config";
open my $fh, '>', $f or xbail $!;
print $fh $res->content or xbail $!;
close $fh or xbail $!;
my $cfg = PublicInbox::Config->git_config_dump($f);
is($?, 0, 'no errors from git-config parsing');
ok($cfg->{'extindex.all.topdir'}, 'extindex.topdir defined');
$res = $cb->(GET('/all/all.mbox.gz'));
is($res->code, 200, 'all.mbox.gz');
$res = $cb->(GET('/'));
like($res->content, qr!\Qhttp://bogus.example.com/all\E!,
'/all listed');
$res = $cb->(GET('/?q='));
is($res->code, 200, 'no query means all inboxes');
$res = $cb->(GET('/?q=nonexistent'));
is($res->code, 404, 'no inboxes matched');
unlike($res->content, qr!no inboxes, yet!,
'we have inboxes, just no matches');
my $m = {};
for my $pfx (qw(/t1 /t2), '') {
$res = $cb->(GET($pfx.'/manifest.js.gz'));
gunzip(\($res->content) => \(my $js));
$m->{$pfx} = json_utf8->decode($js);
}
is_deeply([sort keys %{$m->{''}}],
[ sort(keys %{$m->{'/t1'}}, keys %{$m->{'/t2'}}) ],
't1 + t2 = all');
is_deeply([ sort keys %{$m->{'/t2'}} ], [ '/t2/git/0.git' ],
't2 manifest');
is_deeply([ sort keys %{$m->{'/t1'}} ], [ '/t1' ],
't2 manifest');
# ensure ibx->{isrch}->{es}->over is used instead of ibx->over:
$res = $cb->(POST("/m2t/t\@1/?q=dt:19931002000259..&x=m"));
is($res->code, 200, 'hit on mid2tid query');
$res = $cb->(POST("/m2t/t\@1/?q=dt:19931002000400..&x=m"));
is($res->code, 404, '404 on out-of-range mid2tid query');
$res = $cb->(POST("/m2t/t\@1/?q=s:unrelated&x=m"));
is($res->code, 404, '404 on cross-thread search');
for my $c (qw(new active)) {
$res = $cb->(GET("/m2t/topics_$c.html"));
is($res->code, 200, "topics_$c.html on basic v2");
$res = $cb->(GET("/all/topics_$c.html"));
is($res->code, 200, "topics_$c.html on extindex");
}
};
test_psgi(sub { $www->call(@_) }, $client);
%$env = (%$env, TMPDIR => $tmpdir, PI_CONFIG => $pi_config);
test_httpd($env, $client);
done_testing;
|