my $cfgpfx = "publicinbox.test";
my $failbox = "$home/fail.mbox";
local $ENV{PI_EMERGENCY} = $failbox;
+my @mods = qw(HTTP::Request::Common Plack::Request Plack::Test
+ Mail::Thread URI::Escape);
+foreach my $mod (@mods) {
+ eval "require $mod";
+ plan skip_all => "$mod missing for plack.t" if $@;
+}
-our $have_plack;
-eval {
- require Plack::Request;
- eval 'use Plack::Test; use HTTP::Request::Common';
- $have_plack = 1;
-};
-SKIP: {
- skip 'Plack not installed', 1 unless $have_plack;
+foreach my $mod (@mods) { use_ok $mod; }
+{
ok(-f $psgi, "psgi example file found");
ok(-x "$main_bin/spamc",
"spamc ham mock found (run in top of source tree");
is($to, $res->header('Location'), 'redirect location matches');
});
+ my $pfx = 'http://example.com/test';
+ foreach my $t (qw(t T)) {
+ test_psgi($app, sub {
+ my ($cb) = @_;
+ my $u = $pfx . "/blah%40example.com/$t";
+ my $res = $cb->(GET($u));
+ is(301, $res->code, "redirect for missing /");
+ my $location = $res->header('Location');
+ like($location, qr!/\Q$t\E/#u\z!,
+ 'redirected with missing /');
+ });
+ }
+ foreach my $t (qw(f)) {
+ test_psgi($app, sub {
+ my ($cb) = @_;
+ my $u = $pfx . "/blah%40example.com/$t";
+ my $res = $cb->(GET($u));
+ is(301, $res->code, "redirect for missing /");
+ my $location = $res->header('Location');
+ like($location, qr!/\Q$t\E/\z!,
+ 'redirected with missing /');
+ });
+ }
+
test_psgi($app, sub {
my ($cb) = @_;
my $atomurl = 'http://example.com/test/new.atom';
'index generated');
});
- my $pfx = 'http://example.com/test';
test_psgi($app, sub {
my ($cb) = @_;
my $res = $cb->(GET($pfx . '/atom.xml'));
my ($cb) = @_;
my $res = $cb->(GET($pfx . '/blah%40example.com/raw'));
is(200, $res->code, 'success response received for /*/raw');
- like($res->content, qr!\AFrom !, "mbox returned");
+ like($res->content, qr!^From !sm, "mbox returned");
});
# legacy redirects