diff options
author | Eric Wong <e@80x24.org> | 2022-10-04 19:12:31 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-10-05 20:24:40 +0000 |
commit | e95fbe90accedf079f3ddbd1df8e267e2fe90c2e (patch) | |
tree | e84123317f2fcdae5143b8e819dfde52e3de837f /xt/solver.t | |
parent | 1e7cc8849b56ec96a16fda97921e1612cedc01a3 (diff) | |
download | public-inbox-e95fbe90accedf079f3ddbd1df8e267e2fe90c2e.tar.gz |
This allows us to consolidate our checks for Plack::Test::ExternalServer and enforce our redirect-disabled LWP::UserAgent.
Diffstat (limited to 'xt/solver.t')
-rw-r--r-- | xt/solver.t | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/xt/solver.t b/xt/solver.t index 32cd43cf..c76e0b0a 100644 --- a/xt/solver.t +++ b/xt/solver.t @@ -57,20 +57,10 @@ while (($ibx_name, $urls) = each %$todo) { } } -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) = 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); - } +delete @$todo{@gone}; +my $env = { PI_CONFIG => PublicInbox::Config->default_file }; +while (($ibx_name, $urls) = each %$todo) { + test_httpd($env, $client, $nr); } done_testing(); |