view release on metacpan or  search on metacpan

t/lib/TestPW.pm  view on Meta::CPAN

my $zilla = Test::MockObject->new();
$zilla->set_always(is_trial => 0);
$zilla->set_always(license => Software::License::Perl_5->new({ holder => 'DZHolder', year => 2010, }) );
$zilla->set_always(authors => ['DZAuth Stauner <rwstauner@cpan.org>']);
$zilla->set_always(stash_named => undef);
$zilla->mock(copyright_holder => sub { $_[0]->license->holder });
# proposed changes to Pod::Weaver::Section::Legal look for a license file.  we can ignore that for these tests.
$zilla->set_always(files => []);

sub slurp_file { local (@ARGV, $/) = @_; <> }

sub test_basic {
  my ($weaver, $input, $stopwords) = @_;
  my $expected = $input->{expected};

  my ($paragraphs, $versionp, @nestedh1s) = ( 9, 1, qw(0 1 3 4 5   7 8));

  # Back-Compatibilty: Pod::Weaver 4 has -SingleEncoding in @Default.
  # All our tests now have TestPWEncoding but not for the @Default test.
  if( grep { ref($_) =~ /Encoding$/ } @{ $weaver->plugins } ){