From ed724ad94ae8eccb7924584b01ec4975abfef48d Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 21 Aug 2015 21:42:23 +0000 Subject: switch to gzipped mboxes Mboxes may be huge, so only support downloading gzipped mboxes to save bandwidth and to get free checksumming. Streaming output means we should not be wasting too much memory on this unless the chosen server sucks. --- t/cgi.t | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 't/cgi.t') diff --git a/t/cgi.t b/t/cgi.t index 2747a159..e87f7dca 100644 --- a/t/cgi.t +++ b/t/cgi.t @@ -183,15 +183,20 @@ EOF { local $ENV{HOME} = $home; local $ENV{PATH} = $main_path; - my $path = "/test/t/blahblah%40example.com.mbox"; + my $path = "/test/t/blahblah%40example.com.mbox.gz"; my $res = cgi_run($path); like($res->{head}, qr/^Status: 501 /, "search not-yet-enabled"); my $indexed = system($index, $maindir) == 0; if ($indexed) { $res = cgi_run($path); - # use Data::Dumper; print STDERR Dumper($res); like($res->{head}, qr/^Status: 200 /, "search returned mbox"); - like($res->{body}, qr/^From /m, "From lines in mbox"); + eval { + require IO::Uncompress::Gunzip; + my $in = $res->{body}; + my $out; + IO::Uncompress::Gunzip::gunzip(\$in => \$out); + like($out, qr/^From /m, "From lines in mbox"); + }; } else { like($res->{head}, qr/^Status: 501 /, "search not available"); } -- cgit v1.2.3-24-ge0c7