lei add-external --mirror: deduce paths for PSGI mount prefixes

[public-inbox.git] / t / lei-mirror.psgi

diff --git a/t/lei-mirror.psgi b/t/lei-mirror.psgi
new file mode 100644 (file)
index 0000000..6b4bbfe
--- /dev/null
+++ b/t/lei-mirror.psgi
@@ -0,0 +1,9 @@
+use Plack::Builder;
+use PublicInbox::WWW;
+my $www = PublicInbox::WWW->new;
+$www->preload;
+builder {
+       enable 'Head';
+       mount '/pfx' => builder { sub { $www->call(@_) } };
+       mount '/' => builder { sub { $www->call(@_) } };
+};