No ext_urls

[public-inbox.git] / xt / solver.t

diff --git a/xt/solver.t b/xt/solver.t
index 5307e1201cb96251b284eabf748d620aed485659..1b0af3d8cadf45a0d4827f913c04a591408d33da 100644 (file)
--- a/xt/solver.t
+++ b/xt/solver.t
@@ -1,8 +1,7 @@
 #!perl -w
-# Copyright (C) 2020 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-use strict;
-use Test::More;
+use v5.12;
 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);
@@ -27,33 +26,49 @@ my $todo = {
                '776fa90f7f/s/?b=contrib/git-jump/git-jump',
                '5cd8845/s/?b=submodule.c',
                '81c1164ae5/s/?b=builtin/log.c',
-               '6aa8857a11/s/?b=protocol.c', # TODO: i/, w/ instead of a/ b/
+               '6aa8857a11/s/?b=protocol.c',
                '96f1c7f/s/', # TODO: b=contrib/completion/git-completion.bash
                'b76f2c0/s/?b=po/zh_CN.po',
+               'c2f3bf071ee90b01f2d629921bb04c4f798f02fa/s/', # tag
        ],
 };
 
-my ($ibx, $urls);
+my ($ibx_name, $urls, @gone);
 my $client = sub {
        my ($cb) = @_;
-       for (@$urls) {
-               my $url = "/$ibx/$_";
+       for my $u (@$urls) {
+               my $url = "/$ibx_name/$u";
                my $res = $cb->(GET($url));
                is($res->code, 200, $url);
                next if $res->code == 200;
-               # diag $res->content;
                diag "$url failed";
+               diag $res->content;
        }
 };
 
-while (($ibx, $urls) = each %$todo) {
+my $nr = 0;
+while (($ibx_name, $urls) = each %$todo) {
        SKIP: {
-               if (!$cfg->lookup_name($ibx)) {
-                       skip("$ibx not configured", scalar(@$urls));
+               my $ibx = $cfg->lookup_name($ibx_name);
+               if (!$ibx) {
+                       push @gone, $ibx_name;
+                       skip(qq{[publicinbox "$ibx_name"] not configured},
+                               scalar(@$urls));
+               }
+               if (!defined($ibx->{coderepo})) {
+                       push @gone, $ibx_name;
+                       skip(qq{publicinbox.$ibx_name.coderepo not configured},
+                               scalar(@$urls));
                }
                test_psgi($app, $client);
+               $nr++;
        }
 }
 
+delete @$todo{@gone};
+my $env = { PI_CONFIG => PublicInbox::Config->default_file };
+while (($ibx_name, $urls) = each %$todo) {
+       test_httpd($env, $client, $nr);
+}
+
 done_testing();
-1;