[libdist-zilla-plugin-test-podspelling-perl] 06/13: add unicode test to attributes

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 2.004000
in repository libdist-zilla-plugin-test-podspelling-perl.

commit 676c4c527e9b767bd2498d1d9770c18c576c15a4
Author: Caleb Cushing <xenoterracide at gmail.com>
Date:   Thu Feb 14 19:12:16 2013 -0600

    add unicode test to attributes
    
    Signed-off-by: Caleb Cushing <xenoterracide at gmail.com>
---
 t/attributes.t | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/t/attributes.t b/t/attributes.t
index 70f456c..ac17aba 100644
--- a/t/attributes.t
+++ b/t/attributes.t
@@ -6,8 +6,9 @@ use Test::DZil;
 
 # test the file content generated when various attributes are set
 
-my $author = 'Fooer';
-
+my $fname  = 'Richard';
+my $lname  = 'Simões';
+my $author = join ' ', $fname, $lname;
 sub get_content {
   my ($args) = @_;
 
@@ -18,11 +19,11 @@ sub get_content {
       add_files => {
         'source/dist.ini' => dist_ini(
           {
-            name => 'Spell-Checked',
-            version => 1,
-            abstract => 'spelled wrong',
-            license => 'Perl_5',
-            author => $author,
+            name             => 'Spell-Checked',
+            version          => 1,
+            abstract         => 'spelled wrong',
+            license          => 'Perl_5',
+            author           => $author,
             copyright_holder => $author,
           },
           [$name => $args],
@@ -40,7 +41,7 @@ my $content = get_content({});
   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];
+  like $content, qr/__DATA__\s$fname\n$lname/,    q[DATA handle includes author];
 
 $content = get_content({wordlist => 'Foo::Bar'});
 unlike $content, qr/Pod::Wordlist::hanekomu/, q[custom word list];

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git