From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <e@80x24.org>
X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net
X-Spam-Level: 
X-Spam-ASN:  
X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00
	shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2
Received: from localhost (dcvr.yhbt.net [127.0.0.1])
	by dcvr.yhbt.net (Postfix) with ESMTP id C53CF1F466
	for <meta@public-inbox.org>; Sat,  4 Jan 2020 03:34:15 +0000 (UTC)
From: Eric Wong <e@80x24.org>
To: meta@public-inbox.org
Subject: [PATCH 1/3] xt/solver.t: real-world regression tests
Date: Sat,  4 Jan 2020 03:34:13 +0000
Message-Id: <20200104033415.17097-2-e@80x24.org>
In-Reply-To: <20200104033415.17097-1-e@80x24.org>
References: <20200104033415.17097-1-e@80x24.org>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
List-Id: <meta.public-inbox.org>

There's a lot of test cases which we should probably
make self-contained at some point, but right now it's
easier to just mark them off in a maintainer test.
---
 MANIFEST    |  1 +
 xt/solver.t | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 xt/solver.t

diff --git a/MANIFEST b/MANIFEST
index 4d922f97..845fee7b 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -301,3 +301,4 @@ xt/nntpd-validate.t
 xt/perf-msgview.t
 xt/perf-nntpd.t
 xt/perf-threading.t
+xt/solver.t
diff --git a/xt/solver.t b/xt/solver.t
new file mode 100644
index 00000000..238abecd
--- /dev/null
+++ b/xt/solver.t
@@ -0,0 +1,57 @@
+#!perl -w
+# Copyright (C) 2020 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 PublicInbox::TestCommon;
+use PublicInbox::Config; # this relies on PI_CONFIG // ~/.public-inbox/config
+use PublicInbox::WWW;
+my @psgi = qw(HTTP::Request::Common Plack::Test URI::Escape Plack::Builder);
+require_mods(qw(DBD::SQLite Search::Xapian), @psgi);
+use_ok($_) for @psgi;
+my $cfg = PublicInbox::Config->new;
+my $www = PublicInbox::WWW->new($cfg);
+my $app = sub {
+	my $env = shift;
+	$env->{'psgi.errors'} = \*STDERR;
+	$www->call($env);
+};
+
+# TODO: convert these to self-contained test cases
+my $todo = {
+	'git' => [
+		# 'eebf7a8/s/?b=t%2Ftest-lib.sh', TODO
+		'eb580ca513/s/?b=remote-odb.c',
+		'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/
+		'96f1c7f/s/', # TODO: b=contrib/completion/git-completion.bash
+		'b76f2c0/s/?b=po/zh_CN.po',
+	],
+};
+
+my ($ibx, $urls);
+my $client = sub {
+	my ($cb) = @_;
+	for (@$urls) {
+		my $url = "/$ibx/$_";
+		my $res = $cb->(GET($url));
+		is($res->code, 200, $url);
+		next if $res->code == 200;
+		# diag $res->content;
+		diag "$url failed";
+	}
+};
+
+while (($ibx, $urls) = each %$todo) {
+	SKIP: {
+		if (!$cfg->lookup_name($ibx)) {
+			skip("$ibx not configured", scalar(@$urls));
+		}
+		test_psgi($app, $client);
+	}
+}
+
+done_testing();
+1;