This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to annotated tag 0.17 in repository libdist-zilla-plugin-test-eol-perl.
commit cdf940280573deec74e0a3966bb1cb0af4771f53 Author: Karen Etheridge <et...@cpan.org> Date: Fri Jan 30 23:51:37 2015 -0800 add new "file" option --- Changes | 1 + lib/Dist/Zilla/Plugin/Test/EOL.pm | 19 ++++++++++++++++++- t/03-finder.t | 8 +++++++- 3 files changed, 26 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 2d52d21..94d9beb 100644 --- a/Changes +++ b/Changes @@ -7,6 +7,7 @@ Revision history for {{$dist->name}} searching of .pod by default); also works around issue with older Test::EOL Test::NoTabs that tests nothing when the test is two levels deep from the dist root (see RT#66177) + - add new 'file' option, for adding additional files to test 0.16 2014-11-17 03:00:59Z - allow tests to pass even while upstream modules have warnings under diff --git a/lib/Dist/Zilla/Plugin/Test/EOL.pm b/lib/Dist/Zilla/Plugin/Test/EOL.pm index f6d73de..c6649f7 100644 --- a/lib/Dist/Zilla/Plugin/Test/EOL.pm +++ b/lib/Dist/Zilla/Plugin/Test/EOL.pm @@ -36,10 +36,21 @@ has filename => ( default => sub { return 'xt/author/eol.t' }, ); +has files => ( + isa => 'ArrayRef[Str]', + traits => ['Array'], + handles => { files => 'elements' }, + lazy => 1, + default => sub { [] }, +); + has _file_obj => ( is => 'rw', isa => role_type('Dist::Zilla::Role::File'), ); +sub mvp_multivalue_args { 'files' } +sub mvp_aliases { return { file => 'files' } } + around dump_config => sub { my ($orig, $self) = @_; @@ -76,6 +87,7 @@ sub munge_files my @filenames = map { path($_->name)->relative('.')->stringify } grep { not ($_->can('is_bytes') and $_->is_bytes) } @{ $self->found_files }; + push @filenames, $self->files; $self->log_debug('adding file ' . $_) foreach @filenames; @@ -147,11 +159,16 @@ L<Dist::Zilla::Role::FileFinderUser/default_finders>. You can define your own with the L<[FileFinder::ByName]|Dist::Zilla::Plugin::FileFinder::ByName> plugin. +=head2 C<file> + +a filename to also test, in addition to any files found +earlier. This option can be repeated to specify multiple additional files. + =head2 C<filename> The filename of the test to add - defaults to F<xt/author/test-eol.t>. -=for Pod::Coverage gather_files munge_files register_prereqs +=for Pod::Coverage mvp_multivalue_args mvp_aliases gather_files munge_files register_prereqs =head1 ACKNOWLEDGMENTS diff --git a/t/03-finder.t b/t/03-finder.t index b6de62a..e47d17d 100644 --- a/t/03-finder.t +++ b/t/03-finder.t @@ -21,7 +21,7 @@ my $tzil = Builder->from_config( [ GatherDir => ], [ ExecDir => ], [ 'FileFinder::ByName' => ExtraTestFiles => { dir => 'xt' } ], - [ 'Test::EOL' => { finder => [ ':InstallModules', ':TestFiles' ] } ], + [ 'Test::EOL' => { finder => [ ':InstallModules', ':TestFiles' ], file => [ 'examples/foo' ] } ], ), path(qw(source lib Foo.pm)) => <<'MODULE', package Foo; @@ -46,6 +46,11 @@ use warnings; use Test::More tests => 1; pass('hi!'); TEST + path(qw(source examples foo)) => <<'EXAMPLE', +use strict; +use warnings; +print "hello there!\n"; +EXAMPLE }, }, ); @@ -65,6 +70,7 @@ my @files = ( path(qw(lib Foo.pm)), path(qw(lib Bar.pod)), path(qw(t foo.t)), + path(qw(examples foo)), ); like($content, qr/'\Q$_\E'/m, "test checks $_") foreach @files; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-eol-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits