public-inbox 1.6.1 - minor bugfix release

[public-inbox.git] / t / www_static.t
diff --git a/t/www_static.t b/t/www_static.t

index 10757cb7feb3833d89f40c1e8f7e9d11252a2126..364b9447a0205c7192e5bd0112f366583d50e38c 100644 (file)
--- a/t/www_static.t
+++ b/t/www_static.t
@@ -6,7 +6,7 @@ use Test::More;
  use PublicInbox::TestCommon;
  my ($tmpdir, $for_destroy) = tmpdir();
  my @mods = qw(HTTP::Request::Common Plack::Test URI::Escape);
-require_mods(@mods);
+require_mods(@mods, 'IO::Uncompress::Gunzip');
  use_ok $_ foreach @mods;
  use_ok 'PublicInbox::WwwStatic';
  
@@ -91,6 +91,15 @@ test_psgi($app->(autoindex => 1, index => []), sub {
         $get->header('Accept-Encoding' => 'gzip');
         $res = $cb->($get);
         is($res->content, "hi", 'got compressed on mtime match');
+
+       $get = GET('/dir/');
+       $get->header('Accept-Encoding' => 'gzip');
+       $res = $cb->($get);
+       my $in = $res->content;
+       my $out = '';
+       IO::Uncompress::Gunzip::gunzip(\$in => \$out);
+       like($out, qr/\A<html>/, 'got HTML start after gunzip');
+       like($out, qr{</html>$}, 'got HTML end after gunzip');
  });
  
  done_testing();