diff options
author | Eric Wong <e@80x24.org> | 2016-08-18 04:44:07 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-08-18 09:31:55 +0000 |
commit | adecbd43d2eed046fe6e88a459d03567461fd84b (patch) | |
tree | 7900b8ee9e908daa6fa8ddbef3c7ad846ecd8c8b /t | |
parent | dfe55f5ee5bd6e3a12d933a6570eb94f294d1c54 (diff) | |
download | public-inbox-adecbd43d2eed046fe6e88a459d03567461fd84b.tar.gz |
Begin documenting some basic help functionality. I may tweak the anchor names of the various HTML endpoints to be more consistent with each other (old ones will be supported for a short while), so I'm not documenting those, for now. This may become part of a builtin key-value store for basic texts, but this probably shouldn't become a wiki engine, either.
Diffstat (limited to 't')
-rw-r--r-- | t/psgi_text.t | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/t/psgi_text.t b/t/psgi_text.t new file mode 100644 index 00000000..bf565f83 --- /dev/null +++ b/t/psgi_text.t @@ -0,0 +1,39 @@ +# Copyright (C) 2016 all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +use strict; +use warnings; +use Test::More; +use Email::MIME; +use File::Temp qw/tempdir/; +my $tmpdir = tempdir('psgi-text-XXXXXX', TMPDIR => 1, CLEANUP => 1); +my $maindir = "$tmpdir/main.git"; +my $addr = 'test-public@example.com'; +my $cfgpfx = "publicinbox.test"; +my @mods = qw(HTTP::Request::Common Plack::Test URI::Escape); +foreach my $mod (@mods) { + eval "require $mod"; + plan skip_all => "$mod missing for psgi_text.t" if $@; +} +use_ok $_ foreach @mods; +use PublicInbox::Import; +use PublicInbox::Git; +use PublicInbox::Config; +use PublicInbox::WWW; +use_ok 'PublicInbox::WwwText'; +use Plack::Builder; +my $config = PublicInbox::Config->new({ + "$cfgpfx.address" => $addr, + "$cfgpfx.mainrepo" => $maindir, +}); +is(0, system(qw(git init -q --bare), $maindir), "git init (main)"); +my $www = PublicInbox::WWW->new($config); + +test_psgi(sub { $www->call(@_) }, sub { + my ($cb) = @_; + my $res; + $res = $cb->(GET('/test/_/text/help/')); + like($res->content, qr!<title>public-inbox help.*</title>!, + 'default help'); +}); + +done_testing(); |