view release on metacpan or  search on metacpan

t/17-podweaver-support.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.96;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::DZil;
use Test::Deep;
use Test::Fatal;
use Path::Tiny;
use PadWalker 'closed_over';

use Test::File::ShareDir -share => { -dist => { 'Dist-Zilla-PluginBundle-Author-ETHER' => 'share' } };

use lib 't/lib';
use Helper;
use NoNetworkHits;
use NoPrereqChecks;

my $header = qr/^=head1 SUPPORT\n\n/m;
my $stopwords = qr/^=for stopwords irc\n\n/m;
my $rt = qr{^\QBugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Foo-Bar>\E\s\(or L<bug-Foo-Bar\@rt\.cpan\.org\|mailto:bug-Foo-Bar\@rt\.cpan\.org>\)\.\n\n}m;
my $irc_channel = qr{^There is also an irc channel available for users of this distribution, at\sL<C<\#foobar> on C<irc\.perl\.org>\|irc://irc\.perl\.org/\#foobar>\.\n\n}m;
my $mailing_list = qr{^There is also a mailing list available for users of this distribution, at\sL<http://foo.org/mailing-list>\.\n\n}m;
my $irc_ether = qr/^I am also usually active on irc, as 'ether' at C<irc.perl.org> and C<irc.libera.chat>\.\n\n/m;

my @tests = (
    map {
        my $authority = "cpan:$_";
        my @authority_conf = ( [ Authority => { authority => $authority } ] );
        my @extra_pod = $authority eq 'cpan:ETHER' ? ( $irc_ether ) : ();
        {
            test_name => "authority = $authority, no metadata",
            config => [
                @authority_conf,
            ],
            pod => [
                $header,
                $rt,
                @extra_pod,
            ],
        },
        #{
        #    test_name => 'authority = ETHER, github issues (no email)',
        #    TODO
        #}
        {
            test_name => "authority = $authority, irc channel",
            config => [
                @authority_conf,
                [ MetaResources => { x_IRC => 'irc://irc.perl.org/#foobar' } ],
            ],
            pod => [
                $header,
                $rt,
                $irc_channel,
                @extra_pod,
            ],
        },
        {
            test_name => "authority = $authority, irc and mailing list",
            config => [
                @authority_conf,
                [ MetaResources => { x_IRC => 'irc://irc.perl.org/#foobar', x_MailingList => 'http://foo.org/mailing-list' } ],
            ],
            pod => [
                $header,
                $rt,
                $mailing_list,
                $irc_channel,
                @extra_pod,