This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 2.001001 in repository libdist-zilla-plugin-test-podspelling-perl.
commit 530080f88a00df005e43cee868cc191b2062bc51 Author: Randy Stauner <[email protected]> Date: Tue Sep 6 07:32:39 2011 -0700 Use Test::Tester and run the actual xt file to verify that the files we want are actually getting checked. --- t/checked.t | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) diff --git a/t/checked.t b/t/checked.t new file mode 100644 index 0000000..3e95647 --- /dev/null +++ b/t/checked.t @@ -0,0 +1,55 @@ +use strict; +use warnings; +use Test::Tester; +use Test::More 0.88; +use Test::Spelling; + +use Dist::Zilla::Tester; +use Path::Class; +use Cwd (); + +# lib/ and bin/ +spell_check_dist( foo => file(qw(bin foo)), file(qw(lib Foo.pm)) ); +# just lib/ +spell_check_dist( nobin => file(qw(lib Foo.pm)) ); + +done_testing; + +sub spell_check_dist { + my ($dir, @files) = @_; + my $tzil = Dist::Zilla::Tester->from_config({ + dist_root => dir('corpus', $dir), + }, { + tempdir_root => '.build', # avoid creating ./tmp + }); + $tzil->build; + + my $cwd = Cwd::cwd; + # tests typically run from the build dir + chdir $tzil->tempdir->subdir('build') or die "chdir failed: $!"; + + check_tests( + sub { + # all_pod_files_spelling_ok sets a plan which causes problems + local *Test::Tester::Delegate::plan = sub {}; + + # run the actual xt file + do "${\ file(qw(xt author pod-spell.t)) }"; + }, + [ + map { + +{ + ok => 1, + name => 'POD spelling for ' . $_, + # depth: starts at 1; +1 for do-file; +1 for the all_ func + depth => 3, + }, + } + @files + ], + "spell check pod for $dir" + ); + + # change back + chdir $cwd or die "chdir failed: $!"; +} -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
