t/psgi_scan_all.t

   1 #!perl -w
   2 # Copyright (C) all contributors <meta@public-inbox.org>
   3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   4 use v5.12;
   5 use PublicInbox::TestCommon;
   6 use PublicInbox::Eml;
   7 my @req = qw(URI::Escape DBD::SQLite);
   8 require_git v2.6;
   9 require_mods qw(DBD::SQLite psgi);
  10 use_ok 'PublicInbox::WWW';
  11 my $cfgtxt = '';
  12 foreach my $i (1..2) {
  13         my $ibx = create_inbox "test-$i", version => 2, indexlevel => 'basic',
  14         sub {
  15                 my ($im, $ibx) = @_;
  16                 $im->add(PublicInbox::Eml->new(<<EOF)) or BAIL_OUT;
  17 From: a\@example.com
  18 To: $ibx->{-primary_address}
  19 Subject: s$i
  20 Message-ID: <a-mid-$i\@b>
  21 Date: Fri, 02 Oct 1993 00:00:00 +0000
  22
  23 hello world
  24 EOF
  25         };
  26         $cfgtxt .= <<EOM;
  27 [publicinbox "test-$i"]
  28         address = $ibx->{-primary_address}
  29         inboxdir = $ibx->{inboxdir}
  30         url = http://example.com/$i
  31 EOM
  32 }
  33 my $tmpdir = tmpdir;
  34 my $www = PublicInbox::WWW->new(cfg_new($tmpdir, $cfgtxt));
  35
  36 test_psgi(sub { $www->call(@_) }, sub {
  37         my ($cb) = @_;
  38         foreach my $i (1..2) {
  39                 foreach my $end ('', '/') {
  40                         my $res = $cb->(GET("/a-mid-$i\@b$end"));
  41                         is($res->code, 302, 'got 302');
  42                         is($res->header('Location'),
  43                                 "http://example.com/$i/a-mid-$i\@b/",
  44                                 "redirected OK to $i");
  45                 }
  46         }
  47         foreach my $x (qw(inv@lid inv@lid/ i/v/a l/i/d/)) {
  48                 my $res = $cb->(GET("/$x"));
  49                 is($res->code, 404, "404 on $x");
  50         }
  51 });
  52 done_testing;