2 # Copyright (C) 2020 all contributors <meta@public-inbox.org>
3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
5 use IO::Handle; # ->flush
6 use Fcntl qw(SEEK_SET);
7 use PublicInbox::TestCommon;
8 use PublicInbox::Tmpfile;
10 my @mods = qw(DBD::SQLite BSD::Resource PublicInbox::WWW);
13 my $lines = $ENV{NR_LINES} // 100000;
14 my ($tmpdir, $for_destroy) = tmpdir();
15 my $inboxname = 'big';
16 my $inboxdir = "$tmpdir/big";
17 local $ENV{PI_CONFIG} = "$tmpdir/cfg";
18 my $mid = 'test@example.com';
21 open my $fh, '>', "$tmpdir/cfg" or die;
22 print $fh <<EOF or die;
28 my $addr = 'n@example.com';
29 ok(run_script([qw(-init -V2 --indexlevel=basic), $inboxname, $inboxdir,
30 "http://example.com/$inboxname", $addr]),
33 $fh = tmpfile('big.eml', undef, my $append = 1) or die;
34 printf($fh <<'EOF', $addr, $mid) or die;
35 From: Dr. X <x@example.com>
37 Date: Tue, 3 May 1988 00:00:00 +0000
42 for (0..$lines) { print $fh 'x' x 72, "\n" or die }
44 sysseek($fh, 0, SEEK_SET) or die;
45 my $env = { ORIGINAL_RECIPIENT => $addr };
47 my $opt = { 0 => $fh, 2 => \$err, run_mode => 0 };
48 ok(run_script([qw(-mda --no-precheck)], $env, $opt),
49 '1st message delivered');
51 # resend the message with same mid but different content
52 print $fh "mindcrime\n" or die;
54 sysseek($fh, 0, SEEK_SET) or die;
55 ok(run_script([qw(-mda --no-precheck)], $env, $opt),
56 '2nd message delivered');
59 my $www = PublicInbox::WWW->new;
61 PATH_INFO => "/$inboxname/$mid/",
62 REQUEST_URI => "/$inboxname/$mid/",
65 REQUEST_METHOD => 'GET',
66 HTTP_HOST => 'example.com',
67 'psgi.errors' => \*STDERR,
68 'psgi.url_scheme' => 'http',
70 my $ru_before = BSD::Resource::getrusage();
71 my $res = $www->call($env);
73 while (defined(my $x = $body->getline)) {
76 my $ru_after = BSD::Resource::getrusage();
77 my $diff = $ru_after->maxrss - $ru_before->maxrss;
78 diag "before: ${\$ru_before->maxrss} => ${\$ru_after->maxrss} diff=$diff kB";