diff options
author | Eric Wong <e@80x24.org> | 2016-05-27 08:57:42 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-05-27 09:03:32 +0000 |
commit | 0b1c6867ee10d9edcbd75c359cb23c75b732682e (patch) | |
tree | 7b880ad31530d46ed6343e9e283a5ad18aa70140 /t | |
parent | 3344815088512287243b622658dbb7fbea87beb1 (diff) | |
download | public-inbox-0b1c6867ee10d9edcbd75c359cb23c75b732682e.tar.gz |
Oops, added a test to prevent regressions while we're at it.
Diffstat (limited to 't')
-rw-r--r-- | t/plack.t | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -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) = @_; |