[libdist-zilla-plugin-test-podspelling-perl] 05/07: use Test::Requires and fix test
Axel Beckert
abe at deuxchevaux.org
Mon May 25 10:03:02 UTC 2015
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag 2.002002
in repository libdist-zilla-plugin-test-podspelling-perl.
commit d749d685333989fc0b178d4bf0f17004b88c4d10
Author: Caleb Cushing <xenoterracide at gmail.com>
Date: Wed Mar 7 12:16:28 2012 -0600
use Test::Requires and fix test
Signed-off-by: Caleb Cushing <xenoterracide at gmail.com>
---
lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 18 ++++++------------
t/attributes.t | 6 +++---
2 files changed, 9 insertions(+), 15 deletions(-)
diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
index b663bf7..3ec482e 100644
--- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
+++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
@@ -163,22 +163,16 @@ mvp_multivalue_args
=cut
__DATA__
___[ xt/author/pod-spell.t ]___
-#!perl
-
# This test is generated by Dist::Zilla::Plugin::Test::PodSpelling
-
+use strict;
+use warnings;
use Test::More;
-
-eval "use {{ $wordlist }}";
-plan skip_all => "{{ $wordlist }} required for testing POD spelling"
- if $@;
-
-eval "use Test::Spelling 0.12";
-plan skip_all => "Test::Spelling 0.12 required for testing POD spelling"
- if $@;
+use Test::Requires {
+ 'Test::Spelling' => 0.12,
+ '{{ $wordlist }}' => 0,
+};
{{ $set_spell_cmd }}
{{ $add_stopwords }}
all_pod_files_spelling_ok('bin', 'lib');
{{ $stopwords }}
-
diff --git a/t/attributes.t b/t/attributes.t
index f3c22de..70f456c 100644
--- a/t/attributes.t
+++ b/t/attributes.t
@@ -37,14 +37,14 @@ sub get_content {
}
my $content = get_content({});
- like $content, qr/use Pod::Wordlist::hanekomu/, q[use default wordlist];
+ like $content, qr/Pod::Wordlist::hanekomu/, q[use default wordlist];
unlike $content, qr/set_spell_cmd/, q[by default don't set spell command];
like $content, qr/add_stopwords/, q[by default we add stopwords];
like $content, qr/__DATA__\s$author/, q[DATA handle includes author];
$content = get_content({wordlist => 'Foo::Bar'});
-unlike $content, qr/use Pod::Wordlist::hanekomu/, q[custom word list];
- like $content, qr/use Foo::Bar/, q[custom word list];
+unlike $content, qr/Pod::Wordlist::hanekomu/, q[custom word list];
+ like $content, qr/Foo::Bar/, q[custom word list];
$content = get_content({spell_cmd => 'all_wrong'});
like $content, qr/set_spell_cmd.+all_wrong/, q[custom spell checker];
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git
More information about the Pkg-perl-cvs-commits
mailing list