about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2020-09-09 06:26:08 +0000
committerEric Wong <e@80x24.org>2020-09-10 19:45:18 +0000
commit6b13c85d2b1b94973c374fa3444148b49d1d8a19 (patch)
tree3cfd4c2f542118a5da19521eb373e80ee51b780c
parenta43ca1d19f3b748d6abd62c9ce8b159f1255edfb (diff)
downloadpublic-inbox-6b13c85d2b1b94973c374fa3444148b49d1d8a19.tar.gz
We'll be making changes to solver to make it even fairer
to slow clients on slow storage.  Ensure we test with
public-inbox-httpd-specific codepaths, since the generic
PSGI code paths are rare in production use.
-rw-r--r--xt/solver.t31
1 files changed, 25 insertions, 6 deletions
diff --git a/xt/solver.t b/xt/solver.t
index d2206b28..99fca0d3 100644
--- a/xt/solver.t
+++ b/xt/solver.t
@@ -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,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;