X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fsolver.t;h=880458fb96689aad3a5263a7d030102c0a821af4;hb=165efd91f75d64213eda4cebae11b310f8844300;hp=d2206b283d139902a221aa2b0867e4bca59acfad;hpb=a27717d1717b6fdf69e9472e8e9f61b2bbaeb5e7;p=public-inbox.git
diff --git a/xt/solver.t b/xt/solver.t
index d2206b28..880458fb 100644
--- a/xt/solver.t
+++ b/xt/solver.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
use strict;
use Test::More;
@@ -33,11 +33,11 @@ my $todo = {
],
};
-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,32 @@ 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) = 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);
}
}
done_testing();
-1;