Dist-Zilla-Plugin-MetaProvides

 view release on metacpan or  search on metacpan

t/01-Provider/01-boolean-attrs.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.96;
use Test::Fatal;
use Path::Tiny qw( path );
use Test::DZil qw( simple_ini Builder );

use lib 't/lib';

# Keepalive
my $builder;

sub make_plugin {
  my @args = @_;
  $builder = Builder->from_config(
    {
      dist_root => 'invalid',
    },
    {
      add_files => {

t/01-Provider/02-resolve-versions.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.96;
use Test::Fatal;
use Path::Tiny qw( path );
use Test::DZil qw( simple_ini Builder );

use lib 't/lib';

# Keepalive
my $builder;

sub make_plugin {
  my @args = @_;
  $builder = Builder->from_config(
    {
      dist_root => 'invalid',
    },
    {
      add_files => {

t/01-Provider/03-metanoindex.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.96;
use Test::Fatal;
use Path::Tiny qw( path );
use Test::DZil qw( simple_ini Builder );

use lib 't/lib';

# Keepalive
my $builder;

sub make_plugin_metanoindex {
  my $iconfig = shift;
  $builder = Builder->from_config(
    { dist_root => 'invalid' },
    {
      add_files => {
        path('source/dist.ini') => simple_ini(
          [ 'FakePlugin'  => $iconfig->{fakeplugin} ],    #

t/01-Provider/04-integration.t  view on Meta::CPAN

  my $meta = $plugin->metadata;
  ok( grep { /No no_index attribute/ } @{ $builder->log_messages } );
  is_deeply(
    $meta,
    { provides => { 'FakeModule' => { file => 'C:\temp\notevenonwindows.pl', version => '0.001' } } },
    'Top level metadata hash returns deep result'
  );

};

# Keepalive
subtest "empty-meta-noindex" => sub {
  {

    package Dist::Zilla::Plugin::Fake::MetaNoIndex;
    use Moose;
    with 'Dist::Zilla::Role::MetaProvider';
    around isa => sub {
      my ( $orig, $class, $hwhat ) = @_;
      return 1 if $hwhat eq 'Dist::Zilla::Plugin::MetaNoIndex';
      return $class->$orig($hwhat);