view release on metacpan or  search on metacpan

t/metaonly.t  view on Meta::CPAN

  {
    options =>  [ qw/--no-configure --develop/ ],
    remove =>   [ qw/X::Configure::Requires/ ],
  },
);

for my $c ( @cases ) {
  my $wd = pushd( catdir( qw/corpus metaonly/ ) );
  my @options = @{$c->{options}};
  my $label = @options ? join(" ", @options) : "(default)";
  local @ARGV = (@options);
  my $app = App::mymeta_requires->new;
  my %expected = %all_reqs;
  delete $expected{$_} for @{ $c->{remove} };
  my $output = capture { $app->run };
  cmp_deeply( [split "\n", $output], bag(sort keys %expected), $label );
}

done_testing;
#
# This file is part of App-mymeta_requires

t/requires.t  view on Meta::CPAN

  },
  {
    options =>  [ qw/--no-build --develop/ ],
    remove =>   [ qw/X::Build::Requires/ ],
  },
);

for my $c ( @cases ) {
  my @options = @{$c->{options}};
  my $label = @options ? join(" ", @options) : "(default)";
  local @ARGV = ('--file', catfile(qw/corpus MYMETA.json/), @options);
  my $app = App::mymeta_requires->new;
  my %expected = %all_reqs;
  delete $expected{$_} for @{ $c->{remove} };
  my $output = capture { $app->run };
  cmp_deeply( [split "\n", $output], bag(sort keys %expected), $label );
}

done_testing;
#
# This file is part of App-mymeta_requires