config: fix NewsWWW fallback for newsgroups in HTTP URLs

Oops, added a test to prevent regressions while we're at it.

1 files changed, 15 insertions, 0 deletions

diff --git a/t/plack.t b/t/plack.t
index c8dd7bfe..04680b2a 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -30,6 +30,8 @@ foreach my $mod (@mods) { use_ok $mod; }
         my %cfg = (
                 "$cfgpfx.address" => $addr,
                 "$cfgpfx.mainrepo" => $maindir,
+                "$cfgpfx.url" => 'http://example.com/test/',
+                "$cfgpfx.newsgroup" => 'inbox.test',
         );
         while (my ($k,$v) = each %cfg) {
                 is(0, system(qw(git config --file), $pi_config, $k, $v),
@@ -60,6 +62,19 @@ EOF
                 require $psgi;
         };
 
+        # redirect with newsgroup
+        test_psgi($app, sub {
+                my ($cb) = @_;
+                my $from = 'http://example.com/inbox.test';
+                my $to = 'http://example.com/test/';
+                my $res = $cb->(GET($from));
+                is($res->code, 301, 'is permanent redirect');
+                is($to, $res->header('Location'), 'redirect location matches');
+                $from .= '/';
+                is($res->code, 301, 'is permanent redirect');
+                is($to, $res->header('Location'), 'redirect location matches');
+        });
+
         # redirect with trailing /
         test_psgi($app, sub {
                 my ($cb) = @_;