#!perl -w # Copyright (C) 2020 all contributors # License: AGPL-3.0+ use strict; use Test::More; use PublicInbox::TestCommon; use PublicInbox::Config; # this relies on PI_CONFIG // ~/.public-inbox/config my @psgi = qw(HTTP::Request::Common Plack::Test URI::Escape Plack::Builder); require_mods(qw(DBD::SQLite Search::Xapian), @psgi); use_ok($_) for @psgi; use_ok 'PublicInbox::WWW'; my $cfg = PublicInbox::Config->new; my $www = PublicInbox::WWW->new($cfg); my $app = sub { my $env = shift; $env->{'psgi.errors'} = \*STDERR; $www->call($env); }; # TODO: convert these to self-contained test cases my $todo = { 'git' => [ '9e9048b02bd04d287461543d85db0bb715b89f8c' .'/s/?b=t%2Ft3420%2Fremove-ids.sed', 'eebf7a8/s/?b=t%2Ftest-lib.sh', 'eb580ca513/s/?b=remote-odb.c', '776fa90f7f/s/?b=contrib/git-jump/git-jump', '5cd8845/s/?b=submodule.c', '81c1164ae5/s/?b=builtin/log.c', '6aa8857a11/s/?b=protocol.c', '96f1c7f/s/', # TODO: b=contrib/completion/git-completion.bash 'b76f2c0/s/?b=po/zh_CN.po', ], }; my ($ibx, $urls); my $client = sub { my ($cb) = @_; for (@$urls) { my $url = "/$ibx/$_"; my $res = $cb->(GET($url)); is($res->code, 200, $url); next if $res->code == 200; # diag $res->content; diag "$url failed"; } }; while (($ibx, $urls) = each %$todo) { SKIP: { if (!$cfg->lookup_name($ibx)) { skip("$ibx not configured", scalar(@$urls)); } test_psgi($app, $client); } } done_testing(); 1;