xt/solver: improve diagnostics

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

diff --git a/xt/solver.t b/xt/solver.t
index 99fca0d3012c5c3cae15e9c86974b0dd51f667f6..32cd43cf2fec47bbc50b3ee1d33e92abc73f3c65 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);
@@ -41,8 +40,8 @@ my $client = sub {
                my $res = $cb->(GET($url));
                is($res->code, 200, $url);
                next if $res->code == 200;
-               # diag $res->content;
                diag "$url failed";
+               diag $res->content;
        }
 };
 
@@ -67,8 +66,7 @@ SKIP: {
        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);
-
+       my ($h, $p) = tcp_host_port($sock);
        local $ENV{PLACK_TEST_EXTERNALSERVER_URI} = "http://$h:$p";
        while (($ibx_name, $urls) = each %$todo) {
                Plack::Test::ExternalServer::test_psgi(client => $client);