xt/solver: test with public-inbox-httpd, too

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

diff --git a/xt/solver.t b/xt/solver.t
index 5307e1201cb96251b284eabf748d620aed485659..99fca0d3012c5c3cae15e9c86974b0dd51f667f6 100644 (file)
--- a/xt/solver.t
+++ b/xt/solver.t
@@ -27,17 +27,17 @@ 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',
        ],
 };
 
-my ($ibx, $urls);
+my ($ibx_name, $urls, @gone);
 my $client = sub {
        my ($cb) = @_;
        for (@$urls) {
-               my $url = "/$ibx/$_";
+               my $url = "/$ibx_name/$_";
                my $res = $cb->(GET($url));
                is($res->code, 200, $url);
                next if $res->code == 200;
@@ -46,14 +46,33 @@ my $client = sub {
        }
 };
 
-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));
+               if (!$cfg->lookup_name($ibx_name)) {
+                       push @gone, $ibx_name;
+                       skip("$ibx_name not configured", scalar(@$urls));
                }
                test_psgi($app, $client);
+               $nr++;
+       }
+}
+
+SKIP: {
+       require_mods(qw(Plack::Test::ExternalServer), $nr);
+       delete @$todo{@gone};
+
+       my $sock = tcp_server() or BAIL_OUT $!;
+       my ($tmpdir, $for_destroy) = tmpdir();
+       my ($out, $err) = map { "$tmpdir/std$_.log" } qw(out err);
+       my $cmd = [ qw(-httpd -W0), "--stdout=$out", "--stderr=$err" ];
+       my $td = start_script($cmd, undef, { 3 => $sock });
+       my ($h, $p) = ($sock->sockhost, $sock->sockport);
+
+       local $ENV{PLACK_TEST_EXTERNALSERVER_URI} = "http://$h:$p";
+       while (($ibx_name, $urls) = each %$todo) {
+               Plack::Test::ExternalServer::test_psgi(client => $client);
        }
 }
 
 done_testing();
-1;