[libdist-zilla-plugin-test-podspelling-perl] 05/07: use Test::Requires and fix test

[Axel Beckert]

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 <xenoterrac...@gmail.com>
Date:   Wed Mar 7 12:16:28 2012 -0600

    use Test::Requires and fix test
    
    Signed-off-by: Caleb Cushing <xenoterrac...@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

_______________________________________________
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